This looks ideal for a problem I have that has been waiting for a solution for a long time! I've never heard of CDO (not that that means a great deal!). Can I use it directly from XP SP3 and Win7 or do I need to install any additional software? John Weller 01380 723235 07976 393631
> I'd also go the gMail route and if you didn't want to use BLAT, you > could use CDO. I got this code here from someone last year: > > *** mjb 03/06/2010 - trying new email code > WAIT WINDOW NOWAIT "Emailing bug report to MB Software > Solutions...please wait." > TRY > LOCAL lcSchema, loConfig, loMsg, loError, lcErr > lcErr = "" > lcSchema = "http://schemas.microsoft.com/cdo/configuration/"; > loConfig = CREATEOBJECT("CDO.Configuration") > WITH loConfig.FIELDS > .ITEM(lcSchema + "smtpserver") = "smtp.gmail.com" > .ITEM(lcSchema + "smtpserverport") = 465 && รณ 587 > .ITEM(lcSchema + "sendusing") = 2 > .ITEM(lcSchema + "smtpauthenticate") = .T. > .ITEM(lcSchema + "smtpusessl") = .T. > .ITEM(lcSchema + "sendusername") = "[email protected]" > .ITEM(lcSchema + "sendpassword") = "pwd" > .UPDATE > ENDWITH > loMsg = CREATEOBJECT ("CDO.Message") > WITH loMsg > .Configuration = loConfig > .FROM = m.cErrorEmailFrom && "[email protected]" > .TO = "[email protected]" > .Subject = ALLTRIM(m.cErrorMessageSubjectPrefix) + [ Error ] + > ALLTRIM(TRANSFORM(tnErrNum)) + [: ] + ALLTRIM(tcErrMsg) > .TextBody = lcExtraStuff + CRLF + "USER: " + lcUser + CRLF + > "MEMORY: " + lcMem + CRLF + "OBJECTS: " + lcObj + CRLF + "MAC: " + lcMAC > + "IP: " + lcIP > .Send() > ENDWITH > CATCH TO loError > lcErr = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ; > [Line: ] + STR(loError.LINENO) + CHR(13) + ; > [Message: ] + loError.MESSAGE > FINALLY > RELEASE loConfig, loMsg > STORE .NULL. TO loConfig, loMsg > IF EMPTY(lcErr) > MESSAGEBOX("Your bug report has been sent.", 64, "Successful bug > report sent.") > ELSE > MESSAGEBOX(lcErr, 16 , "Problem sending bug report.") > ENDIF > ENDTRY > WAIT CLEAR > > > Apologies for forgetting who gave me this code here. It's probably in > the archives. Search for usuario I'm thinking to learn it's author. > _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[email protected] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
