can't access outlook contacts from excel via VBA

  • Thread starter Thread starter Mr. Cheeks
  • Start date Start date
M

Mr. Cheeks

Hello!

I hope you can help me correctly run this VBA script. I'm trying to run a
script in Excel that will display information from my Outlook contacts. I
tried to follow examples on this site, but I'm running into problems
accessing the contact folder.

I'm running Outlook & Excel 2003, Windows XP, and my work has an exchange
server but I'm not sure how this complicates things.

Thanks so much! Let me know if I can provide any more info.


Sub ShowContactNames ()

Set OutApp = CreateObject("Outlook.Application")
Set myNameSpace = OutApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts) 'It errors out
on this line
Set myContacts = myFolder.Items

For Each myContact In myContacts
MsgBox "Name = " & myContact.FullName
Next

MsgBox "You Rock!"

End Sub

Error out on line "Set myFolder = myNameSpace..."

"Run-Time error '-2147024809 (80070057)': Could not complete the operation.
One or more parameter values are not valid."

Help me MVPs, you're my only hope!
 
Do you have a reference set in your Excel VBA project for the Outlook object
model?

From outside code it's also advisable to log into the NameSpace after you
retrieve it:

Set myNameSpace = OutApp.GetNamespace("MAPI")
myNameSpace.Logon "", "", False, False
 
Ken -- thanks for your help!

I didn't have any luck with the NameSpace logon - the routine still errors
out with the same error message when I call myNameSpace.GetDefaultFolder.
I'm not what you mean when you ask if I have a reference set for the Outlook
object model in my project -- which probably means I don't have it!

Could you direct me to a source for more info? I feel I'm very close to
fixing my routine, and finishing a SWEET macro.

-Cheeks
 
In your VBA project select Tools, References and see if Outlook is listed
there.

The best place to find programming samples and information for Outlook is at
www.outlookcode.com, but if you get an error trying to get back a default
folder the code there won't help you, there's a real problem.
 
Back
Top