[URGENT] Outlook Signature

[GustavoR]

When I open a New Email in outlook, I imediately see this:

Att,

​

Gustavo Magalhães Roriz Analista de Finanças e Controle Gerência de Relacionamento e Divulgação de Dados de Estados e Municípios – GERED/COINT Telefone: +55 61 3412-3001​

<tbody>
</tbody>

as a signature.

I want a macro to create an email, write something at the body and insert the signature. Here is what i got so far:


Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


strbody = "Prezados," & Chr(10) & Chr(10) & _
"Encaminho anexo os dados referentes ao FPE e FPM distribuídos por decêndio em " & _
Format(Date - 30, "mmmm") & " de " & Year(Date - 30) & "."


On Error Resume Next


With OutMail
.Display
.To = ""
.CC = ""
.BCC = ""
.Subject = "Arquivo FPM FPE de " & Format(Date - 30, "mmmm") & " de " & Year(Date - 30) & "."
' .Body = strbody
.Display
End With

Please help me guys!

 

[John_w]

See vba - How to add default signature in Outlook - Stack Overflow