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
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.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
Bookmarks