Public Sub CTReportFN()
Dim olkMsg As Outlook.MailItem
Dim Msg As Variant
Set olkMsg = Application.CreateItem(olMailItem)
olkMsg.To = “reportfn@blockspam.biz”
olkMsg.Subject = “FN Report amercer ” & Date
For Each Msg In Application.ActiveExplorer.Selection
olkMsg.Attachments.Add Msg
Next
Set Sign = olkMsg.GetInspector
olkMsg.Display
Sign.CommandBars.ActiveMenuBar.Controls(“Insert”).Controls(“Signature”).Controls(“Requests”).Execute
If MsgBox(“Are you sure you want to report these e-mails to Commtouch as SPAM?”, vbYesNo) = vbYes Then
olkMsg.Send
Else
olkMsg.Close olDiscard
End If
If MsgBox(“Auto Delete SPAM Now?????”, vbYesNo) = vbNo Then
Set olkMsg = Nothing
Else
For Each Item In Application.ActiveExplorer.Selection
Item.Delete
Next
Set olkMsg = Nothing
End If
End Sub