Bonsoir
Je travail sur une application enregistrant des information. dans une base mbd. ces informations sont reportés directement dans le calendrier outlook. Ajouter et supprimer dans la bdd pas de pb, enregistrer les événements dans outlook pas de pb. Par contre pour annuler ou enlever un rdv dans Outlook; c'est là que je bloque. ci joint la sub destinée à supprimer.
Code : 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub suppre()
 
        Dim OutObj As Outlook.Application
        Dim OutAppt As Outlook.AppointmentItem
        Dim MyCalendar As Outlook.Items
        OutObj = CreateObject("Outlook.Application")
        MyCalendar = OutObj.GetNamespace("MAPI").Folders.Item(1).Items
        OutAppt = MyCalendar.Add(Outlook.OlItemType.olAppointmentItem)
        With OutAppt
            ' .Start = Me.DateTimePicker1.Text & " " & Me.ComboBoxStartHour.Text & ":" & Me.StartMinute.Text
            ' .End = Me.DateTimePicker2.Text & " " & Me.ComboBoxFinishHour.Text & ":" & Me.ComboBoxFinishMinute.Text
            ' .Subject = Me.txtOccasion.Text
 
            ' OutlookLocation()
            ' .Location = Me.txtQuoteVenue.Text ' outlookLocationText
 
            '  Outlookbodystring()
            '.Body = OutlookBodyText.Text
            ' .Move(objFolder)
            .Save()
            ' .Send()
            .Display()
 
 
            .Subject = Me.txtOccasion.Text
 
            .Delete()
 
            ' .Send()
            '.Display()
 
        End With
        'Libération des variables.
        objAppt = Nothing
        objOutlook = Nothing
        MsgBox("Rdv annulé!")
        '  Exit Function
        'Gere les erreurs
    End Sub
Si quelqu'un peut me donner une piste ou le lien d'un tuto, merci par avance.
philippe