VBA - Export outlook email body to excel

[hariprasadcp]

Hi,

This code works fine exporting outlook email body to active excel workbook, but it is exporting all the contents into one cell
I would need this to be populated in numbers of cells the data is. EXample attached screenshots

Sub GetSelectedItems()
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    'Dim myOlSel As Outlook.Selection
    Dim MsgTxt As String
    Dim x As Integer
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
    For x = 1 To myOlSel.Count
        Worksheets(1).Cells(1, x) = myOlSel.Item(x).Body
    Next x
    Cells.WrapText = False
 End Sub

Thanks,
Hari Prasad

[WizzardOfOz]

Typically when you open Outlook only one mail item is selected. Also you probably want to swap rows and columns.

Code:

Sub GetSelectedItems()
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
'Dim myOlSel As Outlook.Selection
Dim MsgTxt As String
Dim x As Integer
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.CurrentFolder.Items 'myOlExp.Selection
For x = 1 To myOlSel.Count
Worksheets(1).Cells(x,1) = myOlSel.Item(x).Body
Next x
Cells.WrapText = False
End Sub