Correo masivo a través de macro
Dante buenas tardes,
He validado la macro que tienes paa enviar correos de manera masiva, pero no he podido que me envíe el correo sobre un aplanatilla especifica de Outlook.
Así podría evitarme lo de colocar la firma de mi correo.
El problema radica en que al momento de colocar el cuerpo del correo, me quita el formato de la plantilla del correo de outlook.
Que puedo hacer en este caso.
He agregado esta parte del código para que me traiga la plantilla pero como digo al momento de pegar el cuerpo del correo me borra el formato.
Sub Enviar_Correos()
'---
' Por. Dante Amor
'---
'***Macro Para enviar correos
Dim myolapp As Object
Dim myitem As Object
col = Range("H1").Column
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
Set myolapp = CreateObject("Outlook.Application")
myolapp.Session.Logon
Set myitem = myolapp.CreateItemFromTemplate("D:\Google Drive\HERRAMIENTAS\ENVIAR CORREOS MASIVOS\Publica.oft")
myitem.Display 'or send
'
myitem.To = Range("B" & i).Value 'Destinatarios
myitem.Cc = Range("C" & i).Value 'Con copia
myitem.Bcc = Range("D" & i).Value 'Con copia oculta
myitem.Subject = Range("E" & i).Value '"Asunto"
myitem.HTMLBody = 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 myitem.Attachments.Add archivo
Next
myitem.Send 'El correo se envía en automático
'dam.Display 'El correo se muestra
Next
MsgBox "Correos enviados", vbInformation, "
