Attribute VB_Name = "GFI"
Public objItem As Object
Public dstFolder As Object
Public Dele As Boolean
Public myFolder As MAPIFolder
Public myNameSpace As NameSpace
Public Sub SetVars()
    Set myNameSpace = Application.GetNamespace("MAPI")
    Set myFolder = myNameSpace.Folders("Public Folders").Folders("All Public Folders").Folders("GFI AntiSpam Folders")
End Sub
Sub AddBlacklist()
SetVars
Dele = True
Set dstFolder = myFolder.Folders("Add to blacklist")
PublicMove
End Sub
Sub AddWhitelist()
SetVars
Dele = False
Set dstFolder = myFolder.Folders("Add to whitelist")
PublicMove
End Sub
Sub DiscussLst()
SetVars
Dele = False
Set dstFolder = myFolder.Folders("I want this Discussion list")
PublicMove
End Sub
Sub isLegit()
SetVars
Dele = False
Set dstFolder = myFolder.Folders("This is legitimate email")
PublicMove
End Sub
Sub isSpam()
SetVars
Dele = True
Set dstFolder = myFolder.Folders("This is spam email")
PublicMove
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 = "Add to GFI Blacklist"
        .OnAction = "AddBlacklist"
    End With
    Set ctlCBarButton = cbGFI.Controls.Add(Type:=msoControlButton)
    With ctlCBarButton
        .Caption = "Whitelist"
        .FaceId = 3733
        .Style = msoButtonIconAndCaption
        .Visible = True
        .TooltipText = "Add to GFI Whitelist"
        .OnAction = "AddWhitelist"
    End With
    Set ctlCBarButton = cbGFI.Controls.Add(Type:=msoControlButton)
    With ctlCBarButton
        .Caption = "Discussion List"
        .FaceId = 3735
        .Style = msoButtonIconAndCaption
        .Visible = True
        .TooltipText = "I want this Discussion list"
        .OnAction = "DiscussLst"
    End With
    Set ctlCBarButton = cbGFI.Controls.Add(Type:=msoControlButton)
    With ctlCBarButton
        .Caption = "Legitimate Email"
        .FaceId = 1087
        .Style = msoButtonIconAndCaption
        .Visible = True
        .TooltipText = "This is legitimate email"
        .OnAction = "isLegit"
    End With
    Set ctlCBarButton = cbGFI.Controls.Add(Type:=msoControlButton)
    With ctlCBarButton
        .Caption = "Spam"
        .FaceId = 1088
        .Style = msoButtonIconAndCaption
        .Visible = True
        .TooltipText = "This is spam email"
        .OnAction = "isSpam"
    End With
    cbGFI.Visible = True
End Sub
Sub PublicMove()
'Dim myFolder As MAPIFolder
'Dim myNameSpace As NameSpace
Dim newCopy As Object
'Set myNameSpace = Application.GetNamespace("MAPI")
'Set myFolder = myNameSpace.Folders("Public Folders").Folders("All Public Folders")
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
   Set objItem = myItem
   Set newCopy = objItem.Copy
   newCopy.Move dstFolder
   If Dele = True Then
        objItem.Delete
    End If
Next
End Sub