1 pièce(s) jointe(s)
Interace ACCESS 2013 - tâches OUTLOOK
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
Pièce jointe 606066
Code:
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 |