Discussion :

[stephadm]

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

[kiki29]

Salut, je n'utilise pas OutLook mais ici je vois

Code :

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

 .ReminderSet = True

?

[stephadm]

Bonjour kiki29 et au forum

J'avais déjà essayé cette solution mais ça ne fonctionne pas. Quand je regarde dans outlook le RDV créer, il afficher aucun dans rappel alors que je demande 60 minutes avant.

Pourquoi ?

Stephanie

[stephadm]

re bonjour kiki29 et au forum

C'est bon, j'ai résolu mon problème. Le code précèdent est bon sauf que j'avais oublier de supprimer une "," dans le mien.

Merci

Stephanie