O código nesta página só funciona quando você usa o Outlook como seu programa de email.
A maneira mais fácil de adicionar a assinatura padrão com ou sem foto num e-mail com código VBA.
Há problema quando for enviar o email diretamente. Verá a tela piscar porque mostramos o e-mail por um curto período de tempo antes do código enviá-lo.
Isso pode não ser nenhum problema se quiser conferir o e-mail antes de enviá-lo, mas num looping isso não será tão agradável.
Não há uma forma melhor de enviar uma assinatura com uma imagem diretamente num e-mail sem mostrá-lo por um tempo curto.
O segundo exemplo não terá este problema, mas não poderá lidar com uma assinatura com uma imagem nele.
Há problema quando for enviar o email diretamente. Verá a tela piscar porque mostramos o e-mail por um curto período de tempo antes do código enviá-lo.
Isso pode não ser nenhum problema se quiser conferir o e-mail antes de enviá-lo, mas num looping isso não será tão agradável.
Não há uma forma melhor de enviar uma assinatura com uma imagem diretamente num e-mail sem mostrá-lo por um tempo curto.
O segundo exemplo não terá este problema, mas não poderá lidar com uma assinatura com uma imagem nele.
Sub MailOutlookWithSignatureHtml01()
' Working in Office 2000-2013
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Let strbody = "<H3><B>Cara Cliente Ana Cláudia</B></H3>" & _
"Queira, por favor, visitar o nosso website e fazer um download da nossa nova versão.<br>" & _
"Caso ocorra algum problema, deixe-nos cientes disso.<br>" & _
"<A HREF=""http://inanyplace.blogspot.com/"">A&A - In Any Place</A>" & _
"<br><br><B>Thank you</B>"
On Error Resume Next
With OutMail
Let .Display
Let .To = "bernardess@gmail.com"
Let .CC = ""
Let .BCC = "bernardess@gmail.com"
Let .Subject = "A&A: Teste de envio de e-mail"
Let .HTMLBody = strbody & "<br>" & .HTMLBody
Let .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = NothingEnd Sub
Referência: Ron de Bruin
Tags: VBA, Outlook, email, e-mail, send, enviar, assinatura, signature, HTM, RTF, TXT, Ron de Bruin
