M
Michael Courter
anybody know how to add contacts to pocketmobile using vb.net?
tia,
mcnewsxp
tia,
mcnewsxp
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
B
Brad
anybody know how to add contacts to pocketmobile using vb.net?
tia,
mcnewsxp
What version of Visual Studio are you using?
IMHO inthehand's pocketoutlook wrapper is the easiest way to get this
functionality.
B
Brad
anybody know how to add contacts to pocketmobile using vb.net?
tia,
mcnewsxp
What version of Visual Studio are you using?
IMHO inthehand's pocketoutlook wrapper is the easiest way to get this
functionality.
M
Michael Courter
anybody know how to add contacts to pocketmobile using vb.net?
What version of Visual Studio are you using?
IMHO inthehand's pocketoutlook wrapper is the easiest way to get this
functionality.
i'm using 2005. i'd rather not add any 3rd party stuff if i can avaoid it.
tia,
mcnewsxp
What version of Visual Studio are you using?
IMHO inthehand's pocketoutlook wrapper is the easiest way to get this
functionality.
i'm using 2005. i'd rather not add any 3rd party stuff if i can avaoid it.
M
Michael Courter
anybody know how to add contacts to pocketmobile using vb.net?
What version of Visual Studio are you using?
IMHO inthehand's pocketoutlook wrapper is the easiest way to get this
functionality.
i'm using 2005. i'd rather not add any 3rd party stuff if i can avaoid it.
tia,
mcnewsxp
What version of Visual Studio are you using?
IMHO inthehand's pocketoutlook wrapper is the easiest way to get this
functionality.
i'm using 2005. i'd rather not add any 3rd party stuff if i can avaoid it.
M
Michael Courter
Private Sub AddContact(ByVal PhoneNumber As String)
Dim found As Boolean
Dim ol As OutlookSession = New OutlookSession()
Dim newContact As Contact
Dim iter As ContactCollection.ContactCollectionEnumerator =
ol.Contacts.Items.GetEnumerator()
Do While iter.MoveNext()
If (iter.Current.MobileTelephoneNumber.Equals(PhoneNumber)) Then
found = True
End If
Loop
If Not (found) Then
newContact = ol.Contacts.Items.AddNew()
'iter.Current.MobileTelephoneNumber = PhoneNumber
newContact.FirstName = "Joe"
newContact.MobileTelephoneNumber = PhoneNumber
newContact.Update()
End If
End Sub
Dim found As Boolean
Dim ol As OutlookSession = New OutlookSession()
Dim newContact As Contact
Dim iter As ContactCollection.ContactCollectionEnumerator =
ol.Contacts.Items.GetEnumerator()
Do While iter.MoveNext()
If (iter.Current.MobileTelephoneNumber.Equals(PhoneNumber)) Then
found = True
End If
Loop
If Not (found) Then
newContact = ol.Contacts.Items.AddNew()
'iter.Current.MobileTelephoneNumber = PhoneNumber
newContact.FirstName = "Joe"
newContact.MobileTelephoneNumber = PhoneNumber
newContact.Update()
End If
End Sub
M
Michael Courter
Private Sub AddContact(ByVal PhoneNumber As String)
Dim found As Boolean
Dim ol As OutlookSession = New OutlookSession()
Dim newContact As Contact
Dim iter As ContactCollection.ContactCollectionEnumerator =
ol.Contacts.Items.GetEnumerator()
Do While iter.MoveNext()
If (iter.Current.MobileTelephoneNumber.Equals(PhoneNumber)) Then
found = True
End If
Loop
If Not (found) Then
newContact = ol.Contacts.Items.AddNew()
'iter.Current.MobileTelephoneNumber = PhoneNumber
newContact.FirstName = "Joe"
newContact.MobileTelephoneNumber = PhoneNumber
newContact.Update()
End If
End Sub
Dim found As Boolean
Dim ol As OutlookSession = New OutlookSession()
Dim newContact As Contact
Dim iter As ContactCollection.ContactCollectionEnumerator =
ol.Contacts.Items.GetEnumerator()
Do While iter.MoveNext()
If (iter.Current.MobileTelephoneNumber.Equals(PhoneNumber)) Then
found = True
End If
Loop
If Not (found) Then
newContact = ol.Contacts.Items.AddNew()
'iter.Current.MobileTelephoneNumber = PhoneNumber
newContact.FirstName = "Joe"
newContact.MobileTelephoneNumber = PhoneNumber
newContact.Update()
End If
End Sub