Export whole Outlook email to excel

[ansonau712]

hi all,

I am working on export some emails from outlook to excel. Somehow the email body export to excel is one cell and I cannot use the split function to separate those text to column (since after export, spaces between text are gone, and all the text was combined.and lose the format of table.). I also tried using the HTML table nature but somehow it is classified as one cell..


Is there a way to simulate the manual action like opening the excel and highlight all context in body, and paste it to excel? I manually do this and all the format is good.

Appreciated.

[gmayor]

Maybe something lke


Dim olMsg As Outlook.MailItem
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
Set olMsg = ActiveExplorer.Selection.item(1)
With olMsg
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
.Display
oRng.Copy
End With

[ansonau712]

thx! it works perfectly