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

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

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

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

Application.Dialogs (xlDialogSendMail) .Show arg1: = Array ("user1@companyx.com", "CCuser@companyx.com"), _ arg2: = "Ваша забавная электронная почта"

microsoft-excel

— albert276
источник

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

— JNevill
источник

Не могли бы вы указать мне направление, чтобы сделать это, да, я использую Outlook.

— albert276

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

— JNevill

Я не хочу звучать совершенно бесполезно (но я так и сделаю). Какие части этого кода необходимо изменить, чтобы работать? код читает «.Add ThisWorkbook.FullName» или мне нужно изменить его на имя книги?

— albert276

Если вы хотите отправить текущую рабочую книгу по почте, код будет работать, и вам нужно будет только изменить .To, .CC, .BCC, .Subject и .Body в соответствии с вашими потребностями. Вы также можете удалить любую из тех строк, которые вам не нужны. Единственное предостережение в том, что используемая книга должна быть сохранена первой. Вы не можете просто открыть новую книгу, вставить ее и запустить. После сохранения ThisWorkbook.FullNameвернется путь к файлу книги, и Outlook с радостью присоединит его.

— JNevill

Я уверен, что есть несколько VBA для новичков, но вы всегда можете просто погуглить проблему, которую вы хотите решить, и взломать ее оттуда.

— JNevill