Excel enviar mail mediante Outlook adjuntando archivo PDF




En este poste voy a mostrar una macro Excel que envía mail mediante Outlook, adjuntando un archivo en PDF;  anteriormente se ha publicado como enviar un mail con Excel, como 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; en este oportunidad voy a mostrar un ejemplo sobre como enviar mail con Excel mediante Outlook con un archivo adjunto en PDF.

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.

Si se observa la codificación del ejemplo que se encuentra más abajo, se podrá ver que lo primero es determinar en forma automática el path o dirección del archivo actual, esto se realiza para guardar un archivo en PDF en forma temporal o no (si se saca el comando Kill), posterior a ello se guarda el archivo actual en PDF en la ruta mencionada.

Terminado este proceso la macro envía el mail, emitiendo un aviso en caso que se haya enviado correctamente, mediante un msgbox, si hubo algún error lo expone también.

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.

Sugiero descargar desde el link del final el archivo de ejemplo de este ejemplo denominado como enviar mail desde Excel con hyperlink, link o hipertexto; para poder observar su programación, que desde luego se puede modificar o adaptar dependiendo la necesidad de cada lector; el código se encuentra abierto y sin ningún tipo de restricción, solicito colabores con el mantenimiento de la página; como así también que lo compartas en tus redes sociales.

El vídeo insertado a continuación explica más en detalle acerca del funcionamiento de la macro que permite mandar mail con Excel utilizando Outlook y adjuntando hoja del libro activo en PDF; no olvides compartir y suscribir al canal.



Código que se inserta en un userform




Sub SendMailbyOutlookCSheetPdf()
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).Copy
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      

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      

Humor Gráfico última voluntad





Humor Gráfico






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


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


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