On 10/27/2011 3:47 PM, Mike Copeland wrote:
> BLAT will work fine, but you need an SMTP server that will accept and
> forward the message to the recipient's domain. Mail sources (Outlook
> Express, Thunderbird, etc.) are not SMTP servers.
>
> I would set up a free Google GMail account and use the Google SMTP
> servers (all free). BLAT is very easy to use and rock solid. The
> instructions for sending through the Google SMTP servers are on the
> Google website.
>
> I've found that Google's SMTP servers are faster and more reliable than
> Yahoo's.
>
> Mike
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.
--
Mike Babcock, MCP
MB Software Solutions, LLC
President, Chief Software Architect
http://mbsoftwaresolutions.com
http://fabmate.com
http://twitter.com/mbabcock16
_______________________________________________
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.
