/* $VER: MailImport.mdrx 3.0 (02 AUG 97)
** by Charles Patterson <midian@azstarnet.com>
** http://www.azstarnet.com/~midian/
**
** Description: Imports mail into Microdot-II from requester
**
** Requires: Microdot-II v0.198 (© 1997 by Oliver Wagner)
**           rexxreqtools.library 1.3 (© 1992-94 Rafael D'Halleweyn)
**
** Instructions: Place in Microdot-II/Rexx path
**               Adjust 'defpath' for your computer
**               Run from Microdot-II ARexx menu
**
** --- Default path to import from: --- */
defpath = "YAM:archived"

OPTIONS RESULTS

IF ~SHOW('L','rexxreqtools.library') THEN
    ADDLIB('rexxreqtools.library',0,-30,0)

filenames = RTFILEREQUEST(defpath,,'Select files','_Import','rtfi_flags = freqf_multiselect|freqf_patgad rtfi_matchpat=~(.index)',files)

IF files THEN
    DO n = 1 to files.count
        MAILIMPORT files.n
    END

EXIT