Display the information in a list of mails : Email « Outlook « VBA / Excel / Access / Word

Display the information in a list of mails

Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim myMailItem As Object
    Dim intMsgIDStart As Integer, intMsgIDEnd As Integer
    Dim intCutPoint As String, strMailItemID As String

    intMsgIDStart = 1
    intCutPoint = Len(EntryIDCollection)

    intMsgIDEnd = InStr(intMsgIDStart, EntryIDCollection, ",")

    Do While intMsgIDEnd <> 0
        strMailItemID = Strings.Mid(EntryIDCollection, intMsgIDStart, _
            (intMsgIDEnd - intMsgIDStart))
        Set myMailItem = Application.Session.GetItemFromID(strMailItemID)
        Debug.Print myMailItem.Subject
        intMsgIDStart = intMsgIDEnd + 1
        intMsgIDEnd = InStr(intMsgIDStart, EntryIDCollection, ",")

End Sub


Related examples in the same category

1.Send email for all records in an Access table
2.Send email by Using POP3
3.Searching for Items
4.Adds an addressee, a subject, and body text; applies the HTML format; sets the importance to high; and sends the message:
5.Sending a Message
6.Send a table through email
7.Using the CreateItem Method to Create Default Items
8.Send out an email by using the DoCmd.SendObject