ویرایش contact list

[mahdi68]

سلام
آیا تو ویندوز موبایل با برنامه میشه به contact list دسترسی داشت و اونو ویراشی کرد ؟؟؟ مثلا یک نام اضافه و یا حذف کرد ؟؟؟
متشکرم

[vbworm]

Imports Microsoft.WindowsMobile.PocketOutlook

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim Ses = New OutlookSession
Dim I AsInteger
For I = 0 To Ses.Contacts.Items.Count - 1
If IsNumeric(Ses.Contacts.Items(I).MobileTelephoneNum ber) = TrueThen
ListBox1.Items.Add(Ses.Contacts.Items(I).MobileTel ephoneNumber)
End If
Next
End Sub


این کد شماره موبایل Contact ها رو میخونه و توی لیست باکس میاره - بقیش هم به عهده خودتون ...