outlook对新邮件的操作代码问题

u_jian

从其他大佬那边看到的代码，功能是收到了新邮件之后，将附件保存到制定的目录。
请教各位大佬一个问题，在你的帖子里有行代码，
    For i = 0 To UBound(varEntryIDs)
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
         If objItem.Class = 43 Then
这个 class = 43，是代表什么意思？不太理解

完整代码如下：

1. <div><div style="color: rgb(68, 68, 68); font-family: Tahoma,&quot;Microsoft Yahei&quot;,&quot;Simsun&quot;; font-size: 14px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; orphans: 2; overflow-wrap: break-word; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;">Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) </div>    </div><div>    Dim varEntryIDs
   
2. </div>
   
3.     Dim objItem As Object
   
4. 
   
5.    Dim imail As Outlook.MailItem
   
6. 
   
7.     Dim i As Integer
   
8. 
   
9.     varEntryIDs = Split(EntryIDCollection, ",")       '//????????ID?? Ψ???
   
10. 
    
11.     For i = 0 To UBound(varEntryIDs)
    
12. 
    
13.         Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))    '//????ID?? ??????????
    
14.            
    
15.          If objItem.Class = 43 Then
    
16. 
    
17.            Set imail = objItem
    
18. 
    
19.              Call NewMailSaveAttachemnets(imail)    '//?????????
    
20.   
    
21.          End If
    
22. 
    
23. 
    
24.       
    
25.     Next
    
26. 
    
27.     '// MsgBox "?????" & UBound(varEntryIDs) & "??? "
    
28. 
    
29. End Sub

复制代码

1. Sub NewMailSaveAttachemnets(myMail As Outlook.MailItem)
   
2. 
   
3. '// outlook ??????????  ?????????? ?????????λ??
   
4. 
   
5.     On Error Resume Next
   
6. 
   
7.     Dim mail As Outlook.MailItem
   
8. 
   
9.     Dim Fso As Object
   
10.    
    
11.    
    
12. 
    
13.     Dim myOlExp As Outlook.Explorer                   '//outlook
    
14. 
    
15.     Dim myOlSel As Outlook.Selection                  '//outlook?????????
    
16. 
    
17.     Dim MyFileName As String
    
18. 
    
19.    
    
20. 
    
21.     Set myOlExp = Application.ActiveExplorer          '//?????? outlook
    
22. 
    
23. 
    
24. 
    
25.     Dim vItem As Outlook.Attachment
    
26. 
    
27. 
    
28.     If myMail.Attachments.Count > 0 Then
    
29. 
    
30.         For i = 1 To myMail.Attachments.Count
    
31. 
    
32.          
    
33.             Set vItem = myMail.Attachments(i)
    
34. 
    
35.             MyFileName = vItem.Filename
    
36. 
    
37.                     vItem.SaveAsFile Folder & "" & vItem.Filename    '//???渽??·??
    
38. 
    
39.         Next i
    
40. 
    
41. 
    
42.     End If
    
43. 
    
44. 
    
45. End Sub

复制代码

闻启学

这个代码 是我的  


For i = 0 To UBound(varEntryIDs)
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
         If objItem.Class = 43 Then
这个 class = 43，是代表什么意思？不太理解

class= 43  这个要判断收到是否邮件   因为 收到 有可能日历 ，会议 其他之类  就要做一个判断

u_jian

闻启学 发表于 2020-3-9 12:11
这个代码 是我的  

好的，感谢大佬！