/*===========( 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."
 
dsnEXE = "'hlq.xmitip.exec'" /* Enter Your XMITIP Exec Dataset here! */
"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" )
 
"ALTLIB DEA APPLICATION(EXEC)"
 
Return erc
/*** End MailQueued ***/