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
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 SubSi 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.
¡Gracias!
Excelente es precisamente lo que necesitaba le deseo una excelente vida
y felicidades por su conocimiento
