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, ",")
Loop
End Sub