Outlook VBAで配布リストを解決する

Question

配布リストを持つパブリックフォルダから受信者をプルする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 

Answer 1

は「週刊配布リストの計画」フォルダがOutlookのアドレス帳（右プロパティ、Outlookのアドレス帳、フォルダをクリックしてください）として追加しましたか？はいの場合は、BCCプロパティを「テスト」に設定します。Outlookは名前を解決します（あいまいではないと仮定します）。

DLメンバーを受信者として一度に1人追加する必要があります。

フォルダがOutlookアドレス帳で使用されていることを確認するには、MAPIFolder.ShowAsOutlookABプロパティを設定します。