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

Question

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

Answer 1

在代码的开头，您需要添加对“联系人组”的引用。假设您有一个名为'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 Object描述。