如何使用带有VBA的“选择名称”对话框为多个收件人发送电子邮件？

使用带有VBA的“选择名称”对话框为多个收件人发送电子邮件的步骤如下：

打开Excel，并按下Alt + F11打开Visual Basic for Applications（VBA）编辑器。
在VBA编辑器中，选择“插入”菜单，然后选择“模块”以创建一个新的模块。
在新的模块中，编写以下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