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

我目前有这个，但它不工作。我只允许通过发送1个收件人

Set recontlookrecip=.Recipients.Add（“dave2shalom@gmail.com") 
REQUOTLOOKRECIP.Type=olCC

我需要硬编码的电子邮件地址。任何帮助都将不胜感激

---

谢谢。

在

至

行中，您可以添加带分隔符的收件人列表。你也可以

Dim appOutlook As Outlook.Application
Dim mitOutlookMsg As Outlook.MailItem
Dim recOutlookRecip As Outlook.Recipient
Dim attOutlookAttach As Outlook.Attachment


Set recOutlookRecip = .Recipients.Add("ABC@gmail.com") & .Add("123@gmail.com")
    recOutlookRecip.Type = olCC

代码：

Public Sub sendmail（）
将OutMail设置为MailItem，将OutApp设置为Outlook.Application
Set-OutApp=新建Outlook.Application
Set-OutMail=OutApp.CreateItem（0）
发邮件
.To=”dave2shalom@gmail.com;ABC@gmail.com"
.CC=“”
.BCC=“”
.Subject=“测试”
.展示
停下来
.Recipients.Add "dave2shalom@gmail.com;ABC@gmail.com"

Public Sub SendEmail()
    Dim OutMail As MailItem, OutApp As Outlook.Application

    Set OutApp = New Outlook.Application
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "dave2shalom@gmail.com;ABC@gmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "Test"
        .Display
        Stop '<==Delete me later

    End With

    Set OutMail = Nothing

End Sub