Dim MobjOutlook As Microsoft.Office.Interop.Outlook.Application = New  _
                        Microsoft.Office.Interop.Outlook.Application()
                        Dim MobjNS As Outlook.NameSpace = _
                          MobjOutlook.GetNamespace("MAPI")
                        Dim MobjMF As Outlook.MAPIFolder = _
                        MobjNS.GetDefaultFolder( _
                        Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFol_
                        derInbox)
                        Dim MobjIt As Outlook.Items = MobjMF.Items
 
 
                        MsgBox(MobjMF.AddressBookName)