Add Fax: to Phone Numbers in Outlook | การเขียนโปรแกรมการเรียนรู้ด้วยตนเอง ที่เว็บไซต์

The get this macro to work also on the subfolders.

Public Sub HideFaxNumbers()
    Dim objOL As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Dim objContact As Outlook.ContactItem
    Dim objItems As Outlook.Items
    Dim objContactsFolder As Outlook.MAPIFolder
    Dim obj As Object
    Dim olfax As String
 
    On Error Resume Next
 
    Set objOL = CreateObject("Outlook.Application")
    Set objNS = objOL.GetNamespace("MAPI")
    Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)
    
    
    Set objFolders = objContactsFolder.Folders
    
    For Each objFolder In objFolders
    
        Set objItems = objFolder.Items
       For Each obj In objItems
           'Test for contact and not distribution list
           If obj.Class = olContact Then
               Set objContact = obj
    
        With objContact
    
             If .BusinessFaxNumber <> "" Then
                  olfax = .BusinessFaxNumber
              .BusinessFaxNumber = "Fax: " & olfax
           End If
             .Save
    
        End With
           End If
    
        Err.Clear
       Next
    
    
    Next
    
 
    
    
    
        
    
 
    Set objOL = Nothing
    Set objNS = Nothing
    Set obj = Nothing
    Set objContact = Nothing
    Set objItems = Nothing
    Set objContactsFolder = Nothing
End Sub