J'ai Outlook 2003 et je souhaiterais afficher dans mon appli VB une
liste contenant les messages non lus de la bo=EEte de r=E9ception (date,
exp=E9diteur et sujet)
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
kyrios
J'ai finalement trouvé un bout de code pour récupérer les messages de boîte de réception, mais chose étrange la bouche FOR plante au bout d'un message récupéré, puis au bout de 4, mais fonctionne pour les autres, voici mon code :
Dim olApplication As outlook.Application Dim olNamespace As outlook.NameSpace Dim olMAPIFolder As outlook.MAPIFolder Dim olItems As outlook.Items Dim olMailItem As outlook.MailItem
Set olApplication = outlook.Application Set olNamespace = olApplication.GetNamespace("MAPI") Set olMAPIFolder = olNamespace.GetDefaultFolder(olFolderInbox) Set olItems = olMAPIFolder.Items
For Each olMailItem In olItems Me.List1.AddItem olMailItem.Subject Next olMailItem
Set olMailItem = Nothing Set olItems = Nothing Set olMAPIFolder = Nothing Set olNamespace = Nothing Set olApplication = Nothing MsgBox "Terminé !"
Lorsqu'il y a plantage, j'ai le message suivant (arrêt sur la ligne Next olMailItem)
Erreur d'exécution '13' : Type incompatible
Si quelqu'un a une explication ...
Merci d'avance !
J'ai finalement trouvé un bout de code pour récupérer les messages
de boîte de réception, mais chose étrange la bouche FOR plante au
bout d'un message récupéré, puis au bout de 4, mais fonctionne pour
les autres, voici mon code :
Dim olApplication As outlook.Application
Dim olNamespace As outlook.NameSpace
Dim olMAPIFolder As outlook.MAPIFolder
Dim olItems As outlook.Items
Dim olMailItem As outlook.MailItem
Set olApplication = outlook.Application
Set olNamespace = olApplication.GetNamespace("MAPI")
Set olMAPIFolder = olNamespace.GetDefaultFolder(olFolderInbox)
Set olItems = olMAPIFolder.Items
For Each olMailItem In olItems
Me.List1.AddItem olMailItem.Subject
Next olMailItem
Set olMailItem = Nothing
Set olItems = Nothing
Set olMAPIFolder = Nothing
Set olNamespace = Nothing
Set olApplication = Nothing
MsgBox "Terminé !"
Lorsqu'il y a plantage, j'ai le message suivant (arrêt sur la ligne
Next olMailItem)
J'ai finalement trouvé un bout de code pour récupérer les messages de boîte de réception, mais chose étrange la bouche FOR plante au bout d'un message récupéré, puis au bout de 4, mais fonctionne pour les autres, voici mon code :
Dim olApplication As outlook.Application Dim olNamespace As outlook.NameSpace Dim olMAPIFolder As outlook.MAPIFolder Dim olItems As outlook.Items Dim olMailItem As outlook.MailItem
Set olApplication = outlook.Application Set olNamespace = olApplication.GetNamespace("MAPI") Set olMAPIFolder = olNamespace.GetDefaultFolder(olFolderInbox) Set olItems = olMAPIFolder.Items
For Each olMailItem In olItems Me.List1.AddItem olMailItem.Subject Next olMailItem
Set olMailItem = Nothing Set olItems = Nothing Set olMAPIFolder = Nothing Set olNamespace = Nothing Set olApplication = Nothing MsgBox "Terminé !"
Lorsqu'il y a plantage, j'ai le message suivant (arrêt sur la ligne Next olMailItem)
