Используйте макрос, чтобы отправить документ по электронной почте, и CC другой пользователь

Question

У меня есть электронная таблица с кнопкой макроса, которая пересылает документ конкретному пользователю по электронной почте. Меня попросили отправить электронное письмо исходному получателю и другой адрес электронной почты CC.

Я попытался отредактировать код, как показано ниже, электронное письмо отправлено обоим, однако я не знаю, как переместить второй адрес электронной почты в строку CC.

Можете ли вы помочь?

Заявка.Диалоги (xlDialogSendMail).Показать arg1:= Array ("user1@companyx.com", "CCuser@companyx.com"), _ arg2:= "Ваш забавный адрес электронной почты"

Answer 1

xlDialogueSendMail не поддерживает CC-адреса. Возможно, вам придется переключиться на библиотеку Outlook или любую другую библиотеку, поддерживающую ваш почтовый клиент.

VBA для быстрого и грязного внешнего вида электронной почты:

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