[pmmail-list] Exporting?
J Seder
pmmail-list@blueprintsoftwareworks.com
Tue, 08 Apr 2003 17:56:37 -0700
>I wanted to export all my past mail to UNIX mailbox format...
You could modify this Rexx script which prettyprints to stdout all the
messages indexed in FOLDER.BAG in the current directory. I use it to
archive messages into a single text file, but you could use it to
create a mailbox file:
/* trace intermediate */
trace normal
dm = 'DE'x /* thorn */
infile = 'FOLDER.BAG'
do forever
if lines(infile)=0 then leave
b = linein(infile)
parse var b ,
m_c1 ,
(dm) m_c2 ,
(dm) m_date ,
(dm) m_time ,
(dm) m_subj ,
(dm) m_tos ,
(dm) m_tonames ,
(dm) m_fromnames ,
(dm) m_from ,
(dm) m_size ,
(dm) m_fn ,
(dm) m_x
/* status = word("Unread Read Replied Sent",m_c1+1) */
say ''
say '-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-'
say ''
do forever
if lines(m_fn)=0 then do
s = stream(m_fn,'c','close')
leave
end
m = linein(m_fn)
say m
end
end
return
- pmmail-list - The PMMail Discussion List ---------------------------
To POST to the list, send your message to:
pmmail-list@blueprintsoftwareworks.com
To UNSUBSCRIBE, send a message to mdaemon@bmtmicro.com
with the first line of the message body being...
UNSUBSCRIBE pmmail-list@blueprintsoftwareworks.com
---------------------------------------------------------------------