正在解析 Outlook 中的通讯组列表 VBA

Question

我正在尝试使用 VBA 创建一封电子邮件，它会从带有分发列表的 Public 文件夹中提取收件人。

我有下面的代码，除了它不解析列表，收件人仍然是一个字符串。

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

是否将 "Planning Weekly Distribution List" 文件夹添加为 Outlook 通讯簿（右键单击文件夹，属性，Outlook 通讯簿）？如果是，只需将 BCC 属性设置为 "test" - Outlook 将解析该名称（假设它是明确的）。

如果没有，您将需要一次将一个 DL 成员添加为收件人。

要确保 Outlook 通讯簿使用该文件夹，请设置 MAPIFolder.ShowAsOutlookAB 属性。

正在解析 Outlook 中的通讯组列表 VBA

Resolving distribution list in Outlook VBA

vba

outlook

outlook-2010