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 Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Mr. Cheeks" Mr. wrote in message
...
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!

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

"Ken Slovak - [MVP - Outlook]" wrote:

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 Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Mr. Cheeks" Mr. wrote in message
...
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!

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.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Mr. Cheeks" wrote in message
...
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

OMG UR AHH-SUMM! Turning on the Outlook references did the trick. Thanks!
-Cheeks

"Ken Slovak - [MVP - Outlook]" wrote:

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.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Mr. Cheeks" wrote in message
...
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