Attribute VB_Name = "GFI"
Public GFIPass As String
Public GFIAddr As String
Public UsePass As Boolean
Public objItem As Object
Public Sub SetVars()
    GFIPass = "password"  'if you use a password with remote commands put it here
    UsePass = False       'set to True if you use a password, otherwise False
    GFIAddr = "rcommands@mailessentials.com" 'remote commands email address
End Sub
Sub AddBlacklist()
SetVars
Dim strSaveName As String
Dim myItem As Object
Dim eaddr As String
Dim newItem As MailItem
    Set mySelection = Application.ActiveExplorer.Selection
    For i = 1 To mySelection.count
        Set myItem = mySelection.Item(i)
          Dim objItem As MailItem
          Dim objReply As MailItem
          Dim objRecips As Outlook.Recipients
          Dim objRecip As Outlook.Recipient
   Set objItem = myItem
   Set objReply = objItem.Reply
   Set objRecips = objReply.Recipients
   For Each objRecip In objRecips
      eaddr = objRecip.Address
   Next
   Set objItem = Nothing
   Set objReply = Nothing
   Set objRecip = Nothing
    If MsgBox("Do you want to add the email address '" & eaddr & "' to the GFI Blacklist?", vbYesNo) = vbYes _
      Then
   Set newItem = Application.CreateItem(olMailItem)
   newItem.Subject = "Add to Blacklist"
   If UsePass = True Then
        newItem.Body = "PASSWORD: " & GFIPass & ";" & vbCrLf & "ADDBLIST: " & eaddr
    Else
        newItem.Body = "ADDBLIST: " & eaddr
    End If
   newItem.To = GFIAddr
   newItem.Send
   End If
   Next
End Sub
Sub AddWhitelist()
SetVars
Dim myItem As Object
Dim eaddr As String
Dim newItem As MailItem
    Set mySelection = Application.ActiveExplorer.Selection
    For i = 1 To mySelection.count
        Set myItem = mySelection.Item(i)
        Dim objItem As MailItem
        Dim objReply As MailItem
        Dim objRecips As Outlook.Recipients
        Dim objRecip As Outlook.Recipient
   Set objItem = myItem
   Set objReply = objItem.Reply
   Set objRecips = objReply.Recipients
   For Each objRecip In objRecips
      eaddr = objRecip.Address
   Next
   Set objItem = Nothing
   Set objReply = Nothing
   Set objRecip = Nothing
    If MsgBox("Do you want to add the email address '" & eaddr & "' to the GFI Whitelist?", vbYesNo) = vbYes _
      Then
   Set newItem = Application.CreateItem(olMailItem)
   newItem.Subject = "Add to Whitelist"
   If UsePass = True Then
        newItem.Body = "PASSWORD: " & GFIPass & ";" & vbCrLf & "ADDWLIST: " & eaddr
   Else
        newItem.Body = "ADDWLIST: " & eaddr
   End If
   newItem.To = GFIAddr
   newItem.Send
   End If
   Next
End Sub
Sub AddGFIBar()
    Dim cbGFI As CommandBar
    Dim ctlCBarButton As CommandBarButton
    Dim ctlCBarCombo As CommandBarComboBox
    Dim ctlCBarPopup As CommandBarPopup
    On Error Resume Next
    Set cbGFI = Application.ActiveExplorer.CommandBars("GFI Commands")
    If Err = 0 Then
        cbGFI.Delete
    End If
    Set cbGFI = Application.ActiveExplorer.CommandBars _
        .Add(Name:="GFI Commands", Position:=msoBarTop)
    Set ctlCBarButton = cbGFI.Controls.Add(Type:=msoControlButton)
    With ctlCBarButton
        .Caption = "Blacklist"
        .FaceId = 3734
        .Style = msoButtonIconAndCaption
        .Visible = True
        '.TooltipText = "Test color button"
        .OnAction = "AddBlacklist"
    End With
    Set ctlCBarButton = cbGFI.Controls.Add(Type:=msoControlButton)
    With ctlCBarButton
        .Caption = "Whitelist"
        .FaceId = 3733
        .Style = msoButtonIconAndCaption
        .Visible = True
        '.TooltipText = "Test color button"
        .OnAction = "AddWhitelist"
    End With
    cbGFI.Visible = True
End Sub