Discussion :

[RJDTGA]

Bonjour (et très bonne année!)
J'ai trouvé beaucoup de conseils pour l'envoi de mail vial SMTP mais rien pour extraire les données (TO, Subject, body, ...) d'un message eml reçu.
Quelqu'un peut-il m'aider?
Il n'y a pas de outlook installé sur la machine.
Merci!

[RJDTGA]

Bonjour

Voilà pour ceux qui comme moi ont cherché sans trouver de fonction "toute faite", voici le code que j'ai realisé et qui marche parfaitement, même si ce n'est sans doute pas le plus efficace.

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
38
39
40
41
sub read_eml()
 
Dim MyDocFile, MyMsg, MsgId, MsgDate, MsgSubject, FileName, intFile, strFile, strIn As String
Dim MyObj As Object, MySource As Object, file As Variant
 
 
   '-------------------------------------------------
   'Boucle sur chaque message du répertoire courant
   '-------------------------------------------------
   file = Dir(CurrentProject.Path & "\testfile\")
   While (file <> "")
        MyDocFile = CurrentProject.Path & "\testfile\"
        '--------------------------------------------------
        'Open the eml file as a text file
        'Loop on lines, read Message ID, Date and Subject
        '--------------------------------------------------
        intFile = FreeFile()
        strFile = MyDocFile
        Open strFile For Input As #intFile
        Do While Not EOF(intFile)
            Line Input #intFile, strIn
                If Left(strIn, 11) = "Message-ID:" Then
                    MsgId = Mid(strIn, 13)
                    MsgBox ("MsgId = " & MsgId)
                End If
                If Left(strIn, 5) = "Date:" Then
                    MsgDate = Mid(strIn, 7)
                    MsgBox ("MsgDate = " & MsgDate)
                End If
                If Left(strIn, 8) = "Subject:" Then
                    MsgSubject = Mid(strIn, 10)
                    MsgBox ("MsgSubject = " & MsgSubject)
                End If
        Loop
        Close #intFile
 
        file = Dir
   Wend
 
 
End Sub