Excel Selecionar assinatura de email e enviar pelo excel (vba)

Jefferson TS · 1 de junho de 2021

Olá. Tenho uma assinatura configurada no outlook com nome physical. Alguém saberia me dizer como seleciono essa assinatura no vba para enviar automaticamente. E outra coisa, meu código não está enviando o email, ele fica na caixa de saída do outlook, estou tendo que abrir o outlook e clicar em enviar toda vez. Segue abaixo o código que estou utilizando:

Dim outl As Object, novo_email As Object
Set outl = CreateObject("outlook.application")
Set novo_email = outl.CreateItem(0)
With novo_email
.Display
.To = UserFormEmail.TextBoxEndEmail.Value
.CC = "[email protected]"
.Attachments.Add pdf
.Subject = "Ficha de treino PHYSICAL"
.Body = "Olá aluno(a), segue em abaixo sua ficha de treino. Bons treinos!"
.Send
End With

RafaVillani · 1 de junho de 2021

@Jefferson TSPrimeiramente configure a assinatura para que apareça nas mensagens do outlook, se você ja tiver feito isso, apenas acrescente este código no final da linha .Body = "Olá aluno(a), segue em abaixo sua ficha de treino. Bons treinos!"

& .body

RafaVillani

Jefferson TS · 1 de junho de 2021

@RafaVillani

5 horas atrás, RafaVillani disse:

& .body

Tentei desta e de outras formas mas não deu certo.

Minha assinatura do outlook é uma imagem, enquanto o código está em execução dá pra ver que quando inicia a montagem do email (inserir destinatário, cco, título, anexo, etc) aparece essa assinatura, porém, no momento em que o corpo (.body) é inserido, desaparece a assinatura.

Anexei a planilha.

PHYSICAL.rar

RafaVillani · 2 de junho de 2021

@Jefferson TSTestei aqui, o & .Body funciona corretamenta (veja o video), você inseriu a assinatura no corpo da mensagem pelo outlook?

RafaVillani

Assinatura.rar

@Jefferson TSDesconsidere o post acima, realmente, quando a assinatura contem imagem ela some, tentarei resolver aqui.

RafaVillani

@Jefferson TS, tente desta forma:

Dim outl As Outlook.Application
Dim novo_email As Outlook.MailItem

Set outl = New Outlook.Application
Set novo_email = outl.CreateItem(olMailItem)

With novo_email
.Display
.To = UserFormEmail.TextBoxEndEmail.Value
.CC = "[email protected]"
.Attachments.Add pdf
.Subject = "Ficha de treino PHYSICAL"
.HTMLBody = "<BR><FONT COLOR=""002288"" SIZE=""4"" BOLD=TRUE>Olá aluno(a), segue em abaixo sua ficha de treino. Bons treinos!</FONT><BR>" & .HTMLBody

'.Send
End With

MsgBox "Email enviado com sucesso", vbInformation, "Email e PDF"

Set outl = Nothing
Set novo_email = Nothing