Enviar correo desde Excel

[StephenQ]

Buenas tardes!!
Tengo el siguiente código:

Código:

Sub CDO_Mail_Small_Text_2()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"
    With iMsg
        Set .Configuration = iConf
        .To = "[email protected]"
        .CC = ""
        .BCC = ""
        .From = """YourName"" <[email protected]>"
        .Subject = "Tema"
        .TextBody = strbody
        .Send
    End With
End Sub

Todo funciona, pero al llegar a la sentencia .Send sale el error 80040213 "Error de transporte en la conexión al servidor", seben como lo puedo arreglar? (ya el correo de Gmail está configurado en POP)



Muchas gracias, cualquier ayuda será bienvenida...

[3pies]

Lo acabo de probar, y funciona correctamente, la verdad...

Si tienes algún problema, chequea la web del autor: http://www.rondebruin.nl/sendmail.htm

[StephenQ]

3pies Muchas gracias, la página ya le he leído y no he podido encontrar una solución... lo que me sorprende es que te funcione correctamente... igual seguiré buscando y cuando tenga una respuesta la postearé...

[3pies]

¿Antes te había funcionado?.

Se supone que tienes una cuenta de gmail, y que donde pone [email protected], has puesto tu cuenta, donde pone pass, has puesto tu password de gmail. Se supone que envías el correo a una cuenta existente, y no a [email protected], que es lo que aparece en el código.

Si todo lo tienes correcto, prueba a ver si te funciona enviando desde el puerto 587, en lugar del 465. Cambia el número 465 en la línea de código donde aparece, poniendo el 587.

Salu2

[Pablus00]

Aca tambien deberias poner tu cuenta de email (Gmail no permite enviar emails con remitentes distintos)

.From = """YourName"" <[email protected]>"