Enviar emails de GMAIL o dominio propio desde Excel usando CDO y VBA @EXCELeINFO

Este tutorial ya lo venía pensando desde hace mucho tiempo y ahora es tiempo de hacer realidad. En otro tutorial ya habíamos visto cómo enviar correos electrónicos desde Excel usando como cliente de correo Outlook de Office. Aunque dicho tutorial es muy útil, estábamos obligados a tener Outlook de Office, además de tener una cuenta configurada, tanto cuenta gratuita o cuenta de empresa con domino propio.

Pero siempre habrá más opciones de hacer una misma cosa en Excel, es por eso que en este tutorial veremos cómo enviar emails desde Excel sin la necesidad de tener un cliente de correo instalado en nuestra computadora. Lo anterior lo haremos haciendo uso de la librería CDO o Collaboration Data Objects.

Existen varias ventajas al utilizar CDO en lugar de la integración con Outlook de Office:

- No dependes de un cliente de correo electrónico en tu PC.
- El código vba expuesto en el tutorial funciona a partir de Office 97 y hasta este momento en Office 2016. Seguro en Office 2019.
- Se puede enviar un rango de celdas como cuerpo de correo.
- Se pueden adjuntar cualquier tipo de archivo, tales como imágenes, archivo de Excel, Work, PDF, etc.
- Puedes configurar cualquier correo, sólo contando con las configuraciones de Servidor SMTP, Puerto SMTP, usuario y contraseña (en la mayoría de los casos).

CASO PRÁCTICO

Antes ir al código VBA de la macro, veamos el caso práctico que resolveremos. Tenemos una lista de correos donde también tenemos el saldo deudor de clientes, así como la fecha de vencimiento de su deuda y de la misma manera, tenemos el archivo adjunto que le mandaremos a cada cliente.

Twitter | @EXCELeINFO
Twitter | @SergioACamposH

Descargar EXCELeINFO addin:

Photo by Ethan Hoover on Unsplash

[PUMPULLO]

Probé tu método con 13 correos y funciona razonablemente bien. En los próximos días lo probaré con datos más complejos enviados individualizados a 600 usuarios. Te comparto que los accesos de las cuentas de Google han cambiado un poco. Fantástica la explicación, pues efectivamente permite el despacho de correos masivos individualizados sin configurar un cliente, pero Google me llenó de avisos de advertencia.

[ExcelHechoFacil]

Que buen trabajo Sergio... Superas expectativas!!! Felicitaciones. 👏

[cristianvelasquez]

Sergio, no hay palabras para agradecer tu aporte tan magnífico con estos vídeos. Mil gracias y bendiciones para ti.

[juanduran]

Muchas gracias, este video era lo que estaba buscando, lo modifique para que tome valores ilimitados tomando de referencia otro de tus videos, gracias sergio

Filas =

For i = 2 To Filas

Estado = Cells(i, 5).Value

If Estado <> "SIN REGISTRO" Then 'El bucle de texto condicional toma el valor de referencia en forma inversa

Else

Next i 'La formula se cierra con

[leonardosantosfranco]

esto es otro nivel sigamos innovando para el bien

[Claudio_Rengifo]

Excelente aporte. Consulta como hago para enviar correos desde la cuenta de yahoo?

[oscarsantos]

Hola Sergio eres un genio de VBA, me gustan tus videos estoy estudiando los otros de enviar emails, son geniales sal2 brother pulgar arriba.

[juancardona]

Sergio, gracias por cada video que subes...

[milenagallego]

Muchas gracias me has salvado la vida. Saludos desde Colombia 🇨🇴

[yesenias.]

Muchas Gracias, muy practico, entendí todo.

[edwardfernandezrocha]

Excelente, mi estimado Sergio, lo haces muy sencillo, entendible, adaptable amis requerimientos, muchas gracias, exitos amigo.

[andyalvarez]

Excelente video y muy práctico, Felicidades. Tengo una duda, estaba practicando con su ejemplo, pero no puedo enviar el rango de celdas. me sale un error y viendo el código vi el apartado que indica que solo funciona en excel 2000 a 2007, Yo tengo el 2016 . ¿Será por eso que no me funciona? Muchas gracias

[diegoballen]

Hola Sergio, primero que todo felicitarlo por su gran trabajo, segundo cuando intento enviar el rango por el HTMLBody y comentareo el TextBody me sale un error "Se esperaba una variable o un procedimiento, no un modulo", no se que pude estar pasando, quedo super atento si me puedes ayudar.

[josezevallosuntama]

Estimado Sergio muy interesante el video, puedes hacer un video en el que envie correos masivos en donde no se adjunta el archivo excel, sino que se envie una imagen adjunta de una tabla de excel con su respectivo saludo y despedida, saludos.

[albertogonzalez]

Gracias Sergio, en verdad me es de gran utilidad está macro, Dios te bendiga.

[antoniospano]

Muchas gracias Sergio por tu video, me ayudo para un proyecto de envio de email con access

[Antonio]

Súper, Sergio. Excelente video. Gracias.

[Felix]

Excelente; como siempre, impresionado por tan buen trabajo. dios te bendiga...

[OmarGonzalez-tibd]

Muchas gracias Sergio. Muy útil y muy bien explicado el tutorial.😊

[jorgepilozo]

Muy buen aporte en mi caso quiero tengo puesto el tag de img para que se envie un logo en el detalle del correo pero al enviar me sale solo el recuadro pero no se ve la imagen