如何使用带有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