Aplicación desarrollada por ud donde comunica excel con outlook
Primero agradecerte por la aplicación creada por ti donde comunicas excel con outlook. Me ha aliviado y reducido el tiempo de trabajo enormemente. Te escribía para consultar, debido a que estuve tratando de averiguar como insertar el pie de firma, debido a que el código al enviar los correos masivos no considera la firma. Habrá alguna forma de insertarla antes de enviar los correos.
Ojala me puedas apoyar,
Muchos saludos y gracias de antemano.
'***Macro Para enviar correos
Sub correo()
'Por.Dante Amor
col = Range("H1").Column
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = Range("B" & i) 'Destinatarios
dam.CC = Range("C" & i) 'Con copia
dam.Bcc = Range("D" & i) 'Con copia oculta
dam.Subject = Range("E" & i) '"Asunto"
dam.body = Range("F" & i) '"Cuerpo del mensaje"
'
For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
archivo = Cells(i, j)
If archivo <> "" Then dam.Attachments.Add archivo
Next
dam.send 'El correo se envía en automático
'dam.display 'El correo se muestra
Next
MsgBox "Correos enviados", vbInformation, "
End Sub
1 Respuesta
Prueba con la siguiente macro actualizada:
Sub correo()
'Por.Dante Amor
col = Range("H1").Column
For i = 2 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
dam.display 'El correo se muestra
dam.HtmlBody = cuerpo & dam.HtmlBody
dam.display
dam.send 'El correo se envía en automático
'
Next
MsgBox "Correos enviados", vbInformation, "CORREOS"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Muchas Gracias!!! la ultima molestia era para consultar, que me ingresa el pide de firma, pero se desconfigura el formato del texto del mensaje.
Estuve intentando pero no he podido arreglarlo,
Gracias por la ayuda !!!
No entendí lo que escribiste:
"que me ingresa el pide de firma, pero se desconfigura el formato del texto del mensaje."
Si es la configuración del tipo de letra, cuando se utiliza Html no toma el tipo de letra que tienes en la firma. Si requieres una configuración especial en el tipo de letra en la firma, tendría que crearse la firma dentro del código con Html.
Con mucho gusto te ayudo con todas tus peticiones.
Valora esta respuesta y crea una nueva pregunta en el tema de microsoft Excel. En el desarrollo de la pregunta escribe: "para Dante Amor". Ahí me describes con detalle lo que necesitas.
Sal u dos
