On 2014-07-27 23:51, Sytze de Boer wrote:
Yes, I do use CDO since I use my Gmail account to send emails
I have not experienced any issues with this.
The most recent issue I had with it was >6 months ago when Gmail
insisted I
use the full "[email protected]" as the user name. Before that,
"someone"
was sufficient
This is the error message I get: http://screencast.com/t/gEEKNw5tX
And here's the code in my error handler for creating/sending the email
(with the password obviously changed):
IF this.lHelpdesk THEN && mjb 03-25-11 code was --> (llOnline OR
("JUST_A_TEST" $ tcErrMsg)) AND this.lEmailError AND tnErrNum <> 1705
AND (FILE("blat.dll") OR FILE("blat.exe")) THEN && mjb 05-16-05 added
llOnline
LOCAL cErrorMessageSubjectPrefix
cErrorMessageSubjectPrefix = "[BUG " + this.cVersion + "]" && mjb
10-08-03 added version to subject line
*** mjb 03/06/2010 - trying new email code
WAIT WINDOW NOWAIT "Emailing bug report to MB Software
Solutions...please wait."
SET STEP ON
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") = "MyFuNpAsSwOrD"
.UPDATE
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loConfig
.FROM = "[email protected]" && 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
ENDIF && this.lHelpDesk
Can you see what I'm doing wrong? I have the full [email protected] address
as the Sender.
tia,
--Mike
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.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.
