標題: [發問] 如何得知此次outlook共接收了幾封新郵件? [打印本頁]

---

作者: PKKO    時間: 2015-8-6 18:35     標題: 如何得知此次outlook共接收了幾封新郵件?

1. Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
   
2. 
   
3.     MsgBox "I'm working!", vbExclamation
   
4. 
   
5.     Dim varEntryIDs
   
6.     Dim objItem As Object
   
7.     Dim myItem As MailItem
   
8.     Dim i As Integer
   
9.     varEntryIDs = Split(EntryIDCollection, ",")
   
10.     For i = 0 To UBound(varEntryIDs)
    
11.         Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
    
12. 
    
13.         '## Check the item's TypeName and ONLY process if it's a MailItem:
    
14. 
    
15.         If TypeName(objItem) = "MailItem" Then
    
16. 
    
17.             Set myItem = objItem.Forward
    
18.             myItem.Recipients.Add "[email protected]"
    
19.             myItem.Send
    
20. 
    
21.         Else:
    
22.             MsgBox "Type of item is: " & TypeName(objItem)
    
23. 
    
24.         End If
    
25. 
    
26.     Next
    
27. End Sub

複製代碼

這是網路上找到的資料
但只能找出最後一封mail

如何可以得知此次接收了五封mail
而不是只抓的到最後一封信呢?

請各位大大求助!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)