[Spambayes] Outlook VBA code to assist spambayes

[Mason Phillips]

To Whom It May Concern:

 

First I want to thank you for your excellent tool forremoving spam. It works with incredible accuracy. I wanted to share some VBAcode that I wrote to permanently delete the spam items. If a piece of mail isput into my #8220;Spam#8221; folder then a category flag of #8220;Spam#8221;is added. Then it is moved into my deleted items folder. If a piece of mailenters my deleted items folder and is flagged as spam, then I permanentlydelete it. So not only do I have the confidence that spam is being removed, Ialso never see it. As a side note, I have not seen 1 piece of mail that was flaggedas spam by SpamBayes that was not spam, nor have I seen any #8220;good#8221;emails flagged as spam either. I thought that this might be something thatpeople would like to use to further the benefit of this great program. If you thinkit is worth sharing, please feel free to do so.

 

-----------------------------------------------------------------------CodeBelow

 

Option Explicit

 

Private WithEvents olSpamItems As Items

Private WithEvents olSpammedItems As Items

 

 

Private Sub Application_Startup()

    Dim objNS As NameSpace

    Dim objInbox As MAPIFolder

 

    Set objNS = Application.GetNamespace("MAPI")

    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)

    Set olSpamItems = objInbox.Folders("Spam").Items

    Set olSpammedItems = objNS.GetDefaultFolder(olFolderDeletedItems).Items

    

    Set objNS = Nothing

End Sub

 

Private Sub Application_Quit()

    ' disassociate global objects

    Set olSpamItems = Nothing

End Sub

 

Private Sub olSpamItems_ItemAdd(ByVal Item As Object)

Dim objNS As NameSpace

Dim objInbox As MAPIFolder

Dim objSpam As MAPIFolder

Dim objDeletedItemsFolder As MAPIFolder

 

If Item.Class = olMail Then

    Set objNS = Application.GetNamespace("MAPI")

    Set objSpam = objNS.GetDefaultFolder(olFolderInbox).Folders("Spam")

    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)

    Set objDeletedItemsFolder = objNS.GetDefaultFolder(olFolderDeletedItems)

        If Not objDeletedItemsFolderIs Nothing Then

           Item.Categories = "Spam"

           Item.Move objDeletedItemsFolder

        End If

End If

 

    Set objDeletedItemsFolder = Nothing

    Set objSpam = Nothing

    Set objInbox = Nothing

    Set objNS = Nothing

 

End Sub

 

 

Private Sub olSpammedItems_ItemAdd(ByVal Item As Object)

 

If Item.Class = olMail Then

    If Item.Categories = "Spam"Then

        Item.Delete

    End If

End If

    

 

End Sub

 

---------------------------------------------------------------------------------endof code

 

Regards,

Mason Phillips

phillipsmn at yahoo.com

 

"Pride talks; Humility listens." - ChrisPhillips


 


		
---------------------------------
Do you Yahoo!?
New and Improved Yahoo! Mail - Send 10MB messages!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.python.org/pipermail/spambayes/attachments/20040623/aed27ab8/attachment.html