Transférer un corps de mail dans un fichier excel

**shakapouet** · 19/07/2012, 09h26

Bonjour,

Chaque jour, je reçoit des mails dans ma boite outlook, ou dedans ce trouve un tableau. Ce que j'aimerai faire c'est pouvoir à l'aide d'une macro copier / coller ces tableau en gardant un minimum de mise en forme.

Pour le moment j'utilise ce petit bout de code qui me permet d'aller chercher dans ma boite de réception les mails et de les copiers dans une cellule mais sans aucune mise en forme ( un tableau dans une cellule ça rend pas vraiment bien

)

Enfin à partir de ce code comment faire pour ne pas récupérer les mails qui se trouvent dans ma boite de réception mais ceux dans un sous groupe ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub transfertMailsDansExcel()
    'necessite d'activer la reference Microsoft Outlook xx Object library
    Dim OLapp As Outlook.Application
    Dim OLspace As Outlook.Namespace
    Dim OLinbox As Outlook.MAPIFolder
    Dim OLmail As Outlook.mailItem
    Dim OLbody As String
    Dim i As Integer
 
    Set OLapp = CreateObject("Outlook.application")
    Set OLspace = OLapp.getNamespace("MAPI")
    Set OLinbox = OLspace.getDefaultFolder(olFolderInbox) 'boite de reception
 
    Sheets("Feuil2").Select
 
    For Each OLmail In OLinbox.Items
    i = i + 1
    Cells(i, 1) = OLmail.SenderName
    Cells(i, 2) = OLmail.Body
    Next
End Sub

Cordialement

**carden752** · 20/07/2012, 07h20

Bonjour,

Il suffit de spécifier le sous dossier derrière comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set OLinbox = OLspace.getDefaultFolder(olFolderInbox).folders("Mon dossier")

**papykun** · 15/04/2013, 17h01

Bonsoir,

Je viens de tenter d'utiliser le script. j'ai fait alt + F11, créé un module et copié / collé le contenu.
J'ai ensuite voulu lancer la macro sur un répertoire de mon outlook, j'ai un message d'erreur (voir PJ)

N'ayant aucune expérience, je suis un peu perdu je dois le reconnaitre.

Bonne soirée

**Oliv-** · 15/04/2013, 17h09

Salut,
fait la même chose mais dans EXCEL en ajoutant la référence à OUTLOOK dans VBE

**papykun** · 16/04/2013, 01h45

Je testerais mercredi probablement.

Merci

**papykun** · 17/04/2013, 09h28

Bonjour,

Je suis vraiment pas doué... Je dois pas changer ce qu'il faut probablement...

**Oliv-** · 17/04/2013, 09h53

Salut
Tu devrais expliquer ce que tu veux faire et dans quel contexte
Le code de ce post n est peut être pas adapte

**papykun** · 17/04/2013, 11h23

Tout à fait, je voulais mettre plus de détails dans mon précédent message mais suis parti dans mes recherches...

Pour faire simple :

J'ai des mails ds un réprtoire. Je veux faire une extraction des informations du mail vers un fichier excel.

Date
Dossier
Expediteur
Recipients
Titre
Contenu
Pièces jointes

J'aimerais que tout soient aligné sur une ligne pour les informations, avec le contenu des mails qui s'implèmente au fur et à mesure en dessous.

**Oliv-** · 17/04/2013, 11h43

C est quoi un répertoire pour toi un dossier outlook ou windows ?

**papykun** · 17/04/2013, 13h00

Dans mon arborescence Outlook, j'ai des répertoires. Je veux en extraire les informations.

J'espère être plus clair.

Screen ici de ce que je veux ds Excel

Merci pour ton aide.

**papykun** · 19/04/2013, 16h31

Dur dur apparemment :/

**carden752** · 19/04/2013, 16h47

Bonjour,

Tu as les propriétés

creationtime pour la date de création,
receivedtime pour la date de réception,
parent.Name qui peuvent te servir pour le nom du dossier
sendername pour l'expéditeur,
receivedbyname pour les destinataires,
subject pour le titre
body pour le contenu
attachments pour les pièces jointes

Envoyé par papykun

Dur dur apparemment :/

Pas forcément, plus pas trop de temps pour répondre

**Oliv-** · 20/04/2013, 09h21

Salut,
Surtout un manque de temps aussi.
Le code initial doit avec les éléments de Christophe te donner satisfaction
Le code doit être execute dans excel.