après multiple recherche sur internet, je m adresse a vous
je voudrais savoir si c est possible d'importer sous une feuille excel tous
les emails depuis outllok2003 d'un repertoire nommé par exemple boite de
reception - stephane.
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
Daniel.C
Bonjour. Je ne sais pas si le code suivant fonctionne avec Outlook 2003. Tu trouveras l'aide sur les différents champs disponible en recherchant "mailitem" dans la fenêtre VBA de Outlook. J'ai mis les résultats en msgbox ne sachant pas la disposition que tu veux adopter sur la feuille Excel.
Sub LireMessagesDuDossierStephane() Dim olApp As Object, NS As Object, Dossier As Object Dim OlExp As Object Dim i As Object Set olApp = CreateObject("Outlook.Application") Set NS = olApp.GetNamespace("MAPI") Set Dossier = NS.Folders("Dossiers personnels").Folders("Boîte de réception") Set Dossier = Dossier.Folders("Stephane") For Each i In Dossier.Items MsgBox i.Subject MsgBox i.Body For Each r In i.Recipients MsgBox r.Name MsgBox r.Address Next r For Each a In i.Attachments MsgBox a.Filename Next a Next i End Sub
Cordialement. Daniel
Bonjour,
après multiple recherche sur internet, je m adresse a vous je voudrais savoir si c est possible d'importer sous une feuille excel tous les emails depuis outllok2003 d'un repertoire nommé par exemple boite de reception - stephane.
merci d'avance
Bonjour.
Je ne sais pas si le code suivant fonctionne avec Outlook 2003. Tu
trouveras l'aide sur les différents champs disponible en recherchant
"mailitem" dans la fenêtre VBA de Outlook. J'ai mis les résultats en
msgbox ne sachant pas la disposition que tu veux adopter sur la feuille
Excel.
Sub LireMessagesDuDossierStephane()
Dim olApp As Object, NS As Object, Dossier As Object
Dim OlExp As Object
Dim i As Object
Set olApp = CreateObject("Outlook.Application")
Set NS = olApp.GetNamespace("MAPI")
Set Dossier = NS.Folders("Dossiers personnels").Folders("Boîte de
réception")
Set Dossier = Dossier.Folders("Stephane")
For Each i In Dossier.Items
MsgBox i.Subject
MsgBox i.Body
For Each r In i.Recipients
MsgBox r.Name
MsgBox r.Address
Next r
For Each a In i.Attachments
MsgBox a.Filename
Next a
Next i
End Sub
Cordialement.
Daniel
Bonjour,
après multiple recherche sur internet, je m adresse a vous
je voudrais savoir si c est possible d'importer sous une feuille excel tous
les emails depuis outllok2003 d'un repertoire nommé par exemple boite de
reception - stephane.
Bonjour. Je ne sais pas si le code suivant fonctionne avec Outlook 2003. Tu trouveras l'aide sur les différents champs disponible en recherchant "mailitem" dans la fenêtre VBA de Outlook. J'ai mis les résultats en msgbox ne sachant pas la disposition que tu veux adopter sur la feuille Excel.
Sub LireMessagesDuDossierStephane() Dim olApp As Object, NS As Object, Dossier As Object Dim OlExp As Object Dim i As Object Set olApp = CreateObject("Outlook.Application") Set NS = olApp.GetNamespace("MAPI") Set Dossier = NS.Folders("Dossiers personnels").Folders("Boîte de réception") Set Dossier = Dossier.Folders("Stephane") For Each i In Dossier.Items MsgBox i.Subject MsgBox i.Body For Each r In i.Recipients MsgBox r.Name MsgBox r.Address Next r For Each a In i.Attachments MsgBox a.Filename Next a Next i End Sub
Cordialement. Daniel
Bonjour,
après multiple recherche sur internet, je m adresse a vous je voudrais savoir si c est possible d'importer sous une feuille excel tous les emails depuis outllok2003 d'un repertoire nommé par exemple boite de reception - stephane.
merci d'avance
STEPH B
merci ca marche nikel apres les paramètres mis en place de ma boite de reception ou se trouvent mes emails
"Daniel.C" a écrit dans le message de news:
Bonjour. Je ne sais pas si le code suivant fonctionne avec Outlook 2003. Tu trouveras l'aide sur les différents champs disponible en recherchant "mailitem" dans la fenêtre VBA de Outlook. J'ai mis les résultats en msgbox ne sachant pas la disposition que tu veux adopter sur la feuille Excel.
Sub LireMessagesDuDossierStephane() Dim olApp As Object, NS As Object, Dossier As Object Dim OlExp As Object Dim i As Object Set olApp = CreateObject("Outlook.Application") Set NS = olApp.GetNamespace("MAPI") Set Dossier = NS.Folders("Dossiers personnels").Folders("Boîte de réception") Set Dossier = Dossier.Folders("Stephane") For Each i In Dossier.Items MsgBox i.Subject MsgBox i.Body For Each r In i.Recipients MsgBox r.Name MsgBox r.Address Next r For Each a In i.Attachments MsgBox a.Filename Next a Next i End Sub
Cordialement. Daniel
Bonjour,
après multiple recherche sur internet, je m adresse a vous je voudrais savoir si c est possible d'importer sous une feuille excel tous les emails depuis outllok2003 d'un repertoire nommé par exemple boite de reception - stephane.
merci d'avance
merci ca marche nikel apres les paramètres mis en place de ma boite de
reception ou se trouvent mes emails
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
emgLBT26KHA.5848@TK2MSFTNGP06.phx.gbl...
Bonjour.
Je ne sais pas si le code suivant fonctionne avec Outlook 2003. Tu
trouveras l'aide sur les différents champs disponible en recherchant
"mailitem" dans la fenêtre VBA de Outlook. J'ai mis les résultats en
msgbox ne sachant pas la disposition que tu veux adopter sur la feuille
Excel.
Sub LireMessagesDuDossierStephane()
Dim olApp As Object, NS As Object, Dossier As Object
Dim OlExp As Object
Dim i As Object
Set olApp = CreateObject("Outlook.Application")
Set NS = olApp.GetNamespace("MAPI")
Set Dossier = NS.Folders("Dossiers personnels").Folders("Boîte de
réception")
Set Dossier = Dossier.Folders("Stephane")
For Each i In Dossier.Items
MsgBox i.Subject
MsgBox i.Body
For Each r In i.Recipients
MsgBox r.Name
MsgBox r.Address
Next r
For Each a In i.Attachments
MsgBox a.Filename
Next a
Next i
End Sub
Cordialement.
Daniel
Bonjour,
après multiple recherche sur internet, je m adresse a vous
je voudrais savoir si c est possible d'importer sous une feuille excel
tous les emails depuis outllok2003 d'un repertoire nommé par exemple
boite de reception - stephane.
merci ca marche nikel apres les paramètres mis en place de ma boite de reception ou se trouvent mes emails
"Daniel.C" a écrit dans le message de news:
Bonjour. Je ne sais pas si le code suivant fonctionne avec Outlook 2003. Tu trouveras l'aide sur les différents champs disponible en recherchant "mailitem" dans la fenêtre VBA de Outlook. J'ai mis les résultats en msgbox ne sachant pas la disposition que tu veux adopter sur la feuille Excel.
Sub LireMessagesDuDossierStephane() Dim olApp As Object, NS As Object, Dossier As Object Dim OlExp As Object Dim i As Object Set olApp = CreateObject("Outlook.Application") Set NS = olApp.GetNamespace("MAPI") Set Dossier = NS.Folders("Dossiers personnels").Folders("Boîte de réception") Set Dossier = Dossier.Folders("Stephane") For Each i In Dossier.Items MsgBox i.Subject MsgBox i.Body For Each r In i.Recipients MsgBox r.Name MsgBox r.Address Next r For Each a In i.Attachments MsgBox a.Filename Next a Next i End Sub
Cordialement. Daniel
Bonjour,
après multiple recherche sur internet, je m adresse a vous je voudrais savoir si c est possible d'importer sous une feuille excel tous les emails depuis outllok2003 d'un repertoire nommé par exemple boite de reception - stephane.