I have to print a lot of emails - possibly several thousand.

I have a macro that sends them to the printer, but is there a way I
can read the contents and write them to a text file? I'd like them to
look as much as possible like the actual printed copies do.

It seems I MIGHT be able to open a text file, then write out the
relevant fields, like:

Open OutMail for output as 1
for each MailItem
a$ = mailitem.field1
if len(a$)0 then print #1,a$
a$=mailitem.field2
if len(a$)0 then print #1,a$
etc.
Print #1, "End of this mailitem"
next Mailitem
Close 1

Will this work? And what fields do I want to capture? I'm having
some trouble figuring that out. I don't need attachments, just
basically To and From, Title of the email, date sent, people on the CC
list, and the letter text.

TIA.

"Hank Youngerman" wrote in message
oups.com...
I have to print a lot of emails - possibly several thousand.

I have a macro that sends them to the printer, but is there a way I
can read the contents and write them to a text file? I'd like them to
look as much as possible like the actual printed copies do.

It seems I MIGHT be able to open a text file, then write out the
relevant fields, like:

Open OutMail for output as 1
for each MailItem
a$ = mailitem.field1
if len(a$)0 then print #1,a$
a$=mailitem.field2
if len(a$)0 then print #1,a$
etc.
Print #1, "End of this mailitem"
next Mailitem
Close 1

Will this work? And what fields do I want to capture? I'm having
some trouble figuring that out. I don't need attachments, just
basically To and From, Title of the email, date sent, people on the CC
list, and the letter text.

TIA.



Formatting them is going to be a bitch. - especially if you are looking for
the same format they came in and of some are HTML based instead of text
based.

Have you considered sending them to a PDF printer? This would be easily
readable (human readable) and would be searchable etc..

If you are simply wanting readable files from the emails, I suggest sending
the files to a PDF printer and "printing" each as a file (or printing them
all to one big PDF file). You can get a free PDF printer at
http://www.cutepdf.com/Products/CutePDF/writer.asp or
http://www.primopdf.com/.

If you are simply looking for the data, in Outlook go to FilesExportExport
as a file and choose Excel. Accept the defaults and you should get an
excel spreadsheet with all of the data in an easily searchable XLS document.

squishy