RE: EMAIL ENABLED FOXPRO APP
Amerriwether
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
anthony_m...@yahoo.com
"aferguson" wrote:
> 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 = "xxxx...@yahoo.com"
> objEmail.To = "xxxx...@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") =
> "xxxx...@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
>
> --
> A. Ferguson