/*===========( Send queued information per Email )===========*/
MailQueued: Procedure
Parse Arg an, vom, titel

If titel = "" Then titel = "Kein Titel angegeben"

Queue
Queue "Diese Email wurde automatisch erstelt."
 
/* Enter your XMITIP Exec Dataset here and activate it. */
dsnEXE = "'hlq.xmitip.exec'" 
"ALTLIB ACT APPLICATION(EXEC) DATASET("dsnEXE")"
 
x = Outtrap( "EIN." )
Address TSO
  "xmitip" an ,
     "subject '"titel"'" ,
     "sensitivity COMPANY-CONFIDENTIAL" ,
     "from" vom ,
     "msgq"
Address
x = Outtrap( "OFF" )
 
/* Deactivate your XMITIP environment */
"ALTLIB DEA APPLICATION(EXEC)"
 
Return erc
/*** End MailQueued ***/

Beispiel 1

rc = MailQueued( "jakoxx§gmx.de", "jrk§jakoxx.de", "Test" )

Ergebnis 1

0   /* wenn problemlos versendet */

Beispiel 2

an = "jakoxx§gmx.de"
vom = "jrk§jakoxx.de"
rc = MailQueued( an, vom )

Ergebnis 2

0   /* wenn problemlos versendet */