Dimitri De Neys
Nouveau membre
Bonjour à tous, je dois pas être loin du but mais je ne trouve vraiment pas comment finaliser:
Voici le code que j'ai actuellement:
Me créé bien la tache dans Outlook Hourra, mais:
La date de création ce met a aujourd'hui et ne fait pas référence a myItem.DueDate = Cells(i, "C")
Le Texte en colonne H ne ce met pas dans Note...
Je cherche depuis maintenant quelques jour et je ne trouve pas ...
Merci d'avance a qui pourra m'aider.
Voici le code que j'ai actuellement:
Sub AjoutTacheII()
Dim myolApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim objName As Outlook.Namespace
Dim objFolder
Set objName = myolApp.GetNamespace("MAPI")
Set objFolder = objName.GetDefaultFolder(olFolderTasks) '13
Dim dl&
dl = Cells(Rows.Count, 2).End(xlUp).Row
For i = 4 To dl
Set myItem = myolApp.CreateItem(olTaskItem) '3
myItem.Subject = Cells(i, "B")
myItem.DueDate = Cells(i, "C")
myItem.Assign
myItem.ReminderSet = False
myItem.Save
Next i
Set myolApp = Nothing
End Sub
Me créé bien la tache dans Outlook Hourra, mais:
La date de création ce met a aujourd'hui et ne fait pas référence a myItem.DueDate = Cells(i, "C")
Le Texte en colonne H ne ce met pas dans Note...
Je cherche depuis maintenant quelques jour et je ne trouve pas ...
Merci d'avance a qui pourra m'aider.