현재 연락 이메일 템플릿

Question

Outlook 2010 템플릿을 여는 코드가 있습니다. 내 공개 교환 폴더에서 연락처 레코드를 열면받는 사람 : 필드에 현재 연락처 레코드의 전자 메일 주소를 채 웁니다.

다음은 코드입니다.

Sub SendAgreement() 
    Set Msg = Application.CreateItemFromTemplate("\\locationofagreementtemplate\Send Agreement.oft") 
    Msg.Display 
End Sub 

Answer 1

탐색기에서 연락처가 선택된다고 가정합니다. 검사관에서 실제로 열리는 경우 주먹 선을 set Contact = Application.ActiveInspector.CurrenrtItem

set Contact = Application.ActiveExplorer.Selection(1) 
if Contact.Type = olContact Then 
    Msg.Recipients.Add Contact.Email1Address 
End If