Attribute VB_Name = "GFI"
Public objItem As Object
Public dstFolder As Object
Public Dele As Boolean
Public YesNo As Byte
Public myFolder As MAPIFolder
Public myInbox 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")
    Set myInbox = myNamespace.GetDefaultFolder(6)
End Sub
Sub AddBlacklist()
  SetVars
  YesNo = MsgBox("Are you sure?", vbYesNo)
  If YesNo = 6 Then
    Dele = True
    Set dstFolder = myFolder.Folders("Add to blacklist")
    PublicMove
  End If
End Sub
Sub AddWhitelist()
  SetVars
  Dele = False
  Set dstFolder = myFolder.Folders("Add to whitelist")
  PublicMove
  Dele = True
  Set dstFolder = myInbox
  PublicMove
End Sub
Sub DiscussLst()
  SetVars
  Dele = False
  Set dstFolder = myFolder.Folders("I want this Discussion list")
  PublicMove
  Dele = True
  Set dstFolder = myInbox
  PublicMove
End Sub
Sub isLegit()
  SetVars
  Dele = False
  Set dstFolder = myFolder.Folders("This is legitimate email")
  PublicMove
  Dele = True
  Set dstFolder = myInbox
  PublicMove
End Sub
Sub isSpam()
  SetVars
  YesNo = MsgBox("Are you sure?", vbYesNo)
  If YesNo = 6 Then
    Dele = True
    Set dstFolder = myFolder.Folders("This is spam email")
    PublicMove
  End If
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

quote:

ORIGINAL: sputnam
The biggest improvement I could ask for would be for the SPAM button to just move it to the GFI SPAM folder and not the user's Deleted Items folder.

Sub PublicMove()
Dim newCopy As Object
Dim myItem As Object
Dim eaddr As String
Dim newItem As MailItem
Dim strUniqueSubject As String
Dim Msg as MailItem
Dim Dumpster As MAPIFolder
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
      strUniqueSubject = "MsgToBeDeletedRightNow"
      ObjItem.Subject = strUniqueSubject
      ObjItem.Save
      ObjItem.Delete
      Set Dumpster = Application.Session.GetDefaultFolder(olFolderDeletedItems)
      Set Msg = Dumpster.Items.Find("[Subject] = '" & strUniqueSubject & "'")
      if not (Msg Is Nothing) Then
         Msg.Delete
      End If
   End If
Next
End Sub

quote:

Actually I'm getting two items in the Deleted Items folder.