Excel envía mail con Outlook adjuntando libro y archivo PDF



Es mu común para quien trabaja constantemente con Excel enviar archivos en PDF, ya sea a clientes, proveedores, etc.; enviar mail con Excel ha sido bastante desarrollado en esta web en post como enviar un mail con Excel, crear alertas y enviar mail; macro emite aviso y envía mail a varios destinatarios; pero todas estas macros hacían referencia a configurar directamente el servidor SMTP de Gmail, Yahoo o Hotmail; los usuarios de Outlook no tenían ningún ejemplo en esta web hasta que se publiacarón una gran cantidad de ejemplos sobre enviar mail utilizando Outlook como envío de mail utilizando Outlook y adjuntando una sola hoja y envío de mail mediante Outlook adjuntando todo el libro, envío de mail adjuntando un link, hyperlink ó hipertextoenvio de mail utilizando Outlook y adjuntando una sola hoja y envio de mail mediante Outlook adjuntando todo el libro.

Si estás usando macros para automatizar tu libro de Excel seguramente te es necesario saber 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.

Este ejemplo permite mandar un mail desde Excel utilizando Outlook adjuntando el libro actual y un archivo en PDF, la macro toma la dirección del archivo que tiene la macro, en esta dirección se guarda un archivo temporal en xlsx y en PDF.

Una vez creados estos archivos se procede a enviar el mail, el destinatario se obtiene de las celda E3, lo cual se hace a los fines prácticos para que cada usuario que baje el ejemplo agregue su correo electrónico en forma fácil presione el botón y verifique en su casilla de correo el mail enviado, no obstante se puede poner directamente en la macro o bien se puede hacer un bucle para enviar varios correos a la vez, cada uno puede modificar el ejemplo a la necesidades particulares.

Desde el link del final se podrá descargar el ejemplo para ver su funcionamiento, el código es libre para que cada uno lo modifique a gusto u placer, recomiendo descargar el archivo y ver el vídeo explicativo para un entendimiento más fácil, en el caso que no tengas mucha experiencia en programación de macros.

Establecido el destinatario se procede a escribir el encabezado y el cuerpo del mail, el cuerpo o body del mail se forma concatenando el nombre del archivo y una variable que es el día actual, posterior a ellos de adjuntan los archivos y procede a escribir el comando que enviará el mail, si Outlook está ejecutándose el mail se envía en forma inmediata en caso contrario quedan en la bandeja de salida cuando se abra Outlook se enviarán los mails en forma automática, si es que este programa está configurado así.

Realizado todo este procedimiento, sale un msgbox avisando que el mail se envió correctamente en caso contrario un mensaje de error con su número; al finalizar la macro elimina los archivos creados, ello para no crear archivos en forma innecesaria, si es preciso basta con comentar o borrar el comando kill que se encuentra al final; por último libera las variables y finaliza la macro que permitió enviar como adjunto el libro actual y un archivo PDF todo ello desde Excel utilizando Outlook.

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 SendMailbyOutlookCLibroYPdf()
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 & ".xlsx"
mydoc1 = Path & fn & ".pdf"
Dest = Cells(3, "E")
Sheets(fn).Copy
ActiveWorkbook.SaveAs Filename:=mydoc, FileFormat:=xlOpenXMLWorkbook
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        mydoc1, 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
    .attachments.Add mydoc1
    .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
Kill mydoc1
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