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