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

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

Hi Michael,

My main concern is not the code to get the data into the worksheet
columns, but HOW TO access (Loop Thru) ALL the Outlook Contact
properties one by one.

Warm Regards,

Junoon



Michael Bauer wrote:
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

Hi Michael,

What i am trying to do is to access the Mail Senders properties (the
Office people -belonging to our Global Address List), who have sent me
mails & all mails are having a Unique Subject.

I am trying to scan each mail & then access the Mail senders Employee
ID (EmpID, i guess custom defined) & other properties also like his
phone # or mobile # etc.

Then dump them one by one in columns in Excel.

But how to access these mail item properties, especially a
Custom-defined type like EmpID. The reason why i am trying to get the
EmpID is because its a Unique ID given to an Employee & would help in a
VLOOKUP with my Depts HeadCount.xls file for storing correct Mailitem
data under the correct Employee ID in the HeadCount.xls file which we
have to update on a Daily basis.

Hope this Helps!

Warem Regards,


Junoon


Michael Bauer wrote:
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

Am 21 Jun 2006 01:53:03 -0700 schrieb Junoon:

You know how to loop through folder items, you did it in a previous thread
(Find...FindNext).

All custom properties are available via the UserProperties collection:

Dim v as Variant
v=Item.UserProperties("EmpID").Value


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


Hi Michael,

What i am trying to do is to access the Mail Senders properties (the
Office people -belonging to our Global Address List), who have sent me
mails & all mails are having a Unique Subject.

I am trying to scan each mail & then access the Mail senders Employee
ID (EmpID, i guess custom defined) & other properties also like his
phone # or mobile # etc.

Then dump them one by one in columns in Excel.

But how to access these mail item properties, especially a
Custom-defined type like EmpID. The reason why i am trying to get the
EmpID is because its a Unique ID given to an Employee & would help in a
VLOOKUP with my Depts HeadCount.xls file for storing correct Mailitem
data under the correct Employee ID in the HeadCount.xls file which we
have to update on a Daily basis.

Hope this Helps!

Warem Regards,


Junoon


Michael Bauer wrote:
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

Thanks will try that & let you know.

Warm Regards,

Junoon

---------------
Michael Bauer wrote:
Am 21 Jun 2006 01:53:03 -0700 schrieb Junoon:

You know how to loop through folder items, you did it in a previous thread
(Find...FindNext).

All custom properties are available via the UserProperties collection:

Dim v as Variant
v=Item.UserProperties("EmpID").Value


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


Hi Michael,

What i am trying to do is to access the Mail Senders properties (the
Office people -belonging to our Global Address List), who have sent me
mails & all mails are having a Unique Subject.

I am trying to scan each mail & then access the Mail senders Employee
ID (EmpID, i guess custom defined) & other properties also like his
phone # or mobile # etc.

Then dump them one by one in columns in Excel.

But how to access these mail item properties, especially a
Custom-defined type like EmpID. The reason why i am trying to get the
EmpID is because its a Unique ID given to an Employee & would help in a
VLOOKUP with my Depts HeadCount.xls file for storing correct Mailitem
data under the correct Employee ID in the HeadCount.xls file which we
have to update on a Daily basis.

Hope this Helps!

Warem Regards,


Junoon


Michael Bauer wrote:
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

Hi Michael,

Tried the solution you gave, but did not seem to work.

I think since the Employee names & Emp Code belongs to a Global Address
list, so they donot come under User defined properties.

What i tried to do was search for the Emp Code (Emp ID) by
double-clicking on a mail address. The Emp Code shows under the
"General" Tab but when i search for it in Contacts, Journals,
User-defined fields etc, i am unable to locate it.

I am stumped! How do i get access to it in such a scenario.


Warm Regards,


Junoon




Junoon wrote:
Thanks will try that & let you know.

Warm Regards,

Junoon

---------------
Michael Bauer wrote:
Am 21 Jun 2006 01:53:03 -0700 schrieb Junoon:

You know how to loop through folder items, you did it in a previous thread
(Find...FindNext).

All custom properties are available via the UserProperties collection:

Dim v as Variant
v=Item.UserProperties("EmpID").Value


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


Hi Michael,

What i am trying to do is to access the Mail Senders properties (the
Office people -belonging to our Global Address List), who have sent me
mails & all mails are having a Unique Subject.

I am trying to scan each mail & then access the Mail senders Employee
ID (EmpID, i guess custom defined) & other properties also like his
phone # or mobile # etc.

Then dump them one by one in columns in Excel.

But how to access these mail item properties, especially a
Custom-defined type like EmpID. The reason why i am trying to get the
EmpID is because its a Unique ID given to an Employee & would help in a
VLOOKUP with my Depts HeadCount.xls file for storing correct Mailitem
data under the correct Employee ID in the HeadCount.xls file which we
have to update on a Daily basis.

Hope this Helps!

Warem Regards,


Junoon


Michael Bauer wrote:
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