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
¿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.
