[IMail Forum] VB / CDO help

[Tyler Jensen]

Hi folks, I am not a developer, just the network admin. Our developer has a small VB app that is trying to connect to Imail and send email much like a mail client does. In this test an email was trying to be sent to mindspring. Can anyone shed some light on why this isn't working or we can check. If you need more info just let me know and I will get it from the developer.  Thanks for your help!!!

 

 

We have a Visual Basic application using CDO.

 

Source Code:

==========================================

Const cdoSendUsingPort = 2

 

    On Error GoTo errorhandler
    NewSendMail = False

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

 

    Set Flds = iConf.Fields
   

    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = gMainServer
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = gServerUser
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = gServerPwd
        
        .Item("http://schemas.microsoft.com/cdo/configuration/SMTPServerPort") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/SMTPAuthenticate") = 1
       
        .Update
    End With
    
    
    ' Apply the settings to the message.
    With iMsg
        Set .Configuration = iConf
        .To = sTo
        .From = Trim(sFrom)
        .Subject = sSubject
        .HTMLBody = sBody
        .Send
    End With

=====================================================================================

Error Message:

 

The server rejected one or more recipient addresses. The server response was: 550 not local host mindspring.com, not a gateway