Discussion :

[philguio]

Bonsoir.
J'ai fait une application pour écrire dans une BDD et dans Outlook pour gérer les RdV. Jusqu'ici pas de pb.
Par contre pour supprimer les données pas de pb, la ou ça se corse c'est pour enlever le rdv dans le calendrier Outlook.
Merci par avance pour me donner une info ou une piste.
J'ai déjà fait un poste que je n'ai pas suivi, je reprends le projet.
Bonnes fêtes à tous.
Philguio

[philguio]

Bonsoir.
Pour ceux que ça intéresse.

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'Variables de fonctionnement
 
        Dim OlApp As New Outlook.Application    'déclaraction et création (New) de l'instance Outlook
        Dim OlMapi As Outlook.NameSpace
        Dim OlFolder As Outlook.MAPIFolder
        Dim OlAppointment As Outlook.AppointmentItem
        'Initialisation des variables
        OlMapi = OlApp.GetNamespace("MAPI")
        OlFolder = OlMapi.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
 
        For Each OlAppointment In OlFolder.Items
            'si oui supprimé le rdv
            If OlAppointment.Subject = "Affaire recherchée" Then
                OlAppointment.Delete()
            End If
        Next
 
 
        OlMapi = Nothing
        OlApp = Nothing
 
    End Sub

Il y à peut être mieux.
Bonnes fêtes à tous