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 = "[email protected]"
.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