Dim ol as Object
Dim olns as Object
Dim objFolder as Object
Dim objAllContacts as Object
Dim Contact as Object
Set ol = New Outlook.Application------**Error occurs here**
Set olns = ol.GetNamespace("MAPI")
Set objFolder = olns.GetDefaultFolder(olFolderContacts)
Set objAllContacts = objFolder.Items
For Each Contact In objAllContacts
MsgBox Contact.FullName
Next Contact
End Sub
