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

Question

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


Set recOutlookRecip = .Recipients.Add("[email protected]") & .Add("[email protected]")
    recOutlookRecip.Type = olCC

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

Set recOutlookRecip = .Recipients.Add("[email protected]") 
        recOutlookRecip.Type = olCC

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

Answer 1

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

.Recipients.Add "[email protected];[email protected]"

码：

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

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

    With OutMail
        .To = "[email protected];[email protected]"
        .CC = ""
        .BCC = ""
        .Subject = "Test"
        .Display
        Stop '<==Delete me later

    End With

    Set OutMail = Nothing

End Sub