[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
---------------------------------------------------------------------