Am 20 Jun 2006 11:53:57 -0700 schrieb Junoon:

This sample shows how to insert data in a new Worksheet:

Dim xl as Excel.Application
Dim wb as Excel.Workbook
Dim ws as Excel.Worksheet
Dim rn as Excel.Range

Set xl=New Excel.Application
Set wb=xl.Workbooks.Add
Set ws=wb.Worksheets(1)

' Write data into first column, second row
Set rn=ws.Range("a2")
rn.Value = "something"

' Write data into next column
rn.Offset(0,1).Value="more"

Now simply loop through your contacts, read whatever you´re interested in
and write it into the worksheet.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


Hi All,

How is it possible to extract all Addressbook properties like phone,
email address, full name, business contact details & Customer user
fields like EmpID & put them each in 1 column after another in an Excel
sheet, 1 record (Row) for each mail received in Outlook.

i.e. each Row would contain each mail sender's address book properties
& each property would be in a Column.

I want to especially get the EmpID (Employee ID) for each Sender
collected in an Excel column.

How do i do that?

Warm Regards,

Junoon