¿Como hago para enviar correos con mi firma de outlook mediante una macro con los datos en excel?

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?

2 Respuestas

Respuesta
2

H o l a:

Te anexo un ejemplo para agregar la firma del correo:

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.


Respuesta
Sub Enviar_Correos()
    '***Macro Para enviar correos
    Set dam = CreateObject("outlook.application").CreateItem(0)
    col = Range("f7").Column ' Define el número de la columna, a partir de la cual la macro buscará archivos para adjuntar al email
    For i = 8 To Range("B" & Rows.Count).End(xlUp).Row ' Bucle, que recorrera desde la fila 8 hasta la última fila hacia bajo que encuentre diligeciada
        Set dam = CreateObject("Outlook.Application").CreateItem(0) ' Configuración de obejto outlook para usar esta aplicación como servicio de envío
        '
        dam.To = Range("B" & i).Value           'Celda donde se encuenta el Destinatarios (la i es el valor de la variable en el bucle)
        dam.CC = Range("C" & i).Value           'Con copia
        'dam.BCC = Range("D" & i).Value          'Con copia oculta
        dam.Subject = Range("D" & i).Value      '"Asunto"
        dam.HTMLBody = cuerpo & dam.HTMLBody    'Con esta parte se agre la firma
        dam.Body = Range("E" & i).Value         '"Cuerpo del mensaje"
        'Agregación de archivos adjuntos
        For j = col To Cells(i, Columns.Count).End(xlToLeft).Column - 3
            archivo = Cells(i, j).Value
            If archivo <> "" Then dam.Attachments.Add archivo ' Con el condicional IF, el mismo SI que utilziamos en Excel, sabremos si hay archivos o no para adjuntar.
        Next
        Dam. Send 'El correo se envía en automático
 'dam. Display 'El correo se muestra
    Next
    MsgBox "Correos enviados", vbInformation, "www.excelparatodos.com" ' Mensaje de confirmación
End Sub

no puedo agregar mi firma oajala puedan ayudarme

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas