받는 사람의 전자 메일 주소를 반환하십시오.

Question

받는 사람의 전자 메일 주소를 확인하기 위해 전자 메일 본문으로 이동할 때 자동으로 실행되는 매크로를 작성하고 있습니다.

변수에로드 할 수신자 주소를 가져올 수 없습니다.

Sub BuildTable() 
Dim myItem As Outlook.MailItem 
Dim myRecipient As String 
Set myItem = Application.CreateItem(olMailItem) 
Set myRecipient = myItem.Recipient.Address 
.... 

Answer 1

당신이 그렇게 아마도 MS Outlook에서와 활성 Inspector에서 실행하는 것 같다

Answer 2

은 당신이 사용중인 Outlook의 버전을 잘 모르겠지만, 마이크로 소프트 (http://msdn.microsoft.com/en-us/library/office/aa211006(v=office.11).aspx)에 따라 당신은받는 사람을 얻기 위해 .Recipients (인덱스)를 사용합니다. 거기에서 주소를 얻을 수 있습니다. 필자는 Outlook 2000 (eww)을 참조했지만 ResolveAll 메서드를 .Recipients에 첨부 한 것을 언급했습니다.

Dim myItem As Outlook.MailItem 
Dim myRecipient as String 
Set myItem = Application.CreateItem(olMailItem) 
Set myRecipient = myItem.Recipients.Item(0).Address 

이 당신에게 처음받는 사람의 주소를 (당신이 IndexOutOfRange 1로 변경을 얻는 경우 VBA는, 인덱스 0 또는 1로 시작하면 내가 기억할 수없는주의) 줄 것이다 일을보십시오. 다른 사람들이 필요하다면, 당신은 루프를 할 필요가있을 것입니다. 이 같은 것을 :

For Each Recipient in myItem.Recipients 
// do some stuff here 
Next Recipient 

희망이 있습니다.

Sub BuildTable1() 

Dim oEmail As Outlook.MailItem 

Set oEmail = Application.ActiveInspector.currentItem 

Set xlApp = CreateObject("Excel.Application") 
xlApp.Application.Visible = True 
xlApp.workbooks.Open FileName:= file location 

xlApp.WorkSheets("Contacts").Activate 
xlApp.Range("A6").Value = oEmail.To 


//filtering by value, copying, pasting, etc. 
End Sub 

-ZL :

Sub CheckAddresses() 
Dim oEmail As Outlook.MailItem 
Dim r As Recipient 
Dim rList As Recipients 

Set oEmail = Application.ActiveInspector.CurrentItem 

Set rList = oEmail.Recipients 
rList.ResolveAll 
For Each r In rList 
    Debug.Print r.Address 
Next 
End Sub 

Answer 3

이이 코드 세그먼트처럼 보이는 결국 무엇을 :