使用宏通过电子邮件发送文档，并抄送其他用户

Question

我有一个带有宏按钮的电子表格，可通过电子邮件将文档转发给特定用户。我被要求现在将电子邮件发送给原始收件人并抄送另一个电子邮件地址。

我尝试编辑代码，如下所示，电子邮件被发送到两者，但我不知道如何将第二个电子邮件地址移动到抄送行。

你能帮忙吗？

Application.Dialogs(xlDialogSendMail).Show arg1:=Array("user1@companyx.com", "CCuser@companyx.com"), _ arg2:="Your Fun Email"

Answer 1

xlDialogueSendMail 不支持抄送地址。您可能需要切换到 Outlook 库或任何支持您的电子邮件客户端的库。

VBA 用于快速而肮脏的 Outlook 电子邮件：

Sub sendOutlookEmail()
    Dim outlook As Object
    Dim outlookMail As Object

    Set outlook = CreateObject("Outlook.Application")
    Set outlookMail = outlook.CreateItem(0)

    With outlookMail
        .To = "Your.To@email.com"
        .CC = "Your.CC@email.com"
        .BCC = "Your.BCC@email.com"
        .Subject = "A Subject"
        .Body = "A body"
        .Attachments.Add ThisWorkbook.FullName
        .Display
    End With


End Sub