Insertar firma en correo creado con macro en excel 2013
publicado
Buenas noches.
Soy yo de nuevo. Estimados, en esta oportunidad quisiera por favor me orientaran sobre como incluir de manera automática la firma que grabé en outlook a los correos que me genera el archivo que anexo. El mismo lo utilizaré para enviar correos masivos. La ruta donde tengo la firma es: C:\Users\Administrador\AppData\Roaming\Microsoft\Firmas\Firma Jezreel.htm
Y esta es la macro que ejecuta el envío de los correos
'***Macro Para enviar correos
Sub correo()
'Por
col = Range("J5").Column
For i = 6 To Range("D" & Rows.Count).End(xlUp).Row
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = Range("D" & i) 'Destinatarios
dam.CC = Range("E" & i) 'Con copia
dam.Bcc = Range("F" & i) 'Con copia oculta
dam.Subject = Range("G" & i) '"Asunto"
dam.body = Range("H" & 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.display 'El correo se envía en automático
'dam.send 'El correo se muestra
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub [/CODE]
Buenas noches.
Soy yo de nuevo. Estimados, en esta oportunidad quisiera por favor me orientaran sobre como incluir de manera automática la firma que grabé en outlook a los correos que me genera el archivo que anexo. El mismo lo utilizaré para enviar correos masivos. La ruta donde tengo la firma es: C:\Users\Administrador\AppData\Roaming\Microsoft\Firmas\Firma Jezreel.htm
Y esta es la macro que ejecuta el envío de los correos
En la espera de su valiosa ayuda.
CORREOS MASIVOS INTERMEDIARIOS (modelo).xls.zip