Can't send email smtp transport error

[joch]

Hi all, for reasons beyond my understanding i'm having trouble sending automatic mail from a web form, CAN SOMEONE PLEASE HELP... MY SITE IS RUNNING OFF GODADDY.COM

Private Sub xxxxx()
        sendto = "[e-mail]"
        Dim iMsg As Object
        Dim iConf As Object
        Dim Flds As Object
        iMsg = CreateObject("CDO.Message")
        iConf = CreateObject("CDO.Configuration")
        iConf.Load(-1) ' CDO Source Defaults
        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") = "[e-mail]"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
            .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") = 25
            .Update()
        End With
 
        strbody = "Sample message " & time
        With iMsg
            .Configuration = iConf
            .To = sendto
            .CC = "[e-mail]"
            .BCC = ""
            ' Note: The reply address is not working if you use this Gmail example
            ' It will use your Gmail address automatic. But you can add this line
            ' to change the reply address .ReplyTo = "[e-mail]"
            .From = "[e-mail]"
            .Subject = "subject"
            .TextBody = strbody
            .Send()
        End With

Please any help will be appreciated

[Frinavale]

Check out this article: A Quick Reference on How To Send An Email Using .NET

It's hard to give you a hand when you are using "Object" types instead of the appropriate classes used for sending emails in ASP.NET.

-Frinny