Discussion :

[nousdeux120]

Bonjour,
Après plusieurs recherche et de nombreux essais je n'arrive pas a récupère mes sms de mon pda en vb j'ai vraiment beaucoup lu et beaucoup tester

j'arrive a prendre les contacts les rendez-vous avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
AppSession1 = New Microsoft.WindowsMobile.PocketOutlook.OutlookSession()
        Dim AppApptc = AppSession1.Contacts.Items
        NB_Contact = AppSession1.Contacts.Items.Count

pour les contacts et pour les rendez-vous ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
AppSession = New Microsoft.WindowsMobile.PocketOutlook.OutlookSession()
        Dim AppAppts = AppSession.Appointments.Items, AppApptc = AppSession.Contacts.Items
 
 
 
        Dim appt As Microsoft.WindowsMobile.PocketOutlook.Appointment
        Dim appc As Microsoft.WindowsMobile.PocketOutlook.Contact

mais pour les Sms j'essaye avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim appt As New Microsoft.WindowsMobile.PocketOutlook.SmsMessage

mais impossible de voir un seul sms ni le nombres de sms dans mon pda
j'ai vraiment chercher partout mais je n'ai rien trouvé

le but est de prendre mes sms et de les affiché dans une bulle style bande dessiné .
voila, j'espère que quelqu'un pourra m'aider déjà plus d'une semaine que je cherche presque jour et nuit je ne sais plus quoi chercher
mais peux être est-ce pas possible mais je me dit que on dois pouvoir le faire je vois partout des programme qui sauve tous les contact les rendez-vous et sms style pim backup

j'espère que j'ai été asser clair dans ma question et explication

[nousdeux120]

Voila après des heures de recherche j'ai trouvé, si ça intéresse quelqu’un

[Deepin]

Bonjour,

Merci de partager la solution. Elle pourrait être utile aux autres.

[nousdeux120]

Au faite on ne sais pas le faire avec la classe windowsmobile
if faut télécharger la Class inthehand

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

InTheHand.WindowsMobile.PocketOutlook.SmsMessage

et dans cette classe on trouve inBox
outbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
AppSession = New InTheHand.WindowsMobile.PocketOutlook.OutlookSession()
 Dim sess As New InTheHand.WindowsMobile.PocketOutlook.OutlookSession
        Dim tes As New InTheHand.WindowsMobile.PocketOutlook.SmsMessage
        Dim smsAcc As SmsAccount = sess.SmsAccount
        Dim smsFdr As SmsMessageFolder, SmsFdr1 As SmsMessageFolder ' Pour le reception
        Dim smsFdrRep As SmsMessageFolder ' pour les réponses
        Dim smsrponse As InTheHand.WindowsMobile.PocketOutlook.SmsMessage

Voila j'espère que j'ai pas trop mal expliqué

Claude