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

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Partners, please visit the following Microsoft Web site: For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:
Follow these steps to create a new post form to modify the contact record 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.

NOTE: This only affects fax numbers in the current folder.