/*
   Nachrichten mit den gleichen Betreffen ADD, DEL, REQUEST und dem gleichen
   Empfänger werden automatisch 4bunden um Ordnung in das Spool zu bekommen.
*/

Betr.0 = 3
Betr.1 = "ADD"
Betr.2 = "DEL"
Betr.3 = "REQUEST"
Empfaenger = "MAPS@Art-Line.de"

OPTIONS RESULTS

/* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
PARSE ARG zpPort
IF zpPort == "" THEN
   zpPort = "ZPoint"
ADDRESS VALUE zpPort

'GUILOCK text="Bitte haben Sie etwas Geduld..."'

DO i = 1 to Betr.0
  SELECTMESSAGE "SUBJECT="Betr.i
   IF result >1 THEN DO
     more = 1
      DO while more
	MESSAGEINFO RECEIVER
		IF result = Empfaenger THEN DO
			MESSAGEINFO FULLSUBJECT
				IF result = Betr.i THEN	DO
					SAVEMESSAGEBODY "T:"Betr.i
					DELETE ONE
				END
		END
        JUMPTOMESSAGE LISTED
	more = (rc)
      END
	WRITEMESSAGE "FILE=T:"Betr.i "RECEIVER="Empfaenger "SUBJECT="Betr.i
   END
    JUMPTOMESSAGE 1
    SELECTMESSAGE NONE
END
GUILOCK OFF
/*EOS*/