Article ID: 192861
Article Last Modified on 2/26/2004
Dim MyContactItem As New Outlook.ContactItem
Sub CreateContact()
Dim ol As New Outlook.Application
Dim MyContactItem As Outlook.ContactItem
Set MyContactItem = ol.CreateItem(olContactItem)
MyContactItem.Display
End Sub
NOTE: Although the syntax described in the Summary section of this article
may work in your solution, future versions of Outlook will not allow this
syntax. A compile error will be generated before the code is run.
Additional query words: OutSol OutSol98
Keywords: kbinfo kbprogramming KB192861