2

是否有一个 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
4

1 回答 1

1

在代码的开头，您需要添加对“联系人组”的引用。假设您有一个名为“Grupa Testowa”（英语中的“测试组”）的人。因此，以这种方式修改您的代码：

Sub NewEmail()
    'new part of the code here
    Dim CF As Folder
    Set CF = Application.Session.GetDefaultFolder(olFolderContacts)

    Dim DLI As DistListItem
    Set DLI = CF.items("Grupa Testowa")

    'your code here with one modification within With...End With
    With objMailMessage
        .To = DLI
    '...rest of your code
    End with
End sub

如需进一步参考，请查看DistListItem ObjectMSDN 中的说明。

于 2013-05-13T20:37:54.247 回答