I wanna fo some development on PST file, eatract PST file to html ro RTF
file, and can get the sender address, could you show me a way ? Thanks.

Not sure what you really want to accomplish. The pst file contains all your
all Outlook messages (e-mails, contacts, tasks etc.). You cannot create one
HTML file from that, but you have to save each single message as an HTML
file.

This loops through your Inbox and saves every MailItem as an HTML file, it
also prints the sender's address into the debug window:

Dim obj as Object
Dim F as Outlook.MapiFolder
Dim Items as Outlook.Items

Set F=Application.Session.GetDefaultFolder(olFolderInb ox)
Set Items=F.Items
For Each obj in Items
If TypeOf obj Is Outlook.MailItem Then
Debug.Print obj.SenderEMailAddress
obj.SaveAs "c:\" & obj.Subject & "-" & Format(obj.ReceivedTime,
"yyyymmdd-hhnnss")
Endif
Next

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Mon, 8 Oct 2007 18:41:00 -0700 schrieb KAKA:

I wanna fo some development on PST file, eatract PST file to html ro RTF
file, and can get the sender address, could you show me a way ? Thanks.

Thanks for your reply.
I wan to extract all the emails, contact... in a PST file to html or rtf,
including the attachment (only rtf file can contain atachment).
Not in Outlook.
I am using Outlook.



"Michael Bauer [MVP - Outlook]" wrote:



Not sure what you really want to accomplish. The pst file contains all your
all Outlook messages (e-mails, contacts, tasks etc.). You cannot create one
HTML file from that, but you have to save each single message as an HTML
file.

This loops through your Inbox and saves every MailItem as an HTML file, it
also prints the sender's address into the debug window:

Dim obj as Object
Dim F as Outlook.MapiFolder
Dim Items as Outlook.Items

Set F=Application.Session.GetDefaultFolder(olFolderInb ox)
Set Items=F.Items
For Each obj in Items
If TypeOf obj Is Outlook.MailItem Then
Debug.Print obj.SenderEMailAddress
obj.SaveAs "c:\" & obj.Subject & "-" & Format(obj.ReceivedTime,
"yyyymmdd-hhnnss")
Endif
Next

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Mon, 8 Oct 2007 18:41:00 -0700 schrieb KAKA:

I wanna fo some development on PST file, eatract PST file to html ro RTF
file, and can get the sender address, could you show me a way ? Thanks.

Here's a sample for how to loop through every folder:
http://www.vboffice.net/sample.html?...owitem?pub= 6

Additionally, for each item you need to loop through its Attachments
collection.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Wed, 10 Oct 2007 00:53:01 -0700 schrieb KAKA:

Thanks for your reply.
I wan to extract all the emails, contact... in a PST file to html or rtf,
including the attachment (only rtf file can contain atachment).
Not in Outlook.
I am using Outlook.



"Michael Bauer [MVP - Outlook]" wrote:



Not sure what you really want to accomplish. The pst file contains all
your
all Outlook messages (e-mails, contacts, tasks etc.). You cannot create
one
HTML file from that, but you have to save each single message as an HTML
file.

This loops through your Inbox and saves every MailItem as an HTML file,
it
also prints the sender's address into the debug window:

Dim obj as Object
Dim F as Outlook.MapiFolder
Dim Items as Outlook.Items

Set F=Application.Session.GetDefaultFolder(olFolderInb ox)
Set Items=F.Items
For Each obj in Items
If TypeOf obj Is Outlook.MailItem Then
Debug.Print obj.SenderEMailAddress
obj.SaveAs "c:\" & obj.Subject & "-" & Format(obj.ReceivedTime,
"yyyymmdd-hhnnss")
Endif
Next

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:

http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Mon, 8 Oct 2007 18:41:00 -0700 schrieb KAKA:

I wanna fo some development on PST file, eatract PST file to html ro RTF
file, and can get the sender address, could you show me a way ? Thanks.