Envío de emal por Outlook desde excel

Tengo una macro en Excel que me envía automáticamente correos según criterios determinados

Sub enviar()

ufila = Range("B" & Rows.Count).End(xlUp).Row
For i = 8 To ufila
If Cells(i, 7) <= Cells(i, 8) Then
    Set parte1 = CreateObject("outlook.application")
    Set parte2 = parte1.createitem(olmailitem)
    para = Cells(i, 1)
    parte2.To = para 'Destinatarios
    'parte2.CC = "" 'Con copia
    parte2.Subject = "Departamento " & Cells(i, 2) & _
    " Las Huastecas " '"Asunto"
    '"Cuerpo del mensaje"
    parte2.htmlbody = "html"
    parte2.body = "Sr (a) " & Cells(i, 3) & _
    " El pago del Departamento " & Cells(i, 2) & _
    " esta proximo a vencer el día " & Cells(i, 7) & _
    " esperamos contar con su pago. Si ya realizo su pago hacer caso omiso a este mensaje. "
    'parte2. Attachments.Add Ruta & Archivo
    'parte2. Send 'El correo se envía en automático
 parte2.Display  'El correo se muestra
End If
Next

Lo que necesito es que tome la plantilla predefinida en Outlook que es un diseño personalizado el cual esta en html

Me podría apoyar de que manera lo puede asignar dentro de la macro

1 Respuesta

Respuesta
2

Envíame un ejemplo de tu plantilla predefinida para adaptar el código.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “martha elena cervantes martinez” y el título de esta pregunta.

H o l a:

Este es el código para el correo, incluye el logo, las letras en negritas y el fondo en color.

Sub enviar()
'Act.Por.Dante Amor
    ruta = ThisWorkbook.Path & "\"
    logo = "image003.png"
    '
    For i = 8 To Range("B" & Rows.Count).End(xlUp).Row
        If Cells(i, 7) <= Cells(i, 8) Then
            Set dam = CreateObject("outlook.application").createitem(0)
            dam.To = Cells(i, "A")                                              'Destinatarios
            dam.Subject = "Departamento " & Cells(i, "B") & " Las Huastecas "   '"Asunto"
            dam.Attachments.Add ruta & logo
            dam.HTMLBody = _
                "<HTML> " & _
                    "<BODY bgcolor=#F5F6CE>" & _
                        "<img src=cid:" & logo & " height=140 width=730>" & _
                        "<P>" & "<b>Sr(a) " & Cells(i, 3) & _
                            " El pago del Departamento " & Cells(i, 2) & _
                            " está próximo a vencer el día " & Cells(i, 7) & _
                            " esperamos contar con su pago. <br><br>" & _
                            " Si ya realizó su pago, hacer caso omiso a este mensaje. " & _
                        "</P>" & _
                    "</BODY> " & _
                "</HTML>"
            dam.Display  'El correo se muestra
        End If
    Next
End Sub

Si quieres otro color de fondo cambia en esta línea el color que desees por el código en HTML

"<BODY bgcolor=#F5F6CE>""<BODY bgcolor=#F5F6CE>"

Puedes encontrar los códigos de color en esta página:

http://html-color-codes.info/codigos-de-colores-hexadecimales/ http://html-color-codes.info/codigos-de-colores-hexadecimales/ 


El archivo image003.png con el logo lo deberás poner en la misma carpeta donde tienes el archivo de excel con la macro.

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas