¿Como agregar la personalización del cuerpo del mensaje con imagen y pie de firma, a las MACRO de correo masivo que has enviado?
Descargué unas macros que publicaron para hacer envío masivo de correos, con adjuntos diferentes, asuntos diferentes. https://www.dropbox.com/s/ccu9fzc0s2c45cy/correo5b.xlsm?dl=0
Sería posible agregarle al cuerpo del mensaje una personalización, es decir; imagen, firma, palabras destacadas, etc., ¿para enviar un mensaje desde outlook?
Elena Arenas Campos
1 Respuesta
H o l a :
Te anexo las macros con la versión para enviar correos masivos con firma e imagen.
Las siguientes macros van en los eventos de la hoja1
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
On Error Resume Next
If Target.Count > 1 Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Not Intersect(Target, Range("B:B")) Is Nothing Then
For Each t In Target
If t.Value <> "" Then
Cells(t.Row, "G").Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:="Hoja1!C" & t.Row, _
TextToDisplay:="Insertar archivo"
End If
Next
Cells(Target.Row, 3).Select
End If
End Sub
'
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Por.Dante Amor
linea = ActiveCell.Row
'col = Range("H1").Column
col = Cells(linea, Columns.Count).End(xlToLeft).Column + 1
If col < 8 Then col = 8
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione uno o varios archivos"
.Filters.Clear
.Filters.Add "archivos pdf", "*.pdf*"
.Filters.Add "archivos de excel", "*.xls*"
.Filters.Add "Todos los archivos", "*.*"
.FilterIndex = 2
.AllowMultiSelect = True
.InitialFileName = ThisWorkbook.Path & "\"
If .Show Then
For Each ar In .SelectedItems
'rutaarchivo = .SelectedItems.Item(i)
Cells(linea, col).Value = ar
col = col + 1
Next
End If
End With
End SubLa siguiente macro va en un módulo
'***Macro Para enviar correos con adjunto diferente y firma
Sub correo()
'Por.Dante Amor
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>" & _
"<P>" & Cuerpo & "</P>" & _
"<img src=cid:" & logo & " height=40 width=40>" & _
"<br>" & "<b>" & Range("I2").Value & "</b>" & _
"<br>" & Range("J2").Value & _
"<br>" & Range("K2").Value & _
"</BODY> " & _
"</HTML>"
'dam.Display 'El correo se muestra
dam.Send 'El correo se envía en automático
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End SubLos datos deberán ir como se muestra la imagen:
Si quieres que te envíe el archivo, escríbeme a mi correo.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “ELENA ARENAS” y el título de esta pregunta.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Dante, hice la prueba, pero no me resulta y me aparece un mensaje de error. Envío pantallazo por correo. Además envío pie de firma para para que lo puedas ver.
Elena Arenas Campos
Tienes que poner tus archivos los nombres de los archivos que vas a enviar.
También en la celda L2 tienes que poner el nombre del archivo que contiene la imagen que quieres enviar en el correo.
