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

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

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

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

解决Outlook VBA中的通讯组列表

1 个答案: