Rappel RDV outlook depuis excel

Version imprimable

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:

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

09/04/2012, 09h36
kiki29

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

Code:

.ReminderSet = True

?
09/04/2012, 09h49
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
09/04/2012, 13h00
stephadm

Résolu

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