Exporter Tâches Outlook dans Excel (VBA)
Résolu/Fermé
clement.
Messages postés
289
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
3 septembre 2013
-
24 févr. 2009 à 13:15
clement. Messages postés 289 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 3 septembre 2013 - 26 févr. 2009 à 09:44
clement. Messages postés 289 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 3 septembre 2013 - 26 févr. 2009 à 09:44
A voir également:
- Exporter Tâches Outlook dans Excel (VBA)
- Liste déroulante excel - Guide
- Si et excel - Guide
- Windows 11 barre des taches a gauche - Guide
- Aller à la ligne excel - Guide
- Chrome exporter favoris - Guide
4 réponses
clement.
Messages postés
289
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
3 septembre 2013
14
26 févr. 2009 à 09:44
26 févr. 2009 à 09:44
J'ai reussi a incorporé ce code dans excel, maintenant ce que je voudrais c'est afficher le contenu des éléments
olTsk.Subject
olTsk.startDate
olTsk.Status
Dans les différentes cellules de Excel.
par exemple : ActiveCell.FormulaR1C1 = "olTsk.Subject " ben m'arrichera olTsk.Subject dans la cellule :)
mais j'aimerais que ca m'affiche le contenu de olTsk.Subject :)
Merci de votre aide.
olTsk.Subject
olTsk.startDate
olTsk.Status
Dans les différentes cellules de Excel.
par exemple : ActiveCell.FormulaR1C1 = "olTsk.Subject " ben m'arrichera olTsk.Subject dans la cellule :)
mais j'aimerais que ca m'affiche le contenu de olTsk.Subject :)
Merci de votre aide.
blfr
Messages postés
46
Date d'inscription
lundi 15 décembre 2008
Statut
Membre
Dernière intervention
24 février 2009
1
24 févr. 2009 à 14:27
24 févr. 2009 à 14:27
ce code va te lister en mode debug toute tes taches avec le contenu (body)..
dis moi si tu veux plus d'info
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(Ol_Item) = "TaskItem" Then
Debug.Print Ol_Item.Subject, _
Ol_Item.Body, _
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
++
dis moi si tu veux plus d'info
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(Ol_Item) = "TaskItem" Then
Debug.Print Ol_Item.Subject, _
Ol_Item.Body, _
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
++
clement.
Messages postés
289
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
3 septembre 2013
14
25 févr. 2009 à 08:48
25 févr. 2009 à 08:48
Merci je testerais ça dans la matinée. mais question : quand je regarde le code je vois le terme MAPI, c'est juste que les boites sont configurée en IMAP est ce que c'est gênant ??
merci je te tiens au courant
merci je te tiens au courant
clement.
Messages postés
289
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
3 septembre 2013
14
26 févr. 2009 à 08:47
26 févr. 2009 à 08:47
Salut, Apparement quand je lance l'execution il m'affiche bien des taches dans la partie execution...
En faite c'est la même Taches mais plusieurs fois.
Est ce que c'est possible a partir d'un bouton crée à l'intérieur d'un fichier excel ca affiche les taches d'outlook dans la page excel ?
Merci
En faite c'est la même Taches mais plusieurs fois.
Est ce que c'est possible a partir d'un bouton crée à l'intérieur d'un fichier excel ca affiche les taches d'outlook dans la page excel ?
Merci