☰

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

tag-icon • tag-icon microsoft-excel
使用宏通过电子邮件发送文档并抄送其他用户

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

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

你能帮忙吗？

应用程序.对话框（xlDialogSendMail）.显示arg1：=Array（“[电子邮件保护]“，”[电子邮件保护]"), _ arg2:="您的趣味电子邮件"

答案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 = "[email protected]"
        .CC = "[email protected]"
        .BCC = "[email protected]"
        .Subject = "A Subject"
        .Body = "A body"
        .Attachments.Add ThisWorkbook.FullName
        .Display
    End With


End Sub

相关内容