Macro "Subject" de mail desde excel
Tengo una macro que envía cada hoja de excel a una dirección de correo electronico distinta.
Sub correo()
'Por.Dante Amor
ruta = ThisWorkbook.Path & "\"
arch = "Macro para correos.pdf"
For Each h In Sheets
h.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = h.[A1]
dam.Subject = "Tendencia"
dam.Body = ""
dam.Attachments.Add ruta & arch
'dam.Display
dam.send
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub
Funciona perfectamente. Sin embargo, el texto del correo:
dam.Body = ""
es extenso. He intentado colocar lo que necesitamos poner pero no le da formato y sale todo junto.
Queremos que quede:
"Estimados,
En el pdf adjunto podrán encontrar la información del mes actual.
Saludos,
Diego"
Pero lo que aparece es:
"Estimados, En el pdf adjunto podrán encontrar la información del mes actual.
1 Respuesta
H o l a:
Te anexo la macro actualizada.
Sub correo()
'Por.Dante Amor
ruta = ThisWorkbook.Path & "\"
arch = "Macro para correos.pdf"
For Each h In Sheets
h.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = h.[A1]
dam.Subject = "Tendencia"
dam.Body = "Estimados," & vbCr & _
"En el pdf adjunto podrán encontrar la información del mes actual." & vbCr & _
"Saludos," & vbCr & _
"Diego"
dam.Attachments.Add ruta & arch
'dam.Display
dam.send
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub
