Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

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.

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.


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.


.

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