Use macro para enviar um documento por email e CC outro usuário

Question

Eu tenho uma planilha com um botão de macro que encaminha o documento para um usuário específico em um email. Fui solicitado a enviar o e-mail para o destinatário original e o CC para outro endereço de e-mail.

Eu tentei editar o código como visto abaixo, o e-mail é enviado para ambos, mas não sei como mover o segundo endereço de e-mail para a linha CC.

Você pode por favor ajudar?

Application.Dialogs (xlDialogSendMail) .Mostrar arg1: = Array ("[email protected]", "[email protected]"), _                       arg2:="Seu e-mail divertido"

    

Answer 1

O xlDialogueSendMail não suporta endereços CC. Você provavelmente precisará alternar para a biblioteca do Outlook ou qualquer biblioteca que suporte seu cliente de email.

VBA para um e-mail do Outlook rápido e sujo:

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