Macro Excel envía mail adjuntando PDF con rango de datos solamente



En otros post anteriores como enviar un mail con Excel, crear alertas y enviar mail; macro emite aviso y envía mail a varios destinatarios; se ha mostrado como enviar mail con Excel, pero todas estas macros hacían referencia a configurar directamente el servidor SMTP de Gmail, Yahoo o Hotmail; en este oportunidad voy a mostrar un ejemplo sobre como enviar mail con Excel mediante Outlook adjuntando en PDF un rango de datos de un libro.

si deseas crear macros será necesario primero que sepas como seleccionar o referenciar celdas, en FORMAS DE SELECCIONAR O REFERENCIAR CELDAS CON VBA (Spanish Edition) encontrarás una excelente ayuda; si trabajas con fechas en Excel, fíjate en el siguiente link que te puede ser de utilidad FORMATOS Y FUNCIONES DE FECHA Y HORA DE MICROSOFT EXCEL (Spanish Edition)

 

Te recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

En este ejemplo se envía un archivo PDF con un rango de datos de un libro, para ello se copia el rango en un libro, luego se guarda este archivo como PDF y se envía el archivo borrando el archivo creado en forma temporal y cerrando sin guardar el archivo xlsx creado.

Posterior a todo procedimiento se envía el mail utilizando Outlook y sale un mensaje o msgbox avisando sobre el envío del archivo.

Este es uno de otros ejemplos que se publicaron recientemente, que se relacionan con el envío de mails utilizando Outlook y denominados, envio de mail utilizando Outlook y adjuntando una sola hoja y envio de mail mediante Outlook adjuntando todo el libro.

Al descargar el libro desde el link del final, podrás observar su programación y modificar de acuerdo a las necesidades de cada uno.

El vídeo explicativo te muestra como enviar mail con Excel utilizando Outlook, adjuntando el libro actual y un archivo en pdf; suscribe al canal y comparte con tus amigos.





Código que se inserta en un userform




Sub SendMailbyOutlookRangoenPdf()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim OA, OM As Object
Dim NA As Variant
Dim Path, TD, fn, mydoc As String
TD = Format(Date, "ddmmyyyy")
Path = ThisWorkbook.Path & "\"
fn = ActiveSheet.Name
mydoc = Path & fn & ".pdf"
Dest = Cells(3, "E")
Sheets(fn).Range("A2:B5").Copy
Workbooks.Add
Cells(1, 1).PasteSpecial xlPasteValues
Cells(1, 1).PasteSpecial xlPasteFormats
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        mydoc, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
ActiveWorkbook.Close False

Set OA = CreateObject("Outlook.Application")
Set OM = OA.CREATEITEM(0)
With OM
    .To = Dest 'Debes agregar mail destinatario ej "xxxxx@gmail.com"
    .CC = ""
    .BCC = ""
    .Subject = "Reporte de " & fn & " mensuales"
    .Body = "Estimado, en el archivo adjunto se encuentra el reporte de " & fn & " al " & TD & " confirmar recepción"
    .attachments.Add mydoc
    .Send
End With
If Err.Number = 0 Then
       SendMail_Gmail = True
       MsgBox "El mail con archivo adjunto fue enviado con éxito", vbInformation, "AVISO"
Else
       MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number
End If
Kill mydoc
Set OM = Nothing
Set OA = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends