¿Como agregar un cuerpo personalizado a las MACRO de correo masivo que has enviado?
"para Dante Amor".
Hola Buenos Dias, a la Macro que has creado para correos Masivos con adjuntos y con pie de firma html, es posible crear el encabezado del cuerpo del mensaje, ¿personalizado?, en este caso elEstimado(a), podría ser Fijo y el Nombre ( Reinaldo Naranjo) Personalizable de acuerdo al listado de destinatarios, además de agregarle algún formato, ¿cómo negrita y subrayado?
En cuanto al cuerpo del Mensaje, es posible crear unas 2 o 3 columnas que creen el cuerpo para que pueda dividirlo en más de uno, ¿tal cómo puedes verlo en la imagen?, ¿Cómo puedo modificar su formato?
1 Respuesta
El cuerpo del correo va en la columna F.
Si quieres un cuerpo con formato, se debe ajustar en esta parte del código:
dam.HTMLBody = _
"<HTML> " & _
"<BODY>" & _
"<P>" & Cuerpo & "</P>" & _
"<br>" & "<b>" & Range("I2").Value & "</b>" & _
"<br>" & Range("J2").Value & _
"<br>" & Range("K2").Value & _
"<img src=cid:" & logo & " height=150 width=275>" & _
"</BODY> " & _
"</HTML>"Para ajustar el código, me tienes que decir de dónde se tienen que tomar los datos.
Es decir, me tienes que decir qué texto va fijo y qué texto se obtiene de otra parte y cómo se debe obtener; por ejemplo, dices que el nombre es personalizable de acuerdo al listado de destinatarios, ¿pero en dónde está ese listado? ¿En cuál hoja? ¿Cómo se busca el nombre?
Y así para cada texto que quieras que aparezca en el cuerpo.
S a l u d o s
Estimado, y no podrías agregar o crear algo como la macro que te adjunto, donde el destinatario y cuerpo va incluido en la macro. El destinatario, es personalizado enlazado con una columna de destinatarios insertada en el mismo archivo de Excel. El destinatario, podríamos separarlo y dejarlo en negrita. Mi objetivo es crear una macro para correos masivos, con todas las características de tu macro, pero que pueda personalizar y modificar mis mensajes de correos. Te enviaré el archivo por correo.
La idea es que el texto sea en azul y el destinatario en Negrita.
Atentamente Elena Arenas.
Te anexo la macro actualizada
'***Macro Para enviar correos con adjunto diferente y firma
Sub correo()
'Por.Dante Amor
Application.EnableEvents = True
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).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"
Cuerpo = 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
'
logo = Range("L2").Value
dam.Attachments.Add ruta & logo
dam.HTMLBody = _
"<HTML> " & _
"<BODY>" & _
"<font color=blue>" & _
"<P>" & "<b>" & "<u>" & "Estimado (a) " & Range("F" & i).Value & ";" & "</b>" & "</u>" & "</P>" & _
"Junto con saludar, por medio de la presente, informamos detalle de facturas pendientes de pago " & _
"que mantiene con Hotelera y Turismo Océano Ltda. Rut. 78.512.450-2." & _
"<br>" & _
"<br>" & "Agradecemos confirmar; fecha de pago de facturas vencidas, estado y proyección de pago de facturas por vencer." & _
"<br>" & _
"<br>" & "Resumen Deuda por Rango de Vencimiento" & _
"<br>" & "<br>" & _
"<b>" & "Saludos Cordiales" & "</b>" & _
"<br>" & "Atte." & _
"<br>" & _
"</font>" & _
"<img src=cid:" & logo & " height=150 width=275>" & _
"</BODY> " & _
"</HTML>"
dam.Display 'El correo se muestra
'dam.Send 'El correo se envía en automático
'Exit Sub
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub
Hola Dante, muchísimas gracias Dante. Puedo enviar más de un archivo, poniéndolos en la misma columna separados por ;? La Columna G, ¿es para archivo también?
Elena Arenas
No puedes enviar archivos en una misma celda, cada nombre y su correspondiente ruta debe ir en una celda. Presiona el enlace que dice "Insertar archivo", en automático se abre el explorador de windows, puedes seleccionar uno o varios archivos, le das aceptar y la macro se encarga de colocarlos en las celdas h, i, j, k, l, etc.
La columna G no es para archivos.
