是否有一个 VBA 脚本可以
- 为每个联系人组创建电子邮件草稿
- 在“收件人”字段中包含联系人组的联系人
- 具有统一的主题
- 拥有统一的身体
- ...如果正文包含签名,则为奖金
背景: 在我的联系人列表中,我有大约 50 个联系人组,每个代表一个客户,每个包含多个联系人。每月一次,我必须通过电子邮件将发票发送给每个客户。这目前需要
- 为 50 个联系人组中的每一个创建电子邮件
- 将主题行复制到 50 个草稿中的每一个
- 将正文复制到 50 个草稿中的每一个
我发现很多关于通过 VBA 创建电子邮件的参考资料,但没有关于使用联系人组为其提供支持的信息。
Sub NewEmail()
Dim myOutlook As Outlook.Application
Dim objMailMessage As Outlook.MailItem
Set myOutlook = Outlook.Application
Set objMailMessage = myOutlook.CreateItem(0)
With objMailMessage
.To = "" '?
.Subject = "Email subject"
.Body = "Email body." 'Msg + Signature?
.Display
.Save
.Close olPromptForSave
End With
End Sub