Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: vaishali maske
  Where is vaishali maske?
 mumbai
 India
 vaishali maske
 Tags
Subject: connecting thunderbird
Thread ID: 209532 Message ID: 209532 # Views: 3 # Ratings: 0
Version: Visual FoxPro 8 Category: Web Applications
Date: Monday, December 29, 2008 12:57:26 PM         
   


Hello all experts,

I use following code to connect thunderbird from visual foxpro 8.0 but it shows error that OLE IDispatch exception code 0 from CDO.Message.1:The "SendUsing" configuration value is invalid.Please tell me solution.


coding is:-
LOCAL lcSchema, loConfig, loMsg, loError, lcErr
lcErr = ""
* lcSchema = "http://schemas.outlook.com/cdo/configuration/"
lcSchema = "http://www.OCEANICPHARMACHEM.com/"
loConfig = CREATEOBJECT("CDO.Configuration")
WITH loConfig.FIELDS
.ITEM(lcSchema + "smtpserver") = "info@oceanicpharmachem.com"
.ITEM(lcSchema + "smtpserverport") = 465 && Port Name
.ITEM(lcSchema + "sendusing") = 2
.ITEM(lcSchema + "smtpauthenticate") = .T.
.ITEM(lcSchema + "smtpusessl") = .T.
.ITEM(lcSchema + "sendusername") = "vaishali@octchem.com"
.ITEM(lcSchema + "sendpassword") = "vaishali13"
.UPDATE
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loConfig
.FROM = "vaishali@octchem.com"
.TO = "vaishali@octchem.com"
* .DSNOptions=2 & if u define this setting mails are not save at sender end
.Subject = "This is my Test Message "
.TextBody = "This is a test Mail to " + ;
"autenticacion SSL side Gmail account"
.AddAttachment(GetFile())
.Send()
ENDWITH

ENTIRE THREAD

connecting thunderbird Posted by vaishali maske @ 12/29/2008 12:57:26 PM
RE: connecting thunderbird Posted by Yousfi Benameur @ 12/29/2008 2:19:26 PM