home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma67.dms / ma67.adf / YAM / Rexx / rundschreiben.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-02-28  |  842 b   |  18 lines
  1. /* rundschreiben.rexx */
  2. ADDRESS YAM
  3. IF OPEN('ab','YAM:.addressbook','r') THEN DO /* öffne Adressbuch und     */
  4.   DO WHILE ~EOF('ab')                        /* gehe alle Einträge durch */
  5.     eintrag = READLN('ab')                   /* lese einen Eintrag       */
  6.     IF ~EOF('ab') THEN DO
  7.       PARSE VAR eintrag email name           /* extrahiere Email-Adresse */
  8.       WriteMailTo email                      /* Empfänger angeben        */
  9.       'WriteSubject "Wichtige Nachricht"'    /* Betreff                  */
  10.       WriteLetter 'RAM:Rundschreiben.txt'    /* Zu versendende Datei     */
  11.       WriteQueue                             /* in den Postausgang       */
  12.     END
  13.   END
  14.   CALL CLOSE('ab')                           /* schliesse Adressbuch     */
  15.   MailSendAll                                /* alle Mails versenden     */
  16. END
  17.  
  18.