Hi Sergey,
When I run VFP9.EXE as admin, the code shows the same error message.
Ben
>Does it work if you run it 'as admin'?
>
>>The following code successfully sends emails in the XpMode VPC of my Windows 7. However it shows the following message when I run it in the Windows 7 of the same computer.
>>
>>"OLE IDispatch exception code 0 from CDO.Message.1: The transport failed to connect to the server."
>>
>>Can anybody help?
>>
>>Ben
>>TIA
>>
>>
>>*----- 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
>>