Creating a Contact from a vCard Stream

The following example creates a contact by loading saved vCard information into a Collaboration Data Objects (CDO) Person object.

Visual Basic

Dim objStream As Stream
Dim objPerson As New CDO.Person

'Set the ADO stream object to the Person object's vCard stream
Set objStream = objPerson.GetvCardStream

'Load the contents of a file containing the vCard information into the stream
objStream.LoadFromFile "C:\vcard.txt" 

'Send the buffered data to the Person object's vCard stream
objStream.Flush