Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set objContactsFolder = myNameSpace.GetDefaultFolder(10)
'objContactsFolder.Display

   ' Specify which contact folder to work with
'   Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
   Set objContacts = objContactsFolder.Items

   iCount = 0
   
   respond = MsgBox("Begin Updating Fax Numbers for Business, Home, and Other?", vbOKCancel)
   If respond = 2 Then
      MsgBox "Exiting without updating contacts."
   Else

   ' Process the changes
   For Each objContact In objContacts
      If TypeName(objContact) = "ContactItem" Then
         If objContact.BusinessFaxNumber <> "" Then
             If Left(objContact.BusinessFaxNumber, 3) <> "Fax" Then
                objContact.BusinessFaxNumber = "Fax: " & objContact.BusinessFaxNumber
                objContact.Save
                iCount = iCount + 1
         End If
            End If
         If objContact.HomeFaxNumber <> "" Then
             If Left(objContact.HomeFaxNumber, 3) <> "Fax" Then
                objContact.HomeFaxNumber = "Fax: " & objContact.HomeFaxNumber
                objContact.Save
                iCount = iCount + 1
         End If
	     End If
         If objContact.OtherFaxNumber <> "" Then
             If Left(objContact.OtherFaxNumber, 3) <> "Fax" Then
                objContact.OtherFaxNumber = "Fax: " & objContact.OtherFaxNumber
                objContact.Save
                iCount = iCount + 1
         End If
	     End If
      End If
   Next
   
        MsgBox "Number of contacts' fax numbers updated:" & iCount
   End If
   
   ' Clean up
   Set objContact = Nothing
   Set objContacts = Nothing
   Set objContactsFolder = Nothing