VBA outlook receive mail event 1

[dgillz]

I am trying to launch code when a new mail item is received in outlook and am struggling. There is not much documentation that I can find but here is what I have so far:

Private Sub Application_ItemReceive(ByVal Item As Object, Cancel As Boolean)
        MsgBox "You have Mail!"
End Sub

I plan on replacing "You have mail!" with some real code, so please don't tell me I don't need VBA to do this. I do need VBA to do what I want to do, but I need the code to fire when I receive new mail. Right now nothing happens.

Any help appreciated.

Software Sales, Training, Implementation and Support for Macola, eSynergy, and Crystal Reports

http://www.gainfocus.biz

"What version of URGENT!!! are you using?

 

[ClulessChris]

Maybe you're looking at the wrong event.
I'd go with:

Private Sub Application_NewMail()

End Sub

Don't count the days, Make the days count.

 

[dgillz]

Chris,

So this event will fire when I receive mail?

Software Sales, Training, Implementation and Support for Macola, eSynergy, and Crystal Reports

http://www.gainfocus.biz

"What version of URGENT!!! are you using?

 

[dgillz]

OK quick followup question. How do I test for a specific incoming email address and subject line?

Software Sales, Training, Implementation and Support for Macola, eSynergy, and Crystal Reports

http://www.gainfocus.biz

"What version of URGENT!!! are you using?

 

[ClulessChris]

Yes.

Don't count the days, Make the days count.

 

[ClulessChris]

Set ref to :
.GetDefaultFolder(olFolderInbox).Items.GetFirst

Don't count the days, Make the days count.

 

[dgillz]

Set ref? Can you tell me what that means? You don't mean references under tools-> references do you?



Software Sales, Training, Implementation and Support for Macola, eSynergy, and Crystal Reports

http://www.gainfocus.biz

"What version of URGENT!!! are you using?

 

[ClulessChris]

Try

Private Sub Application_NewMail()
    Dim oNS         As NameSpace
    Dim oFolder     As MAPIFolder
    Dim oItem       As Object
    Dim oNewMail    As MailItem
    
    Set oNS = GetNamespace("MAPI")
    Set oFolder = onMAPI.GetDefaultFolder(olFolderInbox)
    Set oNewMail = ofFolder.Items.GetLast
    
    With oNewMail
        MsgBox .Subject & " " & .SenderName
        
    End With

End Sub

Don't count the days, Make the days count.

 

[ClulessChris]

or maybe

Private Sub Application_NewMail()
    Dim oNS         As NameSpace
    Dim oFolder     As MAPIFolder
    Dim oNewMail    As MailItem
    
    Set oNS = GetNamespace("MAPI")
    Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
    Set oNewMail = oFolder.Items.GetFirst
    
    With oNewMail
        MsgBox .Subject & " " & .SenderName
        
    End With

End Sub

Don't count the days, Make the days count.

 

[WinblowsME]

dgillz, read the section that starts off with "• Outlook also has a NewMail event" at the bottom of the page from the following link.

http://support.microsoft.com/kb/292063