outlook et vb.net

Bonsoir.
Pour ceux que ça intéresse.

Code:

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