VBA to copy email body to worksheet

[Cowboyx]

Hello everyone,

I am trying to write a code in excel that will copy the selected email body and paste it to the excel sheet. I have merged all the cells required to fit the email and created a button for the user to click and the data to be copied over. Can anyone please help.

 

[Cowboyx]

Re: New to VBA Need Help

The folder I am copying from is the sent items box.

 

[Cowboyx]

Re: New to VBA Need Help

Here is my code so far: Only problem now is getting he spaces out of the email or reduce them so they fit better. Any suggestions



Private Sub CommandButton1_Click()
Dim olMailItem As Outlook.MailItem
'
' Get the Selected Mail Item and Put the Body in Cell A1
'
Set olMailItem = ActiveExplorer.Selection.Item(1)
Worksheets("SOT Data").Range("A1").Value2 = olMailItem.Body




End Sub