전망 VBA는

Question

가

• 이 (가) "에 연락처 그룹의 연락처와 각 기업에게 연락 해주기 그룹
• 에 대한 초안 이메일을 작성하는 VBA 스크립트가 있는가 연락처 목록에있는 각 기업에게 연락 해주기 그룹에 대한 새로운 초안 이메일을 만들 수 있습니다 몸이 서명을 포함하는 경우 "균일 한 바디
• 으로 균일 한 주제
• 으로
• 를 필드 ... 보너스

배경 : 내 연락처 목록에는 클라이언트를 나타내는 약 50 개의 연락처 그룹이 있으며 각 그룹에는 여러 개의 연락처가 있습니다. 한 달에 한 번, 각 고객에게 인보이스를 이메일로 보내야합니다. 이 기능은 현재

• 은 50 초안의 각각에 몸을 복사하는 50 초안
• 의 각각에 제목을 복사하는 50 개 연락 그룹
• 각각에 대해 이메일을 작성 수반

VBA를 통해 전자 메일을 만드는 데 많은 참고 자료를 찾았지만 연락처 그룹을 사용하여 전원을 공급하는 방법에 대해서는 아무것도 없습니다.

Sub NewEmail() 
    Dim myOutlook As Outlook.Application 
    Dim objMailMessage As Outlook.MailItem 
    Set myOutlook = Outlook.Application 
    Set objMailMessage = myOutlook.CreateItem(0) 
     With objMailMessage 
      .To = "" '? 
      .Subject = "Email subject" 
      .Body = "Email body." 'Msg + Signature? 
      .Display 
      .Save 
      .Close olPromptForSave 
     End With 
    End Sub 

Answer 1

코드 시작 부분에 '연락처 그룹'에 대한 참조를 추가해야합니다. 'Grupa Testowa'(영어로 '테스트 그룹')라는 사람이 있다고 가정 해 보겠습니다. 추가 참조의

Sub NewEmail() 
    'new part of the code here 
    Dim CF As Folder 
    Set CF = Application.Session.GetDefaultFolder(olFolderContacts) 

    Dim DLI As DistListItem 
    Set DLI = CF.items("Grupa Testowa") 

    'your code here with one modification within With...End With 
    With objMailMessage 
     .To = DLI 
    '...rest of your code 
    End with 
End sub 

은 MSDN에서 DistListItem Object 설명을 확인 : 그래서, 코드이 방법을 수정합니다.