Este fórum está sendo desativado

[pppccc]

Só gostaria de inserir uma assinatura feita no próprio Outlook com imagem e texto nesse VBA, mas não sei como. Segue o código:

Sub Aplicacao_Fundo()
Dim OutlookApp As Object, OutlookMail As Object Dim email As String, assunto As String, corpo As String

Set OutlookApp = CreateObject("Outlook.Application")

Set OutlookMail = OutlookApp.CreateItem(0)

email = ActiveSheet.Range("B4").Value

assunto = "CONFIRMAÇÃO DE ORDEM - " & ActiveSheet.Range("B3").Value & "(" & ActiveSheet.Range("B2").Value & ")"

corpo = Worksheets("Texto").Range("A1").Value

With OutlookMail

.to = email
.CC = ""
.BCC = "fulano@fulano.com"
.Subject = assunto
.Body = corpo
.Display ' para envia o email diretamente defina o código .Send
End With

Set OutlookMail = Nothing

Set OutlookApp = Nothing

End Sub

[CursoDeExcelGratis]

Ainda precisa de ajuda com isto amigo ?