Bonjour,
J'ai réalisé le code ci-dessous pour générer une tâche outlook depuis Excel et j'aimerais encore pouvoir afficher l'état (ex : non-commencé, terminée, etc.) et la priorité (ex : normale, faible, haute).
Pouvez vous me dire quel syntaxe il faut utiliser ?
Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub Bouton47_QuandClic() Dim OutlookApp As New Outlook.Application Dim Tache As Outlook.TaskItem Set OutlookApp = Outlook.Application Set Tache = OutlookApp.CreateItem(olTaskItem) With Tache Var = Subject .Subject = ActiveCell.Value .Body = ActiveCell.Offset(0, 5) .DueDate = ActiveCell.Offset(0, 1) .Display ' ou '.save End With End Sub
Partager