دسترسی به پیامها اینباکس

[amirjun32 105]

چطوری میشه به لیست پیام های این باکس دسترسی پیدا کرد،وو مثلا دو تا پیام اخر رو نمایش داد توی یک لیبل

[amirjun32 105]

شهاب جان ببخشید پستت حذف شد چون سوالشون این نبود شرمنده...... :*

--------------------------------------------------------

کتابخانه phone رو تیک بزنید و این متغیر رو تعریف کنید:

Dim p As SmsMessages

حالا p رو بنویسید و یه نقطه بذارید لیست واستون باز میشه.

میتونید همه پیامک هارو بگیرید ، براساس زمان بگیرید و .... داخل لیست.

مثال:

Dim listpayam As List
listpayam.Initialize

listpayam=p.GetAll

همه پیام ها ریخته میشه تو لیست.

ممنون از پاسختون.ولی من هرکاری کردم نتونستم پیامهارو براساس نوعشون بگیرم.اگه میشه ی کم راهنمایی کنید.ممنون میشم

اینم سورس    Dim p As SmsMessages

Dim smslist As List

smslist.Initialize

smslist=p.GetAll

For i=0 To  smslist.Size-1

Select p.GetByType

Case p.TYPE_INBOX

If i =1 Then

Msgbox("svsv","vssssssvsee")

Else

Msgbox("o;o;k.jk.jk","vssssssvsee")

End If

Case p.TYPE_SENT

Msgbox("54354345","vssssssvsee")

End Select

Next

End Sub

[پژمان نیکروان 6,055]

ببخشید...

الان اصلا سوالتون با توضیحتون همخوانی نداره

یا خودتون درست کنید موضوع رو یا بگید کدوم رو میخواین. یا این تاپیک نامناسب حذف بشه.  

[amirjun32 105]

 

ببخشید...

الان اصلا سوالتون با توضیحتون همخوانی نداره

یا خودتون درست کنید موضوع رو یا بگید کدوم رو میخواین. یا این تاپیک نامناسب حذف بشه.  

 

شرمنده اشتباه شده بود.ویرایشش کردم

[پژمان نیکروان 6,055]

شهاب جان ببخشید پستت حذف شد چون سوالشون این نبود شرمنده...... :*

--------------------------------------------------------

کتابخانه phone رو تیک بزنید و این متغیر رو تعریف کنید:

Dim p As SmsMessages

حالا p رو بنویسید و یه نقطه بذارید لیست واستون باز میشه.

میتونید همه پیامک هارو بگیرید ، براساس زمان بگیرید و .... داخل لیست.

مثال:

Dim listpayam As List
listpayam.Initialize

listpayam=p.GetAll

همه پیام ها ریخته میشه تو لیست.