MailItem의받는 사람에서 우편물을 가져 오는 것
-
13-12-2019 - |
문제
나는 우편물을 알아낼 수있는 방법을 알아 내려고 노력하고 있습니다.다음을 고려하십시오 :
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim mai As MailItem
Dim intInitial As Integer
Dim intFinal As Integer
Dim strEntryId As String
Dim intLength As Integer
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)
intInitial = intFinal + 1
intFinal = InStr(intInitial, EntryIDCollection, ",")
Loop
strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1)
MsgBox strEntryId
Set mai = Application.Session.GetItemFromID(strEntryId)
For Each Recipient In mai.Recipients
MsgBox Recipient
Next
End sub
.
"John Doe"와 같은 msgboxes에서 "멋진 이름"을 얻지 만 메일 주소 "john.doe@gmail.com"을 얻고 싶습니다.
어떻게이 작업을 수행 할 수 있습니까?
감사합니다!
해결책
이것은 Outlook 2007+라고 가정합니다. 주소 속성 를 시도 했습니까?
For Each Recipient In mai.Recipients
MsgBox Recipient.Address
Next Recipient
.
이렇게하면 각 수신자의 이메일 주소가 인쇄되어야합니다.
제휴하지 않습니다 StackOverflow