If you want to squirt SMTP mails straight out, instead of fighting with
BLAT.DLL why not use this:
http://activex.sourceforge.net/essmtp.html
Sample VFP Code::
objSMTP = CREATEOBJECT("essmtp.essmtpctrl.1")
objSMTP.DestinationAddress = "email /AT/ address .DO.T com"
objSMTP.Domain = "mydomain.ie"
&& This is for your ISP who you're forwarding through
objSMTP.SMTPServer = "159.134.198.135"
&& Your ISP's SMTP server.
objSMTP.SourceAddress = "me@mydomain.ie"
objSMTP.SourceMailer = "Source description text for the email
header"
objSMTP.SourceName = "Sender display name (as opposed to email
address), just text."
objSMTP.Subject = "Subject Line"
objSMTP.AddAttachment("c:\my attachment.txt", 0)
objSMTP.MailData = "Email body text."
x = objSMTP.SendMail
IF x != 1
\ ALLTRIM(STR(objSMTP.ErrorNo))
ENDIF
objSMTP = .NULL.
RETURN
I think it's free if you register it. Of course this involves
registering an OCX.
Take the morning off and save your business money!
The next free Opera II and Quantum Payroll Seminar is taking place on
the 22nd of June in the IMI Sandyford - To book contact
dee.obrien /AT/ qbs .DO.T ie or ph: 01-2796666
Alan Bourke
Opera Support And Development
Quantum Business Solutions,
Quantum House,
Temple Road,
Blackrock,
Co. Dublin,
Ireland
Tel +353 1 2796666
Fax +353 1 2832384
http://www.qbs.ie
http://www.aesop.ie
** Need help running FoxPro apps on modern networks ?
http://www.hentzenwerke.com/catalogpricelists/painlesse.htm
Any views expressed in this message are the sender's own, and do not
represent the views of Quantum Business Solutions except where the
sender specifically states otherwise. Only those persons or entities to
which it is addressed should read this e-mail. Quantum Business
Solutions accept no liability for the consequences of any person or
entity other than the intended recipient(s) acting, or refraining from
acting, on the contents of this e-mail. If you have received this e-mail
in error, please delete this document. Any form of reproduction,
dissemination, copying, disclosure, modification, distribution and/or
publication of this e-mail is strictly prohibited without prior
agreement with Quantum Business Solutions.
-----Original Message-----
From: profoxtech-bounces@leafe.com [mailto:profoxtech-bounces /AT/ leafe .DO.T com]
On Behalf Of profox@mbsoftwaresolutions.com
Sent: 26 May 2004 19:32
To: profoxtech /AT/ leafe .DO.T com
Subject: Blat.dll woes
This fails:
LOCAL lcDLLName, lcTestString, lnResult, lcCmd lcDLLName="blat.dll"
lcDLLName=fullpath(lcDLLName)
DECLARE INTEGER Send in &lcDLLName STRING blatstring
lcTestString=pcFileIn + [ -t mbabcock@mbsoftwaresolutions.com -s 'test
subject' -base64 -attach blat.dll] lcCmd = "Send(lcTestString)"
lnResult = &lcCmd && using macro expansion to get around Build error
created because of Send reference ? lnResult
Why??!?
--Michael
Michael J. Babcock, MCP
President/CEO, MB Software Solutions
http://mbsoftwaresolutions.com
"Helping your team work smarter, not harder, to better your bottom
line."
[excessive quoting removed by server]
©2004 Alan Bourke |
