如何通过VBA在outlook中发送多个收件人？

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim Recipients As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 添加收件人
    Set Recipients = OutlookMail.Recipients
    ' 添加第一个收件人
    Recipients.Add "recipient1@example.com"
    ' 添加第二个收件人
    Recipients.Add "recipient2@example.com"
    ' 添加更多收件人...
    
    ' 设置邮件主题和内容
    With OutlookMail
        .Subject = "邮件主题"
        .Body = "邮件内容"
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub