使用带有VBA的“选择名称”对话框为多个收件人发送电子邮件的步骤如下:
Sub SendEmailToMultipleRecipients()
Dim OutApp As Object
Dim OutMail As Object
Dim Recipients As Range
Dim Recipient As Range
Dim EmailAddress As String
' 设置收件人范围
Set Recipients = Application.InputBox("请选择收件人", Type:=8)
' 创建Outlook应用程序对象
Set OutApp = CreateObject("Outlook.Application")
' 遍历每个收件人并发送邮件
For Each Recipient In Recipients
EmailAddress = Recipient.Value
' 创建新的邮件
Set OutMail = OutApp.CreateItem(0)
' 设置邮件的收件人、主题和内容
With OutMail
.To = EmailAddress
.Subject = "邮件主题"
.Body = "邮件内容"
' 发送邮件
.Send
End With
' 释放邮件对象
Set OutMail = Nothing
Next Recipient
' 释放Outlook应用程序对象
Set OutApp = Nothing
End Sub
Application.InputBox
方法创建一个“选择名称”对话框,以便用户选择收件人。用户可以选择一个或多个单元格作为收件人。CreateItem(0)
方法创建一个新的邮件对象。.To
属性设置邮件的收件人,.Subject
属性设置邮件的主题,.Body
属性设置邮件的内容。.Send
方法发送邮件。请注意,此代码假设您的计算机已安装并配置了Microsoft Outlook。如果您使用的是其他邮件客户端,请相应地修改代码以适应该客户端。
推荐的腾讯云相关产品:腾讯企业邮件(https://cloud.tencent.com/product/exmail)
领取专属 10元无门槛券
手把手带您无忧上云