H
Hank Youngerman
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.
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.