Code that fires everytime an email arrives...

J

J S

I have some vba code in the ThisOutlookSession Module that causes some code
to run whenever an email arrives in the inbox.

Normally, this works fine except when I open up the VBA enviroment and do
some editing. Then the olInboxItems_ItemAdd event stop firing until I
restart outlook. Does anybody know why this is occuring and if I can stop
this behavior?

-J

Private WithEvents olInboxItems As Items
------------------------------------------------------------------
Private Sub Application_Startup()

Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
' instantiate objects declared WithEvents
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Open unread mail dropped in a subfolder automatically using VB 2
Code that fires whenever an email arrives... 1
Application Startup 3
ItemAdd event not firing every time 2
Where do I place this code - WithEvents?? 7
Keeping Count of emails received each day 4
Adding a VBA script 1
Need a loop/refresh or change of trigger code? 1

Top