Dumb question time: Is CDO universal on all Windows platforms? Win 2k and XP and 7?
Mike > On 4/12/2011 4:21 PM, Mike Copeland wrote: >> BAT is used by spammers. It's an automated email blaster program (never >> used it, just second-hand info.) Also called "The Bat" and likely other >> things. >> >> Mike >> >>> On 4/12/2011 4:15 PM, Mike Copeland wrote: >>>> Yeah, BLAT and BAT and pretty much every email client puts a signature >>>> in the header that can be detected and used for anything. AOL is getting >>>> to be a lot of fun to deal with too. > > I found that my internal BLAT email-send wasn't working any more either, > probably because of a crackdown on such kinds of emails as mentioned > here. I now use CDO also: > > WAIT WINDOW NOWAIT "Emailing bug report to MB Software > Solutions...please wait." > TRY > LOCAL lcSchema, loConfig, loMsg, 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 > > Got it here, iirc. Problem from Serg too. > _______________________________________________ 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.
