Can I create a static link between Excel and Outlook contact data.

B

Bokeltri

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?
 
G

galimi

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
 
B

Bokeltri

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?
 
G

galimi

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
 
Top