SMTP Server in CDO

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?

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

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.

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.

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

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.

Try this one, it works for me:

VB Code:

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.