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.
Si quelqu'un peut me donner une piste ou le lien d'un tuto, merci par avance.
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
philippe
Partager