begin process at 2012 02 15 01:30:24
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Fichier / Disque

 > 

EXTRAIRE LES EMAILLS DE OUTLOOK ET LES AFFICHER DANS UN LISTVIEW


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

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

Membre Club
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

1 2

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


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,983 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales