Macro para enviar correos con firma de manera automática.
Dante es agradable saludarte nuevamente.
En primer lugar quiero agradecerte la gran ayuda que me das, y aprovecho ello para pedirte que por favor me ayudes nuevamente. Lo que necesito es una macro que envié correos, pero que también cargue la firma que ya está establecida en el Outlock (la firma contiene texto e imagen).
Te expreso mis agradecimientos de antemano.
1 Respuesta
En un correo nuevo envíame el último archivo que tienes con la macro funcionando.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Jaime Isahì Pillaca Contreras” y el título de esta pregunta.
Dante ya te mande el archivo, gracias
H o l a:
Te anexo la macro para enviar la firma.
Tienes que cambiar en la macro la ruta donde tienes tu archivo con la imagen. Yo le puse "C:\trabajo\fotos\" pero tienes que poner tu ruta.
ruta = "C:\trabajo\fotos\"
También tienes que cambiar el nombre del archivo, yo le puse "imagen.gif" pero tienes que poner tu archivo. Si no tienes la imagen en archivo tienes que crear la imagen y guardarla en una ruta.
arch = "imagen.gif"
'***Macro Para enviar correos
Sub correo()
'Por.Dante Amor
col = Range("I1").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"
If Range("G" & i).Value = "" Or Not IsNumeric(Range("G" & i).Value) Then
n = 1
Else
n = Range("G" & i).Value
End If
'dam.SendUsingAccount = dam.Session.Accounts.Item(n) '
'
For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
archivo = Cells(i, j).Value
If archivo <> "" Then dam.Attachments.Add archivo
Next
ruta = "C:\trabajo\fotos\"
arch = "imagen.gif"
dam.Attachments.Add ruta & arch
dam.Display 'El correo se muestra
dam.HtmlBody = _
"<HTML> " & _
"<BODY>" & _
"<P>" & Cuerpo & dam.HtmlBody & "</P>" & _
"<img src=cid:" & arch & " height=40 width=40>" & _
"</BODY> " & _
"</HTML>" 'Con esta parte se agrega la firma
dam. Display 'El correo se muestra
dam. Send 'El correo se envía en automático
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
