Bonjour,
J'ai récupéré un morceau de code qui me permet de programmer une tâche Otulook à partir d'Access (Merci tee_grandois).
Je récupère bien pour le calcul de "dtDate" la date de début : dtDate = Me.Date_de_Debut
Par contre je n'arrive pas à la configurer dans l'entête de la tâche la Date de Début , j'ai une erreur de compilation sur :
.StartDate = Me.Date_de_Debut
J'aimerai bien configurer également les autres champs de la tâche à partir de mon formulaire, Est ce possible ?
Etat, Priorité,%Achevé, et surtout pouvoir router une tâche sur un calendrier outlook d'un autre utilisateur.
Est ce possible.
Merci de vos avis sur l question.
ALEXM
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
24
25
26
27
28
29 Private Sub Commande_14_Click() ' liaison tardive (late binding) Dim objOutlook As Object Set objOutlook = CreateObject("Outlook.Application") Dim objMsg As Outlook.MailItem 'MessageOutlook Dim myOut As Object Dim myTask As Object 'Dim dtTime As String dtTime = CDate(Me.heurerappel) dtDate = Me.Date_de_Debut Set myOut = CreateObject("Outlook.Application") Set myTask = myOut.CreateItem(olTaskItem) 'Affectation d'un Objet Tâche à myTask With myTask .Subject = Me.[Nom du projet] ' .StartDate = Me.Date_de_Debut .DueDate = Me.Date_de_fin .ReminderSet = CocheRappel .ReminderTime = Daterappel .ReminderTime = DateAdd("d", 2, CDate(dtDate & " " & dtTime)) .Display End With myTask.Save End Sub
Partager