Discussion :

[hawk91]

Bonjour à tous,

Je cherche à extraire au format excel des mails arrivant ayant tous le même format à savoir :

De :
Envoyé :
À : Nath
Objet :


Nom :
Prenom :
Email :
Adresse1 :
Code_postal : 92290
Ville : Chate
Telephone :
Message :
Envoyer_x :
Envoyer_y :

Je souhaiterai récuperer tout ça sous excel en colonne mais je seche j'ai lu plein de post mais debutant en vba donc pas simple.

Merci

[lemoine2]

Bonjour,

je cherche a faire a peu près la même chose voici ou j en suis

cela devrais t aider un peu

tiens moi au courant car e sèche

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub EcritDansExcel()
Dim objItem As MailItem
Set objItem = Application.ActiveInspector.CurrentItem
Dim XlApp, XlClas
 
 
    'Création d'un Excel
    Set XlApp = CreateObject("Excel.Application")
    'Ouverture du classeur
    Set XlClas = XlApp.Workbooks.Open("C:\Documents and Settings\ylemoine\Bureau\essai.xls")
    'Ecriture d'une valeur en A1 de Feuil1
 
    With XlClas.Worksheets("Feuil1")
    Ligne = .Range("A65536").End(-4162).Row + 1
    .Range("A" & Ligne).Value = objItem.Subject
    .Range("B" & Ligne).Value = objItem.SenderName
    .Range("C" & Ligne).Value = objItem.SentOn
    .Range("D" & Ligne).Value = objItem.ReceivedTime
    .Range("E" & Ligne).Value = objItem.SenderEmailAddress
    .Range("F" & Ligne).Value = objItem.To
    .Range("G" & Ligne).Value = objItem.SenderEmailAddress
    .Range("H" & Ligne).Value = objItem.Body
'    .Range("I" & Ligne).Value = objItem.UserProperties
 '   .Range("J" & Ligne).Value = objItem.To
 '   .Range("K" & Ligne).Value = objItem.To
 
    End With
 
 
    'Sauvegarde des modifications et fermeture du classeur
    XlClas.Close True
    'On quitte Excel
    XlApp.Quit
    'On libère la mémoire des variables
    Set XlClas = Nothing
    Set XlApp = Nothing
End Sub

aussi