EMAIL ENABLED FOXPRO APP

[aferguson]

See code below. I am using the ip address for mail.yahoo.com, with my
appropriate username and password. I get the error:

"OLE IDispatch Exception code 0 from CDO.Message.1: The transport failed to
connect to the server."

objEmail = CreateObject("CDO.Message")
objconf = CreateObject("CDO.Configuration")
objEmail.From = "***@yahoo.com"
objEmail.To = "***@live.com"
objEmail.Subject = "This is my email test."
objEmail.Textbody = "A successful test, hopefully!"
objFlds = objConf.Fields
WITH objflds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"***@yahoo.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"xxxxxx"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"66.163.189.166"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.update
ENDWITH

objEmail.Send

[Amerriwether]

A Ferguson,
I read your post below and tried the same code and got the same error. Have
you been able to resolve this error yet? If you have, please tell me the
solution. I'd appreciate it.

Anthony Merriwether

Post by aferguson
See code below. I am using the ip address for mail.yahoo.com, with my
"OLE IDispatch Exception code 0 from CDO.Message.1: The transport failed to
connect to the server."
objEmail = CreateObject("CDO.Message")
objconf = CreateObject("CDO.Configuration")
objEmail.Subject = "This is my email test."
objEmail.Textbody = "A successful test, hopefully!"
objFlds = objConf.Fields
WITH objflds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"xxxxxx"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"66.163.189.166"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.update
ENDWITH
objEmail.Send
--
A. Ferguson