Discussion :

[frog68]

Bonjour,
Je cherche à créer des tâches dans Outlook à partir d'excel.
Mais dans des dossiers prédéfinis Sous MyTask.

Voilà mon code qui crée une tâche. Je suis novice, c'est donc peut être pas top, mais ça fonctionne.

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
Sub Create_task()
 
Dim olApp As Outlook.Application
Dim olTsk As TaskItem
Dim myDestFolder As Task.Folder
 
Set olApp = New Outlook.Application
 
Set olTsk = olApp.CreateItem(olTaskItem)
olTsk.Subject = "Test"
olTsk.DueDate = "15/11/2019"
olTsk.Body = "retest"
olTsk.Save
 
End Sub

ça fonctionne mais créé une tâche dans le dossier "Aufgaben" alors que je souhaiterai le dossier "BAS_Ausbildung". Vois image jointe.



Merci