Web Wiz Hosting Support Forums - Sending Email with CDOSYS

Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message")

'This section provides the configuration information for the remote SMTP server.

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.WebSiteLive.net "

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

' If your server requires outgoing authentication uncomment the lines below and use a valid email address and password.

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="remove@email"

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password"

ObjSendMail.Configuration.Fields.Update

'End remote SMTP server configuration section==

ObjSendMail.To = "remove@email"

ObjSendMail.Subject = "Website Enquiry "

ObjSendMail.From = "someone@someone.net"

' we are sending a text email.. simply switch the comments around to send an html email instead

'ObjSendMail.HTMLBody = "this is the body"

ObjSendMail.TextBody = "this is the body"

ObjSendMail.Send (fails on this line)

Set ObjSendMail = Nothing

<%
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'Set and update fields properties
With objCDOSYSCon

        ' Specify the authentication mechanism to basic (clear-text) authentication cdoBasic = 1
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        'SMTP Server username
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "you@youremailhere.com"

        'SMTP Server password
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswordHere"


    'Out going SMTP server
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.websitelive.net"

    'SMTP port
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    'CDO Port (1=localhost 2=network)
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    'Timeout
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.Update
End With

    'Update the CDOSYS Configuration
    Set objCDOSYSMail.Configuration = objCDOSYSCon

With objCDOSYSMail
    'Who the e-mail is from
    .From = " <you@youremailhere.com>"

    'Who the e-mail is sent to
    .To = " <to@toemailhere.com>"


    'The subject of the e-mail
    .Subject = "Website Enquiry"

    'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
    .HTMLBody = "this is the body"
    '.TextBody = "this is the body"

    'Send the e-mail
    .Send
End with

'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>