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.

-- 
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.

Reply via email to