It would be something like this I believe:

Dim O As Object
Dim F As Object
Dim iCon As Object

Sub Contacs2Outlook()

Dim oContact As Object
O = CreateObject("Outlook.Application")
F = O.Session.GetDefaultFolder(10)
oContact = DirectCast(F.Items.Item(1), Outlook.ContactItem)
oContact.Delete()

iCon = CType(F.Items().Add(2), Outlook.ContactItem)
F.Items().Add(2)
With iCon
.CompanyName = "My Computer"
.Categories = "Clients"
.Save()
End With
End Sub

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"John" wrote:

Hi

I have the below code for communicating with outlook. What changes do I need
to do to late bind this code so it does not need references to any
particular version of outlook.

Many Thanks

Regards


Imports System.Reflection
Imports Outlook

Module modContacts
Dim O As Outlook.Application
Dim F As Outlook.MAPIFolder
Dim iCon As Outlook.ContactItem

Sub Contacs2Outlook()

O = New Outlook.Application
F =
O.Session.GetDefaultFolder(Outlook.OlDefaultFolder s.olFolderContacts)
oContact = DirectCast(F.Items.Item(1), Outlook.ContactItem)
oContact.Delete()

iCon = CType(F.Items().Add(Outlook.OlItemType.olContactIt em),
Outlook.ContactItem)
F.Items().Add(Outlook.OlItemType.olContactItem)
With iCon
.CompanyName = "My Computer"
.Categories = "Clients"
.Save()
End With
End Sub
End Module