Accueil > Forum > > > > EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW
EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW
jeudi 7 juin 2001 à 17:02:47 |
EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

phil
|
salut je voudrais extraire mes emails de outlook pour les affichers dans listview avec les colonnes taille date ex mercie d'avance pour la reponse.
|
|
samedi 9 juin 2001 à 18:18:36 |
Re : EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

LE CAS TASTROPHE
|
SALUT,
j'ais la meme requete ! si tu toruve, tu pourrais me dire stp ?
marc
------------------------------- Réponse au message : -------------------------------
salut je voudrais extraire mes emails de outlook pour les affichers dans listview avec les colonnes taille date ex mercie d'avance pour la reponse.
|
|
mardi 10 juillet 2001 à 15:43:37 |
Re : EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

kotkanpoika
|
Je mets une partie du code source qui permets de lire ce qu'on trouve dans OUTLOOK ... à vous de l'adapter pour la suite .
############################################################ ############################################################ ############################################################ ############################################################ ############################################################
'>>> Référence à ajouter au projet: '>>> Microsoft Outlook 8.0 Object Library
Option Explicit
Public Sub List_Outlook_Folder() Dim objOutlook As outlook.Application Dim objItems As outlook.Items Dim objMailItem As Object Dim MailIndex As Integer On Error GoTo err_Handler '~~~~~~~~ ouvrir OUTLOOK ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Set objOutlook = New outlook.Application '~~~~~~~~ ouvrir FOLDER ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Set objItems = objOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items ' pour voir le contenu des autres folders: ' ' olFolderCalendar - Outlook.AppointmentItem ' olFolderContacts - Outlook.ContactItem ' olFolderDeletedItems - Outlook.MailItem ' olFolderDrafts - Outlook.MailItem ' olFolderInbox - Outlook.MailItem ' olFolderJournal - Outlook.JournalIteml ' olFolderNotes - Outlook.NoteItem ' olFolderOutbox - Outlook.MailItem ' olFolderSentMail - Outlook.MailItem ' olFolderTasks - Outlook.TaskItem '~~~~~~~~ lire les messages ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MsgBox "Number of messages in Inbox : " & objItems.Count For MailIndex = 1 To objItems.Count Set objMailItem = objItems.Item(MailIndex) If Not objMailItem Is Nothing Then With objMailItem Debug.Print String(80, 126) Debug.Print ".EntryID : " & Mid$(.EntryID, 131, 6) Debug.Print ".SenderName : " & .SenderName Debug.Print ".Subject : " & .Subject Debug.Print ".Body : " & .Body End With End If Set objMailItem = Nothing Next MailIndex
'~~~~~~~~ fermer OUTLOOK ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Set objItems = Nothing Set objOutlook = Nothing
Exit Sub '^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^
err_Handler: Select Case Err.Number Case 438 Resume Next Case Else Debug.Print "err_Handler("; Err.Number; ") "; Err.Description MsgBox Err.Description Resume End Select End Sub
############################################################ ############################################################ ############################################################ ############################################################ ############################################################
------------------------------- Réponse au message : -------------------------------
SALUT,
j'ais la meme requete ! si tu toruve, tu pourrais me dire stp ?
marc
------------------------------- Réponse au message : -------------------------------
salut je voudrais extraire mes emails de outlook pour les affichers dans listview avec les colonnes taille date ex mercie d'avance pour la reponse.
|
|
dimanche 24 août 2003 à 20:23:30 |
Re : EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

DHUCH
|
Bonjour,
Je ne comprends pas grand chose à la programmation. Je cherche une solution pour pouvoir copier des courriel dans un répertoire Windows. Je clique sur un mail souris droite, il me demande où je veux le copier en txt avec une identité adresse exp, date, heure. Si en plus on pouvait sélectionner plusieurs mails pour les copiers en autant de fichioers ce serait super. pensez-vous cela faisable ?
Merçi
------------------------------- Réponse au message : -------------------------------
> Je mets une partie du code source qui permets de lire ce qu'on trouve dans OUTLOOK ... à vous de l'adapter pour la suite . > > ############################################################ > ############################################################ > ############################################################ > ############################################################ > ############################################################ > > '>>> Référence à ajouter au projet: > '>>> Microsoft Outlook 8.0 Object Library > > Option Explicit > > Public Sub List_Outlook_Folder() > Dim objOutlook As outlook.Application > Dim objItems As outlook.Items > Dim objMailItem As Object > Dim MailIndex As Integer > On Error GoTo err_Handler > > '~~~~~~~~ ouvrir OUTLOOK ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > Set objOutlook = New outlook.Application > > '~~~~~~~~ ouvrir FOLDER ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > Set objItems = objOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items > > ' pour voir le contenu des autres folders: > ' > ' olFolderCalendar - Outlook.AppointmentItem > ' olFolderContacts - Outlook.ContactItem > ' olFolderDeletedItems - Outlook.MailItem > ' olFolderDrafts - Outlook.MailItem > ' olFolderInbox - Outlook.MailItem > ' olFolderJournal - Outlook.JournalIteml > ' olFolderNotes - Outlook.NoteItem > ' olFolderOutbox - Outlook.MailItem > ' olFolderSentMail - Outlook.MailItem > ' olFolderTasks - Outlook.TaskItem > > '~~~~~~~~ lire les messages ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > MsgBox "Number of messages in Inbox : " & objItems.Count > For MailIndex = 1 To objItems.Count > Set objMailItem = objItems.Item(MailIndex) > If Not objMailItem Is Nothing Then > With objMailItem > > Debug.Print String(80, 126) > Debug.Print ".EntryID : " & Mid$(.EntryID, 131, 6) > Debug.Print ".SenderName : " & .SenderName > Debug.Print ".Subject : " & .Subject > Debug.Print ".Body : " & .Body > > End With > End If > Set objMailItem = Nothing > Next MailIndex > > '~~~~~~~~ fermer OUTLOOK ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > Set objItems = Nothing > Set objOutlook = Nothing > > Exit Sub '^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^ > > err_Handler: > Select Case Err.Number > Case 438 > Resume Next > Case Else > Debug.Print "err_Handler("; Err.Number; ") "; Err.Description > MsgBox Err.Description > Resume > End Select > End Sub > > ############################################################ > ############################################################ > ############################################################ > ############################################################ > ############################################################ > > > > > > ------------------------------- > Réponse au message : > ------------------------------- > > > SALUT, > > j'ais la meme requete ! si tu toruve, tu pourrais me dire stp ? > > marc > > > ------------------------------- > Réponse au message : > ------------------------------- > > salut > je voudrais extraire mes emails de outlook pour les affichers dans listview avec les colonnes taille date ex > mercie d'avance pour la reponse. > >
|
|
dimanche 7 septembre 2003 à 13:30:03 |
Re : EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

DHUCH
|
------------------------------- Réponse au message : -------------------------------
> Je mets une partie du code source qui permets de lire ce qu'on trouve dans OUTLOOK ... à vous de l'adapter pour la suite . > > ############################################################ > ############################################################ > ############################################################ > ############################################################ > ############################################################ > > '>>> Référence à ajouter au projet: > '>>> Microsoft Outlook 8.0 Object Library > > Option Explicit > > Public Sub List_Outlook_Folder() > Dim objOutlook As outlook.Application > Dim objItems As outlook.Items > Dim objMailItem As Object > Dim MailIndex As Integer > On Error GoTo err_Handler > > '~~~~~~~~ ouvrir OUTLOOK ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > Set objOutlook = New outlook.Application > > '~~~~~~~~ ouvrir FOLDER ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > Set objItems = objOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items > > ' pour voir le contenu des autres folders: > ' > ' olFolderCalendar - Outlook.AppointmentItem > ' olFolderContacts - Outlook.ContactItem > ' olFolderDeletedItems - Outlook.MailItem > ' olFolderDrafts - Outlook.MailItem > ' olFolderInbox - Outlook.MailItem > ' olFolderJournal - Outlook.JournalIteml > ' olFolderNotes - Outlook.NoteItem > ' olFolderOutbox - Outlook.MailItem > ' olFolderSentMail - Outlook.MailItem > ' olFolderTasks - Outlook.TaskItem > > '~~~~~~~~ lire les messages ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > MsgBox "Number of messages in Inbox : " & objItems.Count > For MailIndex = 1 To objItems.Count > Set objMailItem = objItems.Item(MailIndex) > If Not objMailItem Is Nothing Then > With objMailItem > > Debug.Print String(80, 126) > Debug.Print ".EntryID : " & Mid$(.EntryID, 131, 6) > Debug.Print ".SenderName : " & .SenderName > Debug.Print ".Subject : " & .Subject > Debug.Print ".Body : " & .Body > > End With > End If > Set objMailItem = Nothing > Next MailIndex > > '~~~~~~~~ fermer OUTLOOK ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > Set objItems = Nothing > Set objOutlook = Nothing > > Exit Sub '^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^ > > err_Handler: > Select Case Err.Number > Case 438 > Resume Next > Case Else > Debug.Print "err_Handler("; Err.Number; ") "; Err.Description > MsgBox Err.Description > Resume > End Select > End Sub > > ############################################################ > ############################################################ > ############################################################ > ############################################################ > ############################################################ > > > > > > ------------------------------- > Réponse au message : > ------------------------------- > > > SALUT, > > j'ais la meme requete ! si tu toruve, tu pourrais me dire stp ? > > marc > > > ------------------------------- > Réponse au message : > ------------------------------- > > salut > je voudrais extraire mes emails de outlook pour les affichers dans listview avec les colonnes taille date ex > mercie d'avance pour la reponse. > >
|
|
dimanche 7 septembre 2003 à 13:31:23 |
Re : EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

DHUCH
|
Bonjour,
J'ai vu votre code source. Mais maintenant qu'est-ce que l'on fait avec et comment ??
Merçi de votre réponse.
Daniel HUCHETTE
------------------------------- Réponse au message : -------------------------------
> > > > > ------------------------------- > Réponse au message : > ------------------------------- > > > Je mets une partie du code source qui permets de lire ce qu'on trouve dans OUTLOOK ... à vous de l'adapter pour la suite . > > > > ############################################################ > > ############################################################ > > ############################################################ > > ############################################################ > > ############################################################ > > > > '>>> Référence à ajouter au projet: > > '>>> Microsoft Outlook 8.0 Object Library > > > > Option Explicit > > > > Public Sub List_Outlook_Folder() > > Dim objOutlook As outlook.Application > > Dim objItems As outlook.Items > > Dim objMailItem As Object > > Dim MailIndex As Integer > > On Error GoTo err_Handler > > > > '~~~~~~~~ ouvrir OUTLOOK ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > Set objOutlook = New outlook.Application > > > > '~~~~~~~~ ouvrir FOLDER ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > Set objItems = objOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items > > > > ' pour voir le contenu des autres folders: > > ' > > ' olFolderCalendar - Outlook.AppointmentItem > > ' olFolderContacts - Outlook.ContactItem > > ' olFolderDeletedItems - Outlook.MailItem > > ' olFolderDrafts - Outlook.MailItem > > ' olFolderInbox - Outlook.MailItem > > ' olFolderJournal - Outlook.JournalIteml > > ' olFolderNotes - Outlook.NoteItem > > ' olFolderOutbox - Outlook.MailItem > > ' olFolderSentMail - Outlook.MailItem > > ' olFolderTasks - Outlook.TaskItem > > > > '~~~~~~~~ lire les messages ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > MsgBox "Number of messages in Inbox : " & objItems.Count > > For MailIndex = 1 To objItems.Count > > Set objMailItem = objItems.Item(MailIndex) > > If Not objMailItem Is Nothing Then > > With objMailItem > > > > Debug.Print String(80, 126) > > Debug.Print ".EntryID : " & Mid$(.EntryID, 131, 6) > > Debug.Print ".SenderName : " & .SenderName > > Debug.Print ".Subject : " & .Subject > > Debug.Print ".Body : " & .Body > > > > End With > > End If > > Set objMailItem = Nothing > > Next MailIndex > > > > '~~~~~~~~ fermer OUTLOOK ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > Set objItems = Nothing > > Set objOutlook = Nothing > > > > Exit Sub '^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^ > > > > err_Handler: > > Select Case Err.Number > > Case 438 > > Resume Next > > Case Else > > Debug.Print "err_Handler("; Err.Number; ") "; Err.Description > > MsgBox Err.Description > > Resume > > End Select > > End Sub > > > > ############################################################ > > ############################################################ > > ############################################################ > > ############################################################ > > ############################################################ > > > > > > > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > > > SALUT, > > > > j'ais la meme requete ! si tu toruve, tu pourrais me dire stp ? > > > > marc > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > salut > > je voudrais extraire mes emails de outlook pour les affichers dans listview avec les colonnes taille date ex > > mercie d'avance pour la reponse. > > > > >
|
|
vendredi 9 avril 2004 à 18:40:04 |
Re : EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

stefweb
|
Je trouve ce morceau de programme trés intéressant. Par contre, je n'arrive pas à trouver dans la documentation de VBA d'Outlook 2000 la manière de récupérer l'adresse e-mail de l'envoyeur de l'e-mail. J'aimerai récupérer toutes les adresses e-mails de tous les e-mails d'un répertoire et les placer dans une liste de diffusion. Avec "objMailItem" on peut récupérer le nom de l'envoyeur avec la propriété "SenderName" mais je ne trouve pas la propriété pour récupérer son adress e-mail.  Quelqu'un a une idée
|
|
jeudi 10 juin 2004 à 21:46:53 |
Re : EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

Maxikat
|
Up ;( J'ai le même problème. SenderName donne le nom de l'expéditeur, pas son email. Et je ne trouve pas la propriété qui contient l'email.
Ce qu'il peuvent être c.. chez MS des fois !!!
Help !!!
|
|
vendredi 9 juillet 2004 à 14:20:06 |
Re : EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

stefweb
|
Oui, c'est chaud. Je ne trouve aucun exemple de code pour récupérer cette adresse 
|
|
mardi 24 août 2004 à 16:42:07 |
Re : EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW

vega_the choosen
|
salut je sais que je vais vous demander et un peu hors sujet,mais est ce que quelq'un peut me dire comment faire pour créer un champ dans le formulaire tâche d'outlook; qui aura comme forme: texte avec liste déroulante. j'ai vraiment besoin d'une solution merci d'avance
|
|
Cette discussion est classée dans : outlook, afficher, listview, extraire, emaills
Répondre à ce message
Sujets en rapport avec ce message
Extraire une partie d'un RichTexBox et affichage dans une Listview [ par yohan_titi ]
Bonjour à tous.Mon pb est le suivant :J'affiche dans RichTexbox un fichier texte.Depuis ce RichTexBox, je voudrais extraire des noms de variables cont
Comment afficher un logo dans un ListView ? [ par Herminator ]
Bonjour à tous ! J'ai fait une application en ADO qui me permet d'afficher des noms de matières provenants d'une table SQL. Ces matières sont affiché
RichTextBox, Listview et boucles [ par yohan_titi ]
Bonjour à tous.Mon pb est le suivant : J'affiche dans RichTexbox un fichier texte.Depuis ce RichTexBox, je voudrais extraire des noms de variables con
Afficher des images sur un ListView [ par amer_ezahir ]
salut tout le monde vbfrance ; j'ai une table Produit (Refpdt, designation, image) y - a t-il une une possiblité d'afficher les images de la table pr
Importer un fichier CSV pour l'afficher dans une listview [ par digitalex ]
je souhaiterais importer un fichier qui est au format CSV, et l'afficher dans un listview. Quelle méthode la mieux adaptée me conseillerez-vous, svp ?
ListView Multilignes [ par hardycyr ]
Bonjour,N'ayant toujours pas trouvé de code me permettant de le faire, je voulais savoir s'il était possible de créer des éléments multilignes dans d
Crollbar d'un listview [ par DraaFil ]
Bonjour a tous, cela fait un bout de temps que je cherche une facon de force l'apparition d'un scroll bar vertical dans un listview (maiss'il y a pas
Listview [ par elog29 ]
Bonjour,J'ai une listview en mode report dans un form que je rempli avec une requete sql.J'ai parfois besoin d'y afficher plus d'1 million de lignes.Y
AFFICHER UN ITEM D'UNE LIGNE LISTVIEW DANS UN TOOLTIPTEXT A PLUSIEURS LIGNES [ par BOBIMARINE ]
BONJOURCOMMENT AFFICHER UNE LIGNE LISTVIEW AVEC RETOUR AUTOMATIQUE A LA LIGNE EN CAS DE DEBORDEMENT EN NB DE CARACTERES D'UN SUBITEM?MERCIA+
Afficher des fichiers dans un listview [ par nabil88 ]
Bonjour,Voilà je programme une application qui stock les fichiers de deux répertoires différent dans une base de données. Qui compare les deux tables
Livres en rapport
|
Derniers Blogs
GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|