home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
adm
/
arexx
/
adm-arexxmakros.lha
/
Ausdruck
/
Serienbrief_ASCII.adm
< prev
next >
Wrap
Text File
|
1995-06-04
|
935b
|
48 lines
/* $VER: Serienbrief_ASCII.adm 1.0 (13.5.95)
Druckt einen Brief an alle Einträge. Das Formular muß dazu
per Filerequester ausgewählt werden
(bspw. Serienbrief_ASCII.form).
von Jan Geißler.
*/
OPTIONS RESULTS /* Rückgabewerte einschalten */
reqname = "rexxreqtools.library"
if ~show("L", reqname) then
if ~addlib(reqname, 0, -30, 0) then do
say reqname "not found!"
EXIT
end
dir = ""
file = ""
title = "Briefformular öffnen"
ok = "OK"
filename = rtfilerequest(dir,file,title,ok)
if filename = "" then do
call rtezrequest("Keine Datei ausgewählt", "Abbruch")
EXIT
end
/* --- Druckschleife */
ADDRINMEM /* Anzahl Adr. im Speicher herausfinden*/
numadr = RESULT
ACTIVATEFIRST /* ersten Eintrag aktivieren */
DO FOR numAdr
GETADDRESS ADM
IF ADM.lastname = "" THEN DO
PRINTLETTER filename 3
END
ELSE DO
PRINTLETTER filename 1
END
ACTIVATENEXT
END