communication avec outlook en vb.net
Bonjour à tous.
Encore une petite question.
Mon appli permet de remplir une BdD avec des requêtes SQL, jusqu'ici pas de pb. Les renseignements sont stockés dans la base et aussi dans le calendrier outlook, la aussi c'est bon. Par contre je galère pour effacer. Pour les données dans la base pas de pb mais pour effacer dans le calendrier Outlook, là galère. Franchement par manque de temps, je n'ai pas beaucoup cherché, mise à part .delete().
J'ai trouvé ceci qui est en vb6. si quelqu'un peut le convertir en vb.net ou alors à un tuto ou un bout de code, je suis preneur.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Dim outlk As Outlook.Application
Dim appt As Outlook.AppointmentItem
Dim Nom As Outlook.NameSpace
Dim Calend As Outlook.Items
Set outlk = CreateObject("Outlook.Application")
Set Nom = outlk.GetNameSpace("MAPI")
Set Calend = Nom.GetDefaultFolder(olFolderCalendar).Items
Calend.Sort "[Start]"
Calend.IncludeRecurrences = True
Set appt = Calend.Find("[Start] >= """ & datedébutrecherche & """ and [Start] <= """ & datefinrecherche & """")
While TypeName(appt) <> "Nothing"
If appt.Subject = rdv recherché Then
appt.Delete
End If
Set appt = Calend.FindNext
Wend |
Bon je cherche en attendant.
Merci par avance.
GUPH
