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(olFolderInbox)
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: