Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim mal As Object
Dim outApp As Outlook.Application
Dim sSubject, sFolder, MyStr As String
Dim intInitial As Integer
Dim intFinal As Integer
Dim strEntryId As String
Dim intLength As Integer
Dim sAttachmentName As String
Set outApp = Outlook.Application
intInitial = 1
intLength = Len(EntryIDCollection)
intFinal = InStr(intInitial, EntryIDCollection, ",")
Do While intFinal <> 0
strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intFinal - intInitial))
Set mai = Application.Session.GetItemFromID(strEntryId)
sSubject = mal.Subject
intInitial = intFinal + 1
intFinal = InStr(intInitial, EntryIDCollection, ",")
Loop
strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1)
Set mal = Application.Session.GetItemFromID(strEntryId)
我不明白，EntryIDCollection具体是什么，网络上搜索也没有找到，通过这个方法，有时候我取得的标题会添加有别的字段
比如，原邮件标题为A,通过这个宏我可能取得一个为：未送达：转发：A的标题，还请清楚的人告诉我一下
谢谢
