Public Sub ToOutlookContact(ByVal m_Firstname As String, ByVal m_LastName As String, ByVal m_Address As String, ByVal m_City As String, ByVal m_Region As String, ByVal m_Code As String, ByVal m_Phone As String)
On Error GoTo errTrap
Dim oApp As New Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim oContactItem As Outlook.ContactItem
Set oContactItem = oApp.CreateItem(olContactItem)
With oContactItem
.Firstname = m_Firstname
.LastName = m_LastName
.BusinessAddress = m_Address
.BusinessAddressCity = m_City
.BusinessAddressState = m_Region
.BusinessAddressPostalCode = m_Code
.BusinessTelephoneNumber = m_Phone
.Save
End With
Err_Exit:
Set oContactItem = Nothing
Set oApp = Nothing
Exit Sub
errTrap:
'Code to handle errors goes here
Resume Err_Exit
End Sub