Excel - GMAIL desde Excel

Sub SendMail_Gmail()

'Fuente: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/337-enviar-correo-en-vb-con-microsoft-cdo.htm

Dim Email As CDO.Message

Set Email = New CDO.Message

correo = "tucorreo@gmail.com"

passwd = "tupassword"

destino = "destinatario@yahoo.com"

mensaje = "mensaje1"

cuerpo = "cuerpo"

Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"

Email.Configuration.Fields(cdoSendUsingMethod) = 2

With Email.Configuration.Fields

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)

    .Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

End With

With Email

    .To = destino

    .From = correo

    .Subject = mensaje

    .TextBody = cuerpo

    .Configuration.Fields.Update

    On Error Resume Next

    .Send

End With

If Err.Number = 0 Then

    MsgBox "El mail se envió con éxito", vbInformation, "Informe"

Else

    MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number

End If

End Sub

En esta parte del código pon tus datos:

correo = "tucorreo@gmail.com"

passwd = "tupassword"

destino = "destinatario@yahoo.com"

mensaje = "mensaje1"

cuerpo = "cuerpo"