Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Set email = Application.Session.GetItemFromID(EntryIDCollection)
Debug.Print(email.SenderName)
Debug.Print(email.Subject)
End Sub
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Set email = Application.Session.GetItemFromID(EntryIDCollection)
Debug.Print(email.SenderName)
Debug.Print(email.Subject)
End Sub
本文标题：Outlook收到新邮件事件
本文链接：https://www.haomeiwen.com/subject/iplezxtx.html
网友评论