Re: QtmmSendMail - Send Mail API

[bdietz@xxxxxx]

Rob watch the codepage on the copy to stream file.
CPYTOSTMF FROMMBR('/qsys.lib/LIBRARY.lib/qclsrc.file/SRCMBR.mbr')
TOSTMF('/as400/testifs.txt') STMFOPT(*REPLACE) STMFCODPAG(437)


When I did it this way I was able to open the file with notepad.

Bryan Dietz
3X Corp.








Rob Berendt <rob@dekko.com> on 08/12/98 12:38:32 PM

Please respond to MIDRANGE-L@MIDRANGE.COM
                                                              
                                                              
                                                              
 To:      MIDRANGE-L@MIDRANGE.COM                             
                                                              
 cc:      (bcc: Bryan Dietz/Columbus/3X Corp)                 
                                                              
                                                              
                                                              
 Subject: Re: QtmmSendMail - Send Mail API                    
                                                              






Thank you for the tip about the blank line.  That fixed problem #2.  I am
still having problem #1 with the CPYTOSTMF command.  Suggestions would be
much appreciated.



twmac@mindspring.com on 08/12/98 11:06:17 AM
Please respond to MIDRANGE-L@MIDRANGE.COM@Internet
To:  MIDRANGE-L@MIDRANGE.COM@Internet
cc:
Subject:  Re: QtmmSendMail - Send Mail API
Leave a blank line between the message header and the body.
At 08:54 AM 8/12/98 -0500, you wrote:
>Many thanks to those whose earlier email inspired me to use this.  I've
been using SNDDST.  Frustrations with SNDDST include the mandatory Subject
line that is ignored, this is a bug in my mind.  Also lack of formatting on
a simple message.
>
>I've received some sample RPGLE code from one of the Redbook authors and
it is a start.
>
>Thanks to Patrick Townsend for pointing out that QtmmSendMail is in the
service program QTMMSNDM.  I've wrote the books people that this should be
included in the manual.  This was my first RPGLE program that I bound a
service program into.  (Good thing I am in the middle of taking that ATS
RPGLE course!)
>
>The problems I am having are twofold.
>
>Problem 1)  Getting the QSYS system file into the IFS.  I used CPYTOSTMF.
However when I opened the file using Notepad it was all hieroglyphics.
What options should I be using on the CPYTOSTMF command?
>
>Problem 2)  Format of the file to send.  At first I typed in 'Hi ya' in
the IFS file using Notepad.  I never received the email.  Then I typed in:
>From:  rob@dekko.com
>To:  rob@dekko.com
>Subject:  Test
>This is a test.
>
>I received the From, To and the subject.  (Tangent, both of the
rob@dekko.com got translated into Rob Berendt/DEKKO@DEKKO when it came into
my Notes.)  I never received the body of my message.  Am I missing some
keyword such as Body:?
>
>Group Dekko Services, LLC
>Rob Berendt, CCP
>Dept 01.073
>PO Box 2000
>Kendallville IN 46755
>219.347.3100 ext 70560
>219.349.2005 fax
>rob@dekko.com
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
>| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
>| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---
>
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---



+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---