Hi, Eike M. Lang in response to your message... > On 16 Oct 99 14:32:51 +0100, Chris De Maeyer wrote: > > > How do I compose an outging message using the Arexx interface, in the > > provided Arexx commands I don't actually see a command to do this. > > Is there a SENDMAIL type of command? > > This can currently only be achieved using a semi-automated > process. Thanks for the info! Ok then, attached Arexx script does it... it needs "rexxreqtools" and the "rexxtricks" library. Usage notes are at the beginning of the script, but usage should be clear. Works for me. I hope however that future versions of Microdot2 will have more enhanced functions to make it full automatic. -- Regards, Chris De Maeyer <Visionary Software - http://fly.to/visionary> -- Attached file included as plaintext by Listar -- -- File: BulkMail.mdrx /* $VER: BulkMail.mdrx 1.0 (24-10-1999) ** ** By Chris De Maeyer <[EMAIL PROTECTED]> http://fly.to/visionary/ ** (C)1999 Visionary Software - All Rights Reserved ** Released as Freeware - but donations are welcome (email, postcard, money)! ** ** Description: Bulk send of mails into Microdot-II from requesters (semi-automatic). ** ** First create a textfile where the recipients addresses are listed ** ** [EMAIL PROTECTED] ** [EMAIL PROTECTED] ** ** Create the mail msg textfile, then run BulkMail from Microdot. ** ** Select the textfile containing the recipient addresses... ** Select the textfile which contains the mail message... ** ** When you click 'Select' all the NewMsg's will be placed on the screen, ** after which you can click 'Store' for every msg. ** ** Requires: Microdot-II v1.3 (� Oliver Wagner) ** rexxreqtools.library 1.3 (� Rafael D'Halleweyn) ** rexxtricks.library v38+ (� Jurgen Kohrmeyer) **/ OPTIONS RESULTS ADDRESS MD.1 /* adapt these to your system !!! */ defperspath = "RAM:" /* def path for persons "To:" file request */ defmsgspath = "RAM:" /* def path for msgs "Contents:" file request */ defsubject = "Info" /* def subject for mail */ pubscreen = 'Microdot' /* public screen you're running microdot on - set to 'NONE' to disable */ /* needed libraries - available from Aminet */ IF ~SHOW('L','rexxreqtools.library') THEN ADDLIB('rexxreqtools.library',0,-30,0) IF ~SHOW('L','rexxtricks.library') THEN ADDLIB('rexxtricks.library',0,-30,0) /* screen handling */ IF pubscreen~='NONE' THEN DO oldscreen = SETDEFAULTPUBSCREEN(pubscreen) END res = RTEZREQUEST("BulkMail V1.0 By Chris De Maeyer","OK") /* get the subject */ subject = RTGETSTRING(defsubject,'Type the Subject of the mail...','BulkMail') IF length(subject)==0 THEN DO CALL GetOut END /* get the persons textfile to send to */ tofile = RTFILEREQUEST(defperspath,,'Select mail recipients file...','_Select','rtfi_flags = freqf_patgad rtfi_matchpat=#?',files) line. = '' whom = 0 tfile = 'towhom' if OPEN(tfile,tofile,'r') THEN DO line.whom = READLN(tfile) DO WHILE ~EOF(tfile) whom = whom+1 line.whom = READLN(tfile) END CALL CLOSE(tfile) END ELSE DO res = RTEZREQUEST("Unable to open mail recipients file!","OK") CALL GetOut END /* get the mail textfile to send */ filename = RTFILEREQUEST(defmsgspath,,'Select mail message file...','_Select','rtfi_flags = freqf_patgad rtfi_matchpat=#?',files) IF EXISTS(filename) THEN DO ADDRESS MD.1 DO msg = 0 TO whom-2 NewMsgWindow 'TO="'line.msg'" SUBJECT="'subject'" CONTENTS="'filename'"' END END ELSE DO res = RTEZREQUEST("Unable to open mail message file!","OK") CALL GetOut END res = RTEZREQUEST("Now store all New Messages!","OK") GetOut: IF pubscreen~='NONE' THEN DO CALL SETDEFAULTPUBSCREEN(oldscreen) END EXIT(0) ________________________________________________________________ MicroDot-II Mailing List - Info & Archive: http://www.vapor.com/ For Listserver Help: <[EMAIL PROTECTED]>, "HELP" To Unsubscribe: <[EMAIL PROTECTED]>, "UNSUBSCRIBE"
