Discussion :

[Pittouti]

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

[joe.levrai]

Bonjour,

peut-être qu'en effectuant un .Save juste avant le Remind ça fonctionnerait ? Voir un .Save et un .Send, ensuite revenir sur la tâche pour effectuer le Remind ?


ce sont des pistes ... je n'ai pas testé (et je n'utilise pas les rappels sur Outlook)

[Oliv-]

Bonsoir,

Le code sera lancé de quelle application ?

Pour un rappel il faut indiquer la date et l'heure

Code :

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

1
2
 
.ReminderTime = DateValue("28/04/2016") & " 09:00"

C'est bien un rappel pour l'expéditeur que tu veux ou pour le destinataire ?

[Pittouti]

Bonjour ,

Oui c'est un rappel à l'expéditeur.

Par contre j'ai essayé ton code et ça ne marche toujours pas !!

[Pittouti]

Bonjour,

peut-être qu'en effectuant un .Save juste avant le Remind ça fonctionnerait ? Voir un .Save et un .Send, ensuite revenir sur la tâche pour effectuer le Remind ?


ce sont des pistes ... je n'ai pas testé (et je n'utilise pas les rappels sur Outlook)

BOnjour,

j'ai essayé ça uassi mais ça ne marche toujours pas :'(