On Tue, 08 Jun 1999 13:16:24 -0400 (EDT), Integrated Solutions
Technical Services wrote:
>Has anyone come up with a way to print message lists?
This can easysly be done when parsing the folder.bag file.
A rexx - Procedure should do !
Follwing is the parse - code
----------------------------------------------------------
ReadFolderBag: procedure expose OFolderbag.
parse arg bagfile
c = 0
do while lines(bagfile) > 0
c = c + 1
ofolderbag.0 = c
parse value linein(bagfile) with isread,
"DE"x hasattach,
"DE"x datein,
"DE"x timein,
"DE"X subject,
"DE"x to_email,
"DE"x to_realname,
"DE"x from_email,
"DE"x from_realname,
"DE"x size,
"DE"x msgfile "DE"x
OFolderbag.c.!isread = isread
OFolderbag.c.!hasattach = hasattach
OFolderbag.c.!datein = datein
OFolderbag.c.!timein = timein
OFolderbag.c.!subject = subject
OFolderbag.c.!to_email = to_email
OFolderbag.c.!to_realname = to_realname
OFolderbag.c.!from_email = from_email
OFolderbag.c.!from_realname= from_realname
OFolderbag.c.!size = size
OFolderbag.c.!msgfile = msgfile
end
call stream bagfile,"command","close"
return ""
----------------------------------------------------------
Note : This could be coded better, but it was originally written for a
version of regina, that had problems with stems in the parse value ...
with .... command.
yours
Heinz Mueller. webmaster@os2-oss.de
If you search OS/2 topics, have a look at www.os2-oss.de/search.html
** TagIt/2 v2.0 **
... If you have more than two brothers named Bubba or Junior...
Then URA Redneck
PGP Public Key Fingerprint= 7D73 EA2C 3CA4 9BBE 2120 C5F2 B9F7 6C4A 98ED D85C