I've used a combination of codes i've find around the web but none of them seem to be updated for 07 and nothing specific to what i'm looking for. one of the codes i've tried is listed below. I had tweaked it a bit but i currently do not have that code with me. code was found at techrepublics blog.



[vba]
Sub ExportToExcel() On Error GoTo ErrHandler Dim appExcel As Excel.Application Dim wkb As Excel.WorkbookDim wks As Excel.WorksheetDim rng As Excel.RangeDim strSheet As StringDim strPath As StringDim intRowCounter As IntegerDim intColumnCounter As IntegerDim msg As Outlook.MailItemDim nms As Outlook.NameSpaceDim fld As Outlook.MAPIFolderDim itm As Object strSheet = "OutlookItems.xls" strPath = "C:Examples\"strSheet = strPath & strSheetDebug.Print strSheet 'Select export folderSet nms = Application.GetNamespace("MAPI")Set fld = nms.PickFolder 'Handle potential errors with Select Folder dialog box.If fld Is Nothing ThenMsgBox "There are no mail messages to export", vbOKOnly, _"Error"Exit SubElseIf fld.DefaultItemType <> olMailItem ThenMsgBox "There are no mail messages to export", vbOKOnly, _"Error"Exit SubElseIf fld.Items.Count = 0 ThenMsgBox "There are no mail messages to export", vbOKOnly, _"Error"Exit SubEnd If 'Open and activate Excel workbook.Set appExcel = CreateObject("Excel.Application")appExcel.Workbooks.Open (strSheet)Set wkb = appExcel.ActiveWorkbookSet wks = wkb.Sheets(1)wks.ActivateappExcel.Application.Visible = True 'Copy field items in mail folder.For Each itm In fld.ItemsintColumnCounter = 1Set msg = itmintRowCounter = intRowCounter + 1Set rng = wks.Cells(intRowCounter, intColumnCounter)rng.Value = msg.TointColumnCounter = intColumnCounter + 1Set rng = wks.Cells(intRowCounter, intColumnCounter)rng.Value = msg.SenderEmailAddressintColumnCounter = intColumnCounter + 1Set rng = wks.Cells(intRowCounter, intColumnCounter)rng.Value = msg.SubjectintColumnCounter = intColumnCounter + 1Set rng = wks.Cells(intRowCounter, intColumnCounter)rng.Value = msg.SentOnintColumnCounter = intColumnCounter + 1Set rng = wks.Cells(intRowCounter, intColumnCounter)rng.Value = msg.ReceivedTimeNext itm Set appExcel = Nothing Set wkb = NothingSet wks = NothingSet rng = NothingSet msg = NothingSet nms = NothingSet fld = NothingSet itm = Nothing Exit SubErrHandler: If Err.Number = 1004 ThenMsgBox strSheet & " doesn't exist", vbOKOnly, _"Error"ElseMsgBox Err.Number & "; Description: ", vbOKOnly, _"Error"End IfSet appExcel = NothingSet wkb = NothingSet wks = NothingSet rng = NothingSet msg = NothingSet nms = NothingSet fld = NothingSet itm = NothingEnd Sub[/vba]

I'm looking a simplier code just for date, body into rows. Data would be updated daily or more into the excel spreadsheet and would fill in the next empty row...Any ideas would be great. Thanks.