Enviar un mail desde Excel con Outlook con archivo adjunto
Recurro a ti porque me has ayudado mucho antes y me encanta la forma simple en que trabajas.
Tengo la siguiente macro que encontre en otro post que contestaste.
Sub correo 5b
Set dam=CreateObject("outlook.application").createitem(0)
Dam.To = Range (S8)
Dam.CC = Range (T8)
Dam.BCC = Range (U8)
Dam.Subject = Range (V8)
Dam.Body = Range (W8)
archivo = Range (X8)
Dam.Attachments = Add archivo
Dam.Display
End Sub
Lo que no me ha funcionado es poner bien la ruta del archivo, por lo que no se si se puede adjuntar como pdf o excel desde la misma forma que uno lo hace desde la pestaña archivo\enviar como\ enviar como pdf
1 Respuesta
¿Pero cuál archivo quieres adjuntar?
¿El mismo archivo que tiene la macro? ¿Pero guardado como pdf?
Entonces, primero lo debes guardar como pdf y después enviar:
Sub correo5b()
'Por.Dante Amor
ruta = ThisWorkbook.Path & "\"
punt = InStrRev(ThisWorkbook.Name, ".")
arch = Left(ThisWorkbook.Name, punt - 1)
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Set Dam = CreateObject("outlook.application").createitem(0)
Dam.To = Range("S8")
Dam.CC = Range("T8")
Dam.BCC = Range("U8")
Dam.Subject = Range("V8")
Dam.Body = Range("W8")
Dam.Attachments.Add ruta & arch & ".pdf"
Dam.Display
End SubRevisa que la celda en Range( ) debe ir entre comillas ""
Cambia .Display por .Send para enviar el correo.
Saludos. Dante Amor
Recuerda valorar la respuesta.
