Enviar correo electrónico desde la cuenta Gmail con Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

Mediante macros podemos enviar correo electrónico desde la cuenta Gmail con Excel.

Enviar correo electrónico desde la cuenta Gmail con Excel
  • AGREGAR REFERENCIAS
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de menú / Herramientas / Referencias.

    Ventana de referncias VBAProject
  4. Activar la casilla: Microsoft CDO for Windows 2000 Library.

  5. Pulsar el botón: Aceptar.

 
  • CREAR MACRO
  1. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

    Explorador de Proyectos con módulo1 seleccionado
  2. Escribir el código de la macro:

    Sub Sub Gmail_Adjunto()

    Dim mi_correo As CDO.Message
    Dim mi_configuracion As CDO.Configuration
    Dim mi_gmail As Variant
    Dim mi_ruta As String

    On Error GoTo errHandle

    Set mi_correo = New CDO.Message
    Set mi_configuracion = New CDO.Configuration

    mi_configuracion.Load -1

    Set mi_gmail = mi_configuracion.fields

    With mi_correo

    .Subject = "Asunto del correo" .From = ""
    .To = "usuario1@gmail.com"
    .CC = "usuario2@gmail.com"
    .BCC = ""
    .TextBody = "Mi texto del cuerpo del mensaje"
    .AddAttachment "D:\Documentos\Informe.docx"

    End With

    mi_ruta = "http://schemas.microsoft.com/cdo/configuration"

    With mi_gmail

    .Item(mi_ruta & "/smtpusessl") = True
    .Item(mi_ruta & "/smtpauthenticate") = 1
    .Item(mi_ruta & "/smtpserver") = "smtp.gmail.com"
    .Item(mi_ruta & "/smtpserverport") = 465
    .Item(mi_ruta & "/sendusing") = 2
    .Item(mi_ruta & "/sendusername") = "mi_cuenta@gmail.com"
    .Item(mi_ruta & "/sendpassword") = "mi contraseña gmail"
    .Update

    End With

    mi_correo.Configuration = mi_configuracion
    mi_correo.Send
    MsgBox "Email enviado con éxito", vbInformation

    exit_line:

    Set mi_correo = Nothing
    Set mi_configuracion = Nothing

    Exit Sub

    errHandle:

    MsgBox "Error: " & Err.Description, vbInformation
    GoTo exit_line

    End Sub

    .Subject: Escribir el asunto del mensaje.
    .From: Escribir el asunto del mensaje.
    .To: Escribir el destinatario o los destinatarios principales.
    .CC: Escribir destinatarios con copia.
    .BCC: Escribir destinatarios con copia oculta.
    .TextBody: Escribir para el cuerpo del mensaje.
    .AddAttachment: Escribir la ruta para archivo adjunto.
    .Item(mi_ruta & "/sendusername"): Escribir la cuenta de Gmail.
    .Item(mi_ruta & "/sendpassword"): Escribir la contraseña de la cuenta Gmail.

  3. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

 
  • EJECUTAR MACRO
  1. Ejecutar la macro "Gmail_Adjunto".

  2. Mostrará mensaje de confirmación de envío.

    Mensaje de confirmación email enviado con éxito
 
  • SEGURIDAD GMAIL

Al enviar el correo electrónico, la seguridad de Gmail nos remitirá un mensaje de seguridad en Excel.

Mensaje de Error

En la bandeja de entrada recibiremos un correo de Gmail:

Bloqueo de inicio de sesión
  1. Desde el navegador de Internet acceder a la web (Cuenta usuario, Acceso de aplicaciones poco seguras): https://myaccount.google.com/lesssecureapps

  2. Activar: Permitir el acceso de aplicaciones poco seguras. Siempre que confiemos en la seguridad...

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

8 comentarios en “Enviar correo electrónico desde la cuenta Gmail con Excel

  • Si en tu empresa cuentan con dominio propio y deseas usar tu correo para enviar correos masivos o individuales de Excel, al igual que con cuentas de GMAIL, es necesario tener a la mano los datos de: Servidor SMTP, el puerto, correo y contrasena .

  • Buenas,
    Necesito hacer un envio masivo de mails, e intentado utilizar tus macros pero no soy capaz.
    Necesito enviar un mail acada personaque sea personalizado y adjuntarle un archivo pdf.

    Me puedes ayudar porfavor

  • Necesito enviar un correo a varias personas, este debe ser personalizado y deseo saber como lo puedo hacer???
    Mi correo se abre desde gmail y es un correo de una empresa

  • Hola, muchas gracias por este programita, me funciona bien pero después de mandar el correo Excel se bloquea, exactamente no me deja ejecutar otra macro, es como si estuviera todavía ejecutando el código, tengo que cerrar Excel y volver a abrirlo para que me funcione, por que puede ser?.
    Gracias por tu tiempo.

Deja una respuesta

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

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.