¿Como agregar mi firma de correo de Outlook a una macro?

Tengo una macro para enviar correos masivamente del Outlook (estos datos están en una hoja de Excel), todo me funciona bien, lo único que necesito es que los correos se envíen con mi firma de mi Outlook, ¿hay alguna forma de hacer esto?

Respuesta
3

H o l a:

Te anexo un ejemplo, estoy poniendo el cuerpo del correo en la variable cuerpo, después pongo la variable en Htmlbody, y por último agrego nuevamente dam.htmlbody, de esa forma te pone un cuerpo y tu firma que tengas en outlook.

Sub enviar_correo_con_firma()
'Por.Dante Amor
    Set dam = CreateObject("outlook.application").createitem(0)
    dam.Display
    dam.To = Sheets("Hoja1").Range("D2")
    dam.CC = Sheets("Hoja1").Range("D3")
    dam.Subject = Sheets("Hoja1").Range("D4")
    cuerpo = Sheets("Hoja1").Range("D5")
    dam.Display
    dam.HtmlBody = cuerpo & dam.HtmlBody    'Con esta parte se agre la firma
    dam.Display
    dam.Send
End Sub

Si tienes problemas para adaptarlo a tu macro, pon tu macro para revisarla.


En mi firma tengo una imagen, como hago para colocarla?

Para ese caso, te anexo otro ejemplo:

Sub correo()
'Por.Dante Amor
    col = Range("H1").Column
    ruta = ThisWorkbook.Path & "\"
    For i = 3 To Range("B" & Rows.Count).End(xlUp).Row
        Set dam = CreateObject("outlook.application").createitem(0)
        dam.To = Range("B" & i)         'Destinatarios
        dam.CC = Range("C" & i)         'Con copia
        dam.Bcc = Range("D" & i)        'Con copia oculta
        dam.Subject = Range("E" & i)    '"Asunto"
        Cuerpo = Range("F" & i)         '"Cuerpo del mensaje"
        '
        For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
            archivo = Cells(i, j)
            If archivo <> "" Then dam.Attachments.Add archivo
        Next
        '
        logo = "logo.jpg"
        dam.Attachments.Add ruta & logo
        dam.htmlbody = _
            "<HTML> " & _
                "<BODY>" & _
                    "<P>" & Cuerpo & "</P>" & _
                    "<img src=cid:" & logo & " height=40 width=40>" & _
                    "<br>" & "<b>" & [I2] & "</b>" & _
                    "<br>" & [J2] & _
                    "<br>" & [K2] & _
                "</BODY> " & _
            "</HTML>" & dam.htmlbody
        'dam.Display 'El correo se muestra
        dam.send 'El correo se envía en automático
    Next
    MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub

Tienes que guardar tu imagen en un archivo con el nombre de logo.jpg

Con esta línea anexas el logo al correo:

Dam. Attachments. Add ruta & logo

Y con esto la imagen se inserta en el correo:

        dam.htmlbody = _
            "<HTML> " & _
                "<BODY>" & _
                    "<P>" & Cuerpo & "</P>" & _
                    "<img src=cid:" & logo & " height=40 width=40>" & _
                    "<br>" & "<b>" & [I2] & "</b>" & _
                    "<br>" & [J2] & _
                    "<br>" & [K2] & _
                "</BODY> " & _
            "</HTML>" & dam.htmlbody
        Dam. Display 'El correo se muestra
 dam. Send 'El correo se envía en automático

S a l u d o s . D a n t e   A m o r. Recuerda valorar la respuesta. G r a c i a s

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas