Colocar imagem padr...
 
Notifications
Clear all

Colocar imagem padrão de assinatura antes de enviar email  


tiago21
(@tiago21)
Eminent Member Registered
Entrou: 3 anos atrás
Posts: 41
Topic starter  

Pessoal, bom dia;

Alguém consegue adaptar o VBA abaixo para que eu pegue e minha assinatura padrão do Outlook?

 

 

Sub enviar_email()

Set objeto_outlook = CreateObject("Outlook.Application")

For linha = 2 To 3

Set Email = objeto_outlook.createitem(0)

Email.display

Email.to = Cells(linha, 1).Value
Email.cc = "EMAIL@EMAIL.COM"
Email.bcc = ""
Email.Subject = ""

Email.Body = Cells(linha, 2).Value & "," & Chr(10) & Chr(10) _
& Cells(linha, 4).Value & Chr(10) & Chr(10) _
& "Abraços," & Chr(10) & "TM"

Email.Attachments.Add (ThisWorkbook.Path & "\RATEIO - " & Cells(linha, 3).Value & " - OUT 2020" & ".xlsx")
Email.send

Next

End Sub
Este tópico foi modificado 2 meses atrás by tiago21

ResponderCitar (Quote)