bonsoir au forum,

Dans la création d'un RDVOutlook, je voudrais qu'un rappel visuel ou sonore soit effectue 1h (60 minutes) avant

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
Sub NouveauRDV_Calendrier()
Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
 
Set Rdv = OkApp.CreateItem(olAppointmentItem)
 
With Rdv
    .MeetingStatus = olMeeting
    .Subject = nom.Value
    .Body = libel.Value
    .Location = "à domicile"
    .Start = TextBox1.Value & " " & TextBox4.Value
    .Duration = 60
    .Categories = "Clients"
    .ReminderMinutesBeforeStart = 60
    .BusyStatus = olOutOfOffice
    .Save
End With
 
Set OkApp = Nothing
End Sub
Le "ReminderMinutesBeforeStart" ne fonctionne pas

Pourquoi et avez-vous une idée ?

Merci

Stephanie