Pessoal, bom dia;

Alguém consegue adaptar o VBA abaixo para que eu pegue e minha assinatura padrão do Outlook?

Sub enviar_email()

Set objeto_outlook = CreateObject("Outlook.Application")

For linha = 2 To 3

Set Email = objeto_outlook.createitem(0)

Email.display

Email.to = Cells(linha, 1).Value
Email.cc = "[email protected]"
Email.bcc = ""
Email.Subject = ""

Email.Body = Cells(linha, 2).Value & "," & Chr(10) & Chr(10) _
& Cells(linha, 4).Value & Chr(10) & Chr(10) _
& "Abraços," & Chr(10) & "TM"

Email.Attachments.Add (ThisWorkbook.Path & "\RATEIO - " & Cells(linha, 3).Value & " - OUT 2020" & ".xlsx")
Email.send

Next

End Sub