OL2000: How to Programmatically Add '+1' to Contact Fax Numbers

Design a New Post Form

1. On the File menu, point to New, and click Post in This Folder.
2. On the Tools menu of the new Post form, point to Forms and click Design This Form.
3. Click the (P.2) tab to go to a blank page on the form, and on the Form menu, click Control Toolbox.
4. On the Control Toolbox, click the CommandButton icon and drag it to the blank form page.
5. Right-click CommandButton1, click Properties, and in the Caption window type "Correct Fax Numbers" (without the quotation marks) and click OK.
6. On the Form menu, click View Code and in the Script Editor, type or copy the following code:

   Sub CommandButton1_Click()
      'This will only work on contacts in the CURRENT folder
      Set CurFolder = Application.ActiveExplorer.CurrentFolder
      If CurFolder.DefaultItemType = 2 Then
         MsgBox "This process may take some time. You will be notified" & _
           " when complete.", , "Contact Tools Message"
         Set MyItems = CurFolder.Items
         For i = 1 to MyItems.Count
            Set MyItem = MyItems.Item(i)
            If Left(MyItem.HomeFaxNumber,2) <> "+1" and _
                         MyItem.HomeFaxNumber <> "" Then
               MyItem.HomeFaxNumber = "+1" & MyItem.HomeFaxNumber
            End If
            If Left(MyItem.BusinessFaxNumber,2) <> "+1" and _
                    MyItem.BusinessFaxNumber <> "" Then
               MyItem.BusinessFaxNumber = "+1" & MyItem.BusinessFaxNumber
            End If
            If Left(MyItem.OtherFaxNumber,2) <> "+1" and _
                         MyItem.OtherFaxNumber <> "" Then
               MyItem.OtherFaxNumber = "+1" & MyItem.OtherFaxNumber
            End If
            MyItem.Save
         Next
         MsgBox "Done!", 64, "Contact Tools Message"
      Else
         MsgBox "The current folder is not a Contact folder ", 64, & _
                "Contact Tools Message"
      End If
   End Sub
   					

7. On the File menu in Script Editor, click Close to return to the form.
8. On the Form menu, click Rename Page and type a name for this page such as "Correct Fax Numbers" (without the quotation marks), and click OK.

Publish the New Form

1. On the Tools menu, point to Forms and click Publish Form As.
2. In the "Look in" list click to select Personal Forms Library. Type a name for your new form such as, "Correct Fax Numbers" (without the quotation marks) and then click Publish.
3. On the File menu, click Close, and then click No to close without saving.

To Use Your New Form

1. Click to select the folder containing the contacts you want to correct.
2. On the File menu, point to New and click Choose Form.
3. In the Look In list, click to select Personal Forms Library, click your new form and click Open.
4. On the second page tab, click the button ("Correct Fax Numbers" from earlier in this article) to correct the fax numbers in the current folder.