SMTP Server in CDO

[Thaer]

I'm trying to send an email to a gmail address using CDO 2000 Library in Visual Basic 6. The problem is, I can't find a decent SMTP server. When I tried to use gmail's SMTP server (smtp.gmail.com) I got an error , -I believe- the cause of the error is Gmail's smtp server secuirty system (STRL or whatever), probably, CDO doesn't know how to communicate with that type of SMTP servers. I tried Hotmail's mx2.hotmail.com it works fine if the "rcpt to" address is a hotmaill address, but it wont work with any other addresses. I tried google's smtp.google.com but it rejected my "rcpt to" address (which is a gmail address), I tried few other smtp servers and they all rejected my "rcpt to" address too.

How can I solve this problem?

[dglienna]

Try this one. It has a server that was working last month.
55 people have downloaded it already.

http://vbforums.com/attachment.php?attachmentid=39531

[Thaer]

Thanks dglienna

Again, I get SMTP Error: 0 Timeout waiting for server response, so I guess the SMTP server is no good..

Still looking for a solution?? I'd really appreciate it if anyone has a solution.

[dglienna]

Did you read the txt file that I attached? The problem may be on your end.
Your ISP may be authenticating mail. Mine only works if I use my ISP username as the FROM address. The domain doesn't seem to matter, but things don't work if I want to send from [email protected] either.

[Thaer]

Problem solved. gmail-smtp-in.l.google.com works perfect if the rcpt to is gmail.

[MalcolmCarmen]

Just a general message to everybody else; most SMTP servers are configured so that they can't be utilized for spam, the filters generally limit traffic to incoming mail to local addresses and verified outgoing accounts.

[marius_pol]

Try this one, it works for me:

With Flds
          .Item(cdoSendUsingMethod) = 2 'cdoSendUsingPort 'remote server
          .Item(cdoSMTPServer) = "smtp.gmail.com"
          .Item(cdoSMTPServerPort) = 465
          .Item(cdoSMTPUseSSL) = True
          .Item(cdoSMTPConnectionTimeout) = 30 'timeout
          .Item(cdoSMTPAuthenticate) = cdoBasic
          .Item(cdoSendUserName) = "" 'user
          .Item(cdoSendPassword) = "" 'password
          .Item(cdoURLGetLatestVersion) = True
          .Update
    End With
        
    With iMsg
            Set .Configuration = iConf
            .To = txtTo.Text
            .From = txtFrom.Text
            .Subject = txtSubject.Text
            .TextBody = txtMain.Text
            Me.MousePointer = 11
            .Send
            Me.MousePointer = 0
    End With

Hope this helps.