I have a public folder that any email that gets dropped into the
folder gets processed a variety of ways. I cannot get the addItem to
fire. My code is below, no error just doesnt fire. Any ideas it is
driving me crazy!

Thanks John


Public Sub Application_Startup()


Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim AutoTBNTTop As Outlook.MAPIFolder
Dim AutoTBNTFolder As Outlook.MAPIFolder


Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set AutoTBNTTop =
myNamespace.GetDefaultFolder(olPublicFoldersAllPub licFolders)
Set AutoTBNTFolder = AutoTBNTTop.Folders("FolderName")
Set AutoItems = AutoTBNTFolder.Items


End Sub


Private Sub AutoItems_ItemAdd(ByVal Item As Object)


ThanksButNoThanks


End Sub