Code:Private Sub Command1_Click() 'by Inmate Set OLApp = _ CreateObject("Outlook.Application") Set allContacts = _ nNameSpace.GetDefaultFolder(olFolderContacts).Item On Error Resume Next For Each mContacts In allContacts MsgBox ("Contacts:" & mContacts) 'Send message Next End Sub