opret ny knap og afspil ny macro

Knappen er på plads :-)
Så det er "Kun" macroen som jeg ikke fatter noget af....

Sub SlamMail()
' The ActiveInspector is the currently open item.
    Dim objOutlook As Outlook.Application
    Dim objInspector As Outlook.Inspector
    Dim objItem As Object 'Allow any Outlook item type.

    ' Instantiate an Outlook Application object.
    Set objOutlook = CreateObject("Outlook.Application")

    ' The ActiveInspector is the currently open item.
    Set objInspector = objOutlook.ActiveInspector

    ' Check and see if anything is open.
    If Not objInspector Is Nothing Then
        ' Get the current item.
        Set objItem = objInspector.CurrentItem
       
            objItem.ExpiryTime = Date + 1
            objItem.Importance = olImportanceLow
        'End If
    Else
        ' Show error message with only the OK button.
        MsgBox "No item is open", vbOKOnly
    End If

   
    ' Set all objects equal to Nothing to destroy them and
    ' release the memory and resources they take.
    Set objOutlook = Nothing
    Set objInspector = Nothing
    Set objItem = Nothing
     
 
End Sub