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