In the project, set a reference for Outlook or replace

dim ie as new Outlook

with

set ie = createobject("Outlook.Application")

The latter will allow you to connect to Outlook without setting a reference

http://HelpExcel.com

"Bokeltri" wrote:

Something isn't working correctly in the example spreadsheet. (1) When I
open your sreadsheet, there is a complie error for the Macro adveriseME. The
"ie =" is highlighted and the message is "can't find project or library". (2)
when I run GetOutlook the "MyOlapp =" is highlighted and the error says can't
find project or library. Any suggestions?


"galimi" wrote:

You can link to data in Outlook from Excel using VBA and navigating through
the Outlook Object Model.

I have posted an example file to http://www.Galimi.com/Examples/Outlook.xls

Following is the code that should be enough to complete what you wish to
accomplish:

http://HelpExcel.com

Sub getOutlook()
Set myOLAPP = CreateObject("Outlook.Application")
'Dim myOLAPP As New Outlook.Application


Set mynamespace = myOLAPP.GetNamespace("MAPI")
Set myAddressList = mynamespace.Folders(1).Folders(6).Items

For Each strItem In myAddressList
shtImport.Range("a2").Offset(r) = strItem.FirstName
shtImport.Range("b2").Offset(r) = strItem.LastName
r = r + 1

Next


Set oOL = Nothing
End Sub


"Bokeltri" wrote:

I have contact information in my excel spreadsheet that I update manually. I
would like to link these fields to my Outlook cantact data instead. Can this
be done and how?