Firma para enviar correo desde una macro

Disculpa quería saber como puedo anexar la firma siendo una imagen a los correos que envío desde la siguiente macro:

Sub EnviarCorreo()
'
' EnviarCorreo Macro
'
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Msg As String
'
Set OutlookApp = New Outlook.Application
'
'Recorremos la columna EMAIL
'
For Each cell In Range("B6:B6")
'
'Asignamos valor a las variables
'
Asunto = "Su Solución Integral de Salud con PA Group"
Destinatario = cell.Offset(0, -1).Value
Correo = cell.Value
'
'Cuerpo del mensaje
'
Msg = "Buenos días Sr(a). " & Destinatario & vbNewLine & vbNewLine
Msg = Msg & cell.Offset(0, 1).Value & vbNewLine & vbNewLine
'
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.Body = Msg
.Attachments.Add "D:\Documents and Settings\Propietario\Optima_SOB_SPA.pdf"
.Send
'
End With
'
Next
'
End Sub

1 Respuesta

Respuesta

Hol.a.

Dale una leidita a esto que escribí:

Enlace

Comentas. Saludos]

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas