- 11 Fev 2016 às 11:16
#7474
Pessoal, boa tarde.
Estou usando o código abaixo para gerar um email e incluir minha assinatura, porém, quando a assinatura é incluida, ela fica com um formato diferente do que é para ficar, pois na minha assinatura tem imagem.
Voces sabem como posso solucionar esse problema?
Sub ENVIAR()
Dim OApp As Object, OMail As Object, Signature As String
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)
With OMail
.Display
End With
Signature = OMail.Body
With OMail
.To = "someone@somedomain.com"
.Subject = "Type your email subject here"
'.Attachments.Add
.Body = "Add body text here" & vbNewLine & Signature
'.Send
End With
Set OMail = Nothing
Set OApp = Nothing
End Sub
Obrigado
Estou usando o código abaixo para gerar um email e incluir minha assinatura, porém, quando a assinatura é incluida, ela fica com um formato diferente do que é para ficar, pois na minha assinatura tem imagem.
Voces sabem como posso solucionar esse problema?
Sub ENVIAR()
Dim OApp As Object, OMail As Object, Signature As String
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)
With OMail
.Display
End With
Signature = OMail.Body
With OMail
.To = "someone@somedomain.com"
.Subject = "Type your email subject here"
'.Attachments.Add
.Body = "Add body text here" & vbNewLine & Signature
'.Send
End With
Set OMail = Nothing
Set OApp = Nothing
End Sub
Obrigado
