home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The AGA Experience 2
/
agavol2.iso
/
software
/
utilities
/
comms
/
yam1.0
/
rexx
/
rundschreiben.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-02-04
|
842b
|
18 lines
/* rundschreiben.rexx */
ADDRESS YAM
IF OPEN('ab','YAM:.addressbook','r') THEN DO /* öffne Adressbuch und */
DO WHILE ~EOF('ab') /* gehe alle Einträge durch */
eintrag = READLN('ab') /* lese einen Eintrag */
IF ~EOF('ab') THEN DO
PARSE VAR eintrag email name /* extrahiere Email-Adresse */
WriteMailTo email /* Empfänger angeben */
'WriteSubject "Wichtige Nachricht"' /* Betreff */
WriteLetter 'RAM:Rundschreiben.txt' /* Zu versendende Datei */
WriteQueue /* in den Postausgang */
END
END
CALL CLOSE('ab') /* schliesse Adressbuch */
MailSendAll /* alle Mails versenden */
END