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

Respuesta
2

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

Revisa que la celda en Range( ) debe ir entre comillas ""

Cambia .Display por .Send para enviar el correo.

Saludos. Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas