是否有
的VBA脚本背景 在我的联系人列表中,我有大约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
答案 0 :(得分: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
有关详细信息,请查看MSDN中的DistListItem Object
说明。