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

1

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

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

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

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

albert276
источник

Ответы:

5

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
1
Я уверен, что есть несколько VBA для новичков, но вы всегда можете просто погуглить проблему, которую вы хотите решить, и взломать ее оттуда.
JNevill