>>*----- Code for testing ---------------------------- >>Local o >>o = CreateObject("CDO.Message") >> >>* This section provides the configuration information for the remote SMTP server. >> >>o.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 >>o.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay.welkin.com.hk" >>o.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 >>o.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T. >>o.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 >>o.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 >>o.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="MyUsername" >>o.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="MyPassword" >>o.Configuration.Fields.Update >> >>o.Subject="Example" >>o.From="ben@mymailserver.com.hk" >>o.To="myhotmailaccount@hotmail.com" >>o.TextBody="This is a test" >>o.Send >>