Bonjour,

je viens de créé ce code qui marche parfaitement, sauf que :

le rappel n'est pas activé et la date de rappel n'est pas renseignée.

est ce que quelqu'un sais m'aider svp ??

les deux ligne en rouge n"ont aucun effet !

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
Private Sub Commande0_Click()
Dim myOlApp As Object 'Outlook.Application
Dim myitem As Object
'Set myOlApp = New Outlook.Application'avec reference outlook
Set myOlApp = CreateObject("Outlook.Application") 'sans reference outlook
Set myitem = myOlApp.CreateItem(olTaskItem)
With myitem
    .Status = olTaskInProgress
    .Importance = olImportanceHigh 'olImportanceLow _ olImportanceNormal
    .DueDate = DateValue("04/04/16")
    .ReminderSet = True
    .ReminderTime = DateValue("04/04/16")
    .Body = "Planier une réunion dans les jour à venir"
    .TotalWork = 40
    .ActualWork = 20
    .Subject = "Planier une réunion dans les jour à venir"
    .Assign
    .Recipients.Add ("aaaaaaa@bbb.com")
    .Save
    .Send
End With
End Sub