Hi Sue,

I went to your website and "captured" the VBS Script.  I
have imported the information into fields where I
have "Parked" it so I can import this information into my
User Defined Fields.

Now, I know this may seem like a no-brainer but how do I
use the script?

I have gone into it the generic script and placed the
field names from the "parked" form into the areas that I
guessed are designated for that and have also inserted the
field names from my Custom form into where I imagine they
belong.  I am going to insert this edited VBS Script here
if space allows.
I have tried to run the script three different ways:
From the form that I parked the info in
From the Custom form that I created
As a Macro created in Outlook outside of any forms
whatsoever.

I've probably done something silly like reverse the field
names or something but I'm at my wit's end and this is the
last thing standing between me and completeing a project
that I should have had completed a while back.

Can you please help me?

Here is the edited code:
Sub ConvertFields()
 Dim objApp As Application
 Dim objNS As NameSpace
 Dim objFolder As MAPIFolder
 Dim objItems As Items
 Dim objItem As Object

 Set objApp = CreateObject("Outlook.Application")
 Set objNS = objApp.GetNamespace("MAPI")
 Set objFolder = objNS.PickFolder
 If Not objFolder Is Nothing Then
   Set objItems = objFolder.Items
   For Each objItem In objItems
     ' make sure you have a Contact item
     If objItem.Class = olContact Then
       ' convert to your published custom form
       objItem.MessageClass = "IPM.Contact.Custom"
       ' copy data to your custom fields
       objItem.UserProperties("Rep") = objItem.Manager 's
Name
       objItem.UserProperties("Account") = objItem.Account
       objItem.UserProperties("Mailing Address") =
objItem.BusinessStreet
       objItem.UserProperties("Ship To") =
objItem.OtherStreet
       objItem.UserProperties("City") =
objItem.BusinessCity
       objItem.UserProperties("Zip") =
objItem.BusinessPostalCode
       objItem.UserProperties("Ship To City") =
objItem.OtherCity
       objItem.UserProperties("Ship To Zip") =
objItem.OtherPostalCode
       objItem.UserProperties("County") =
objItem.OfficeLocation
       objItem.UserProperties("Principle") = objItem.Name
       objItem.UserProperties("Principle Title") =
objItem.JobTitle
       objItem.UserProperties("Second Contact") =
objItem.Assistant 's Name
       objItem.UserProperties("Third Contact") =
objItem.User1
       objItem.UserProperties("Principle Phone") =
objItem.BusinessPhone
       objItem.UserProperties("Principle Cell") =
objItem.MobilePhone
       objItem.UserProperties("Principle Pager") =
objItem.Pager
       objItem.UserProperties("Principle Home Phone") =
objItem.HomePhone
       objItem.UserProperties("Third Contact Cell") =
objItem.OtherPhone
       objItem.UserProperties("Principle Fax") =
objItem.BusinessFax
       objItem.UserProperties("Second Contact Phone") =
objItem.BusinessFax
       objItem.UserProperties("Second Contact Cell") =
objItem.CarPhone
       objItem.UserProperties("Second Contact Home") =
objItem.HomePhoneFax
       objItem.Manager 's Name = ""
       objItem.Account = ""
       objItem.Mailing Address = ""
       objItem.ShipTo = ""
       objItem.City = ""
       objItem.Zip = ""
       objItem.ShipTo City = ""
       objItem.ShipTo Zip = ""
       objItem.County = ""
       objItem.Principle = ""
       objItem.Principle Title = ""
       objItem.Second Contact = ""
       objItem.Third Contact = ""
       objItem.Principle Phone = ""
       objItem.Principle Cell = ""
       objItem.Principle Pager = ""
       objItem.Principle HomePhone = ""
       objItem.Third ContactCell = ""
       objItem.Principle Fax = ""
       objItem.Second ContactPhone = ""
       objItem.Second ContactHome = ""
       objItem.Save
     End If
   Next
 End If

 Set objItems = Nothing
 Set objItem = Nothing
 Set objFolder = Nothing
 Set objNS = Nothing
 Set objApp = Nothing
End Sub

Private Sub Application_ItemSend(ByVal Item As Object,
Cancel As Boolean)

End Sub