Insertar firma correo electrónico en macro mailing masivo excel

Tengo esta macro y no se como añadir la firma del correu del curro.

Sub Enviar_Correos()
'---
'---
    '***Macro Para enviar correos
    col = Range("H1").Column
    For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
        Set dam = CreateObject("Outlook.Application").CreateItem(0)
        '
        dam.To = Range("B" & i).Value           'Destinatarios
        dam.Cc = Range("C" & i).Value           'Con copia
        dam.Bcc = Range("D" & i).Value          'Con copia oculta
        dam.Subject = Range("E" & i).Value      '"Asunto"
        dam.Body = Range("F" & i).Value         '"Cuerpo del mensaje"
        '
        For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
            archivo = Cells(i, j).Value
            If archivo <> "" Then dam.Attachments.Add archivo
        Next
        Dam. Send 'El correo se envía en automático
'dam. Display 'El correo se muestra
    Next
    MsgBox "Correos enviados", vbInformation, "

1 Respuesta

Respuesta

La firma del correo forma parte de ese cuerpo de mensaje. Hay que añadirlo al final. No lo coge del que tengas predeterminado en Outlook.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas