Solved: Date & Time in he body of the message of received email

[aravindhan_3]

Hi,
I send some email with the table to the managers, requesting them to fill up the table and send back the email. When they reply to the email I can see their email address, date at the header.
what i need is the complete details should be appeared in the body of the message after the table. so that I copy the data with the details.
Eg.

From: Nandhini Sathiya [mailto:nasathiy@in.ibm.com]
Sent: Tuesday, July 15, 2008 3:21 PM
Subject: Fw: TV Spoils Friendship...Too Cute...

I will get the above data when i click forward to that email and copy the data. But If I have 100 emails i need to click forward or reply to copy the above data. Is there any way that wen i receive the email the above data come in the body of the message

[Charlize]

Not sure what you exactly want, but this will use excel to copy relevant info from the mailmessage.
Sub copy_mail_message_with_header()
'*** Assuming you are using textformat and not html format
' for mail messages
'use excel as destination
Dim myexcel As Object
'workbook
Dim mywb As Object
'worksheet
Dim myws As Object
'outlookmessage to be processed
Dim mymessage As Outlook.MailItem
'a number
Dim myitem As Long
'the message we create
Dim mystrmessage As String
'if selection isn't present, don't do a thing
'you could build an extra check if the class
'of the selected item is a message
If ActiveExplorer.Selection.Count < 1 Then
MsgBox "Select at least one mailmessage", vbInformation
Exit Sub
End If
'define the application to use
Set myexcel = CreateObject("Excel.Application")
'property to true, you could do this after
'everything has been done
myexcel.Visible = True
'add a new workbook
Set mywb = myexcel.workbooks.Add
'loop through the selected items
For myitem = 1 To ActiveExplorer.Selection.Count
'build the string
Set mymessage = ActiveExplorer.Selection.item(myitem)
mystrmessage = "From : " & mymessage.SenderEmailAddress & Chr(13)
mystrmessage = mystrmessage & "Sent : " & mymessage.SentOn & Chr(13)
mystrmessage = mystrmessage & "Subject : " & mymessage.Subject & Chr(13)
mystrmessage = mystrmessage & mymessage.Body
'if number of worksheets is less than no of items
'use the present worksheets of the newly created
'workbook
If mywb.worksheets.Count < myitem Then
Set myws = mywb.worksheets.Add
myws.Name = myitem
Else
'otherwise rename the default name of sheetx
'to just the number
Set myws = mywb.worksheets(myitem)
myws.Name = myitem
End If
'paste the created string at A1
myws.Range("A1").Value = mystrmessage
'go to next selected item
Next myitem
End SubCharlize

[aravindhan_3]

Hi,

Thanks for your reply,
What i need exactly is..

I am sending an email with a table in the body of the message to one person requesting him to fill up some data and send me back.

He will reply to the same duly filled. I will copy the table and paste it to an pdf image for record. But I have only the table in the body of the message and no Sender details. As of now what i am doing is, I copy and paste the table separately and again i click forward to that email, so that I get details as below

From: Nandhini Sathiya [mailto:sathiy@in.ibm.com]
Sent: Tuesday, July 15, 2008 3:21 PM
Subject: Fw: TV Spoils Friendship...Too Cute...

then i copy and paste again.


What I need is, From email address, Date received & subject, should be appreard below the table so that I can copy that along with the table and paste.

Is there any way that the above details comes automatically in the body of the message so that I can copy all the details.
or is there any other way of working...