Outlook VBA为联系人列表中的每个联系人组创建新的电子邮件草稿

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

---

在代码的开头，您需要添加对“联系人组”的引用。让我们假设您有一个名为“Grupa Testowa”（英语中的“Testing group”）。因此，请通过以下方式修改代码：

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

---

有关更多参考，请查看MSDN中的

DistListItem对象
说明。
这非常好。现在是否有一种方法可以循环所有DistListItems，或者一次一个是最好的/唯一的方法？在我看来，我需要获取DistListItem.EntryID值的列表并循环遍历它们。也许？