OL97: How to Correct Formatting and Parsing of Imported Contacts

Design a New Post Form

1. Open a new post message:
   1. On the File menu of Inbox, point to New, and then click "Post in This Folder."
   2. On the Tools menu of the new Post form, click Design Outlook Form.
2. Insert a Command Button on the new form:
   1. Click the (P.2) tab to go to a blank page on the form.
   2. On the Form menu, click Control Toolbox.
   3. In the Toolbox, click CommandButton and drag it to the blank form page.
   4. Right-click CommandButton1 and click Properties.
   5. In the Caption window type "Correct Contacts" and click OK.
3. Insert VBScript code:
   1. On the Form menu, click View Code to open the Script Editor.
   2. 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)
            MyItem.MailingAddressStreet=MyItem.MailingAddressStreet
            MyItem.MailingAddressCity=MyItem.MailingAddressCity
            MyItem.MailingAddressState=MyItem.MailingAddressState
            MyItem.MailingAddressPostalCode=MyItem.MailingAddressPostalCode
            MyItem.MailingAddressPostOfficeBox=MyItem.MailingAddressPostOfficeBox
            MyItem.CompanyName=MyItem.CompanyName
            MyItem.HomeFaxNumber=MyItem.HomeFaxNumber
            MyItem.BusinessFaxNumber=MyItem.BusinessFaxNumber
            MyItem.OtherFaxNumber=MyItem.OtherFaxNumber
            MyItem.EMail1Address=MyItem.EMail1Address
            MyItem.EMail2Address=MyItem.EMail2Address
            MyItem.EMail3Address=MyItem.EMail3Address
            MyItem.Body=MyItem.Body
            MyItem.Sensitivity=MyItem.Sensitivity
                 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
      							

   3. On the File menu in Script Editor, click Close to return to the form.
4. Rename the second page (p.2) tab and publish the new form:
   1. On the Form menu, click Rename Page.
   2. Type a name for this page such as, Correct Contacts, and click OK.
   3. On the File menu, click Publish Form As.
   4. In the "Form Name" box, type a name for your new form such as Correct Contacts and then click the "Publish In" button.
   5. Click Forms Library and click Personal Forms in the drop-down list.
   6. Click OK and click Publish.
   7. Close the message without saving.

To Use Your New Form

1. Navigate to the folder containing the contacts you want to correct.
2. On the Contacts menu, click Choose Form.
3. In the Personal Forms list, click your new form and click OK.
4. Click the second page tab and click the button (Correct Contacts from Step 2e above) to correct the contacts in the current folder.