Sub FAXList(e1, e2, e3, e4)

   Dim loOutlook   As Outlook.Application
   Dim loNS As Outlook.NameSpace
   Dim loContactitem  As Outlook.ContactItem
   Dim loSafeItem  As Object
   Dim objFolder As Outlook.MAPIFolder
   Dim MyNewFolder As Outlook.MAPIFolder

   Set loOutlook = CreateObject("Outlook.Application")
   Set loNS = loOutlook.GetNamespace("MAPI")
   loNS.Logon
   Set objFolder =
loNS.GetDefaultFolder(olFolderContacts).Folders("media")
   Set loContactitem = objFolder.Items.Add
   'Set loContactitem = loOutlook.CreateItem(olContactItem)      ''
This creates the ContactItem Object
   Set loSafeItem = CreateObject("Redemption.SafeContactItem")

With loSafeItem
   .Item = loContactitem        ' This attaches the Object to
                             ' Redemption SafeContactItem Object
   .BusinessFaxNumber = e3
   .FirstName = e1
   .LastName = e2
   .CompanyName = e4
   .Recipients.ResolveAll
   .Save
End With

   Set loOutlook = Nothing
   Set loNS = Nothing
   Set loContactitem = Nothing
   Set loSafeItem = Nothing

End Sub