将Outlook电子邮件发送到通讯组列表的VBA代码是什么

Question

我正在使用getitemfromid获取展望分发列表。

但是我无法将其添加到Outlook电子邮件的收件人中。

如果我使用“recipients.add”，它只会将其添加为纯文本，并在我尝试发送邮件时给出错误。

“sendto”和“to”也不起作用。

我已经看到了很多关于添加个人电子邮件地址的建议，但我宁愿只使用分发列表

有什么建议吗？

由于

Answer 1

如果修复了通讯组列表，则可以将其作为简单字符串存储在vba代码中。这就是我的工作，并根据需要进行更新。

Dim addresses as string
Addresses = "Bob Guy1 <bguy1@example.com>; Bob Guy2 <bguy2@example.com>; .... "

Dim Outmail As Object
Set Outmail = CreatObject("Outlook.Application")

etc.

With Outmail
    .To = Addresses

etc. etc. other code.

然后我将Addresses字符串视为自己的数据并根据需要对其进行操作。