Outlook VBA에서 메일 그룹 해결

메일 그룹이있는 공용 폴더에서받는 사람을 가져 오는 VBA를 사용하여 전자 메일을 만들려고합니다.Outlook VBA에서 메일 그룹 해결

수신자가 목록을 해결하지 않는다는 것을 제외하고는 아래 코드를 사용합니다. 수신자는 문자열로 남아 있습니다.

Sub Email() 

Dim list As Outlook.DistListItem 
Dim oAPP      As Object 
Dim oItem      As Object 
Const olMailItem    As Long = 0 

Set list = Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("Planning Weekly Distribution List").Items.Item("Test") 

Set oAPP = CreateObject("Outlook.Application") 
Set oItem = oAPP.CreateItem(olMailItem) 
With oItem 
    .Display 
End With 

With oItem 
    .BCC = list 
    .Subject = "hey" 
    .HTMLBody = Body & "<br>" & .HTMLBody 
    .Display 
End With 


End Sub

출처

2016-12-21 Chris

'ResolveAll' 메소드를 사용하여'MailItem'의 수신자를 해결하십시오. MSDN에서 Exlained [여기] (https://msdn.microsoft.com/en-us/library/office/ff867165.aspx). –

DistListItem을받는 사람 개체로 변경하려면 어떻게해야합니까? – Chris

"계획 주간 배포 목록"폴더가 Outlook 주소록으로 추가 되었습니까? (속성, Outlook 주소록 폴더를 마우스 오른쪽 단추로 클릭)? '예'인 경우 BCC 속성을 '테스트'로 설정하면 Outlook에서 이름을 확인할 수 있습니다 (모호하지 않다고 가정).

그렇지 않은 경우 DL 구성원을받는 사람으로 한 번에 하나씩 추가해야합니다.

Outlook 주소록에서 폴더를 사용하려면 MAPIFolder.ShowAsOutlookAB 속성을 설정하십시오.

출처

2016-12-21 15:16:59

폴더가 Outlook 주소록에 추가되지 않았습니다. 내 로컬 주소록에 추가하는 방법이 있습니까? – Chris

예, 위의 업데이트 된 답변을 참조하십시오. –

"Planning Weekly Distribution List"폴더에 대해 설정 했는데도 이름이 확인되지 않습니다. "Test"가 아닌 다른 연락처 그룹 이름을 사용해 보았습니다. – Chris

Outlook VBA에서 메일 그룹 해결

답변

관련 문제