Este fórum está sendo desativado

[AlexTeixeira1999]

Bom Dia, Tudo Certo?

Seguinte, estou precisando inserir a assinatura do e-mail na macro abaixo, conseguem me ajudar?

Sub CriaEmail()

Set AppOutk = New Outlook.Application 'Define a aplicação do Outlook
Set MailOutk = AppOutk.CreateItem(olMailItem) 'Define o objeto "Email" da Aplicação Outlook

With MailOutk
.Display
.To = WrkS.Cells(Celula.Row, 2).Value 'Coluna Para
.CC = WrkS.Cells(Celula.Row, 3).Value 'Coluna Com Cópia
.BCC = WrkS.Cells(Celula.Row, 4).Value 'Coluna Copia Oculta
.Subject = WrkS.Cells(Celula.Row, 5).Value 'Coluna Assunto
.Body = WrkS.Cells(Celula.Row, 6).Value 'Coluna Corpo do Email
.Attachments.Add WrkS.Cells(Celula.Row, 7).Value 'Coluna Anexo
.Attachments.Add WrkS.Cells(Celula.Row, 8).Value 'Coluna Anexo2
.Importance = olImportanceHigh
.Save

End With

Set MailOutk = Nothing 'Esvazia a variavel
Set AppOutk = Nothing 'Esvazia a variavel


End Sub