Dim OutlookApp As Outlook.Application = New Outlook.Application() Dim OutlookNamespace As Outlook.NameSpace = OutlookApp.GetNamespace("MAPI") Dim OutlookContacts As Outlook.MAPIFolder Dim OutlookContact As Outlook.ContactItemUnfortunately, the code comes to a screetching halt on the very first line. I don't get any specific errors, only a HTTP 500. FYI Outlook has been added to the project references and I can see the properties and methods while typing code.