Enviar correo electrónico desde la cuenta Gmail con VBA

 

• 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.

   
   
   
   
   

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.

   
   
   
   
   

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"

.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 remitente 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.

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

http://trucosycursos.es/enviar-correo-electronico-desde-la-cuenta-gmail-con-excel/?cn-reloaded=1