I'm up against it with time at the moment, so have just copied and pasted
some code in here. Rejig it to suit what you need to do....
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, STRING cAction, STRING cFileName, ;
STRING cParams, STRING cDir, INTEGER nShowWin
SELECT store
SCAN FOR quantity <> 0
IF quantity < reorder AND EMPTY(sentmail) && so if the qty is lower
than the reorder level and they haven't been sent a mail yet.
* Then collect some variables for the email
lcemail = "mailto:"; + ALLTRIM(store.email)
lcstock = ALLTRIM(stock)
lcqty = ALLTRIM(STR(quantity))
lcreorder = ALLTRIM(STR(reorder))
lcacmanemail = ALLTRIM(store.acmanemail)
* Then build the email
lcMail = lcemail + ;
"?CC=" + lcacmanemail + "&Subject= Low Stock Warning from Data
Direct"+ ;
'&Body=This is an automated email from the Data Direct WareHouse
Program to notify you that your stock:%0A' + lcstock +;
'%0Ais currently at a quantity of ' + lcqty + '%0Awhich is lower
than the reorder quantity of ' + lcreorder + ;
'%0A%0AIt is time to reorder more: ' + lcstock +;
'%0AAnd have it delivered to:%0A%0AData Direct Australia%0A31-33
Chifley Drive%0APreston VIC 3072'
ShellExecute(0,"open",lcMail,"","",1)
REPLACE sentmail WITH DATETIME()
endi
ENDSCAN
Regards,
Christina
-----Original Message-----
From: José Olavo Cerávolo [mailto:jocerav...@yahoo.com]
Sent: Thursday, 6 June 2013 12:31 PM
To: profoxt...@leafe.com
Subject: Email from foxpro
Hi All,
I was trying to find information about emailing from foxpro.
A customer requested a confirmation email to be sent to their clients when
they enroll for an event.
I tried searching the archives but I did not get any hits.
I don't want to be locked into using Outlook.
Thanks in advance,
Olavo.
José Olavo Cerávolo
http://www.ceravoloconsulting.com/
--- StripMime Report -- processed MIME parts --- multipart/alternative
text/plain (text body -- kept)
text/html
---
_______________________________________________
Post Messages to: ProFox@leafe.com
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/007901ce6275$57ee6520$07cb2f60$@datahouse.com.au
** 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.
