RE: Sending Email From RPG

["Peter Connell" <Peter.Connell@xxxxxxxxxxxxxxxxxxxx>]

There is a wrapper for the QtmmSendMail API in *srvpgm QTCP/QTMMSNDM
driven by a SNDEMAIL command.
This originated on News400 in 98, but it did not do binary attachments.
I upgraded it significantly to do this and also to embed a spool file as
the message body.

However, since Net.data comes free with every iSeries, then it is very
easy to make use of the Net.data email feature by writing a one line
script that will do most things including embedding the message as html.
@DTW_sendmail( emaddr, emaddr, sendHTML, "An emailed HTML
form","","","","","","","html" ) 
Then all you need is a few lines in a CLP to have Net.data run this
script.

Peter   

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike
Sent: Friday, 4 August 2006 9:04 a.m.
To: RPG programming on the AS400 / iSeries
Subject: Sending Email From RPG

At my previous job we had MAILTOOL from bvstools.com which I used to
send email from within RPG programs. While the RPG interface I had was
far from perfect, it did work. Before I go to my new employer with
suggesting purchasing that same product I want to see what other options
there are.

--
Mike Wills
http://mikewills.name - Blog
http://theriverbendpodcast.com - Podcast
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.



#####################################################################################
This correspondence is for the named person's use only. It may contain 
confidential or legally privileged information, or both. No confidentiality or 
privilege is waived or lost by any mistransmission. If you receive this 
correspondence in error, please immediately delete it from your system and 
notify the sender. You must not disclose, copy or rely on any part of this 
correspondence if you are not the intended recipient. Any views expressed in 
this message are those of the individual sender, except where the sender 
expressly, and with authority, states them to be the views of Baycorp 
Advantage. If you need assistance, please contact Baycorp Advantage on either 
:- Australia 133124 or New Zealand +64 9 356 5800