Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
-=lolol=-
Bonjour brucat,
Si tu spique ingliche, tu trouveras plus d'aide sur le NG us "...programming..." Isabelle étant très occupée ces temps ci, je doute qu'elle trouve le temps de t'aider :-( ici un bout de code qui te permettra de récupérer la liste des tâches et accessoirement l'objet
Public Sub ListeTâches()
Dim Ol_App As New Outlook.Application Dim Ol_Mapi As Outlook.NameSpace Dim Ol_Items As Outlook.Items Dim Ol_Item As Outlook.TaskItem
Set Ol_Mapi = Ol_App.GetNamespace("MAPI") Set Ol_Items = Ol_Mapi.GetDefaultFolder(olFolderTasks).Items
For Each Ol_Item In Ol_Items If TypeName(OlItem) = "TaskItem" Then Debug.Print Ol_Item.Subject, _ Ol_Item.DueDate, _ Ol_Item.StartDate, _ Ol_Item.DateCompleted End If Next Ol_Item
Set Ol_Item = Nothing Set Ol_Items = Nothing Set Ol_Mapi = Nothing Set Ol_App = Nothing
End Sub
hth @+lolo
Bonjour brucat,
Si tu spique ingliche, tu trouveras plus d'aide sur le NG us
"...programming..."
Isabelle étant très occupée ces temps ci, je doute qu'elle trouve le temps
de t'aider :-(
ici un bout de code qui te permettra de récupérer la liste des tâches et
accessoirement l'objet
Public Sub ListeTâches()
Dim Ol_App As New Outlook.Application
Dim Ol_Mapi As Outlook.NameSpace
Dim Ol_Items As Outlook.Items
Dim Ol_Item As Outlook.TaskItem
Set Ol_Mapi = Ol_App.GetNamespace("MAPI")
Set Ol_Items = Ol_Mapi.GetDefaultFolder(olFolderTasks).Items
For Each Ol_Item In Ol_Items
If TypeName(OlItem) = "TaskItem" Then
Debug.Print Ol_Item.Subject, _
Ol_Item.DueDate, _
Ol_Item.StartDate, _
Ol_Item.DateCompleted
End If
Next Ol_Item
Set Ol_Item = Nothing
Set Ol_Items = Nothing
Set Ol_Mapi = Nothing
Set Ol_App = Nothing
Si tu spique ingliche, tu trouveras plus d'aide sur le NG us "...programming..." Isabelle étant très occupée ces temps ci, je doute qu'elle trouve le temps de t'aider :-( ici un bout de code qui te permettra de récupérer la liste des tâches et accessoirement l'objet
Public Sub ListeTâches()
Dim Ol_App As New Outlook.Application Dim Ol_Mapi As Outlook.NameSpace Dim Ol_Items As Outlook.Items Dim Ol_Item As Outlook.TaskItem
Set Ol_Mapi = Ol_App.GetNamespace("MAPI") Set Ol_Items = Ol_Mapi.GetDefaultFolder(olFolderTasks).Items
For Each Ol_Item In Ol_Items If TypeName(OlItem) = "TaskItem" Then Debug.Print Ol_Item.Subject, _ Ol_Item.DueDate, _ Ol_Item.StartDate, _ Ol_Item.DateCompleted End If Next Ol_Item
Set Ol_Item = Nothing Set Ol_Items = Nothing Set Ol_Mapi = Nothing Set Ol_App = Nothing