Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

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


(adsbygoogle = window.adsbygoogle || []).push({});

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.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. 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 que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo como copiar varias tablas vinculadas de Excel a Wordcomo ejecutar una macro dependiendo del valor de una celdapasar datos de listbox a hoja de Excelbuscar en listbox mientras escribes en textboxcrear indice a hojas del mismo libro y al menú principalconectar Excel con Access e insertar datos y muchos ejemplos más.

function onYtEvent(payload) {
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}

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.


(adsbygoogle = window.adsbygoogle || []).push({});

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      

Entradas relacionadas

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Comentarios (8)

I’m the business owner of JustCBD company (justcbdstore.com) and I’m presently seeking to broaden my wholesale side of business. It would be great if someone at targetdomain can help me ! I thought that the very best way to do this would be to talk to vape shops and cbd retailers. I was hoping if someone could recommend a trusted website where I can purchase CBD Shops B2B Sales Leads I am currently reviewing creativebeartech.com, theeliquidboutique.co.uk and wowitloveithaveit.com. Not exactly sure which one would be the most suitable solution and would appreciate any assistance on this. Or would it be easier for me to scrape my own leads? Suggestions?

Responder

Great info. Lucky me I recently found your site by chance (stumbleupon). I have saved it for later!

Responder

Oh my goodness! Amazing article dude! Thank you so much, However I am experiencing issues with your RSS. I don’t know why I am unable to join it. Is there anybody getting similar RSS problems? Anyone who knows the answer will you kindly respond? Thanx!!

Responder

This is a topic that’s close to my heart… Cheers! Where are your contact details though?

Responder

Good day! I just want to offer you a big thumbs up for the excellent information you have right here on this post. I will be returning to your website for more soon.

Responder

That is a very good tip particularly to those new to the blogosphere. Short but very precise information… Many thanks for sharing this one. A must read post!

Responder

I would like to thank you for the efforts you have put in writing this website. I am hoping to see the same high-grade blog posts from you in the future as well. In truth, your creative writing abilities has inspired me to get my own website now 😉

Responder

I love what you guys tend to be up too. This sort of clever work and coverage!
Keep up the wonderful works guys I’ve added you guys to blogroll.

Responder