Bonjour,
Ma connaissance du VBA étant limité, j'ai fait appel à une AI qui m'a proposé le code vba ci-dessous pour extraire les propriétés de tous les mails d'un dossier avec l'extension (*.eml), le fichier csv est bien créé mais il est vide !
Je fais appel à un humain (on a encore une longueur d'avance) pour résoudre mon petit problème.
Bonne journée
Ma connaissance du VBA étant limité, j'ai fait appel à une AI qui m'a proposé le code vba ci-dessous pour extraire les propriétés de tous les mails d'un dossier avec l'extension (*.eml), le fichier csv est bien créé mais il est vide !
Je fais appel à un humain (on a encore une longueur d'avance) pour résoudre mon petit problème.
Bonne journée
VB:
Sub ExtraireProprietesEmails()
Dim fso As Object
Dim folder As Object
Dim emailFile As Object
Dim txtFile As Object
Dim line As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile = fso.CreateTextFile("propriétés_emails.csv")
Set folder = fso.GetFolder("C:\Users\U\Downloads\test mail")
For Each emailFile In folder.Files
If LCase(Right(emailFile.Name, 4)) = ".eml" Then ' Filtrer les fichiers .eml uniquement
' Extraire les propriétés du fichier email courant
line = emailFile.Name & ", " ' Ajouter le nom du fichier aux propriétés
' ... (code d'extraction des propriétés du fichier email)
txtFile.WriteLine line
End If
Next emailFile
txtFile.Close
MsgBox "Propriétés des e-mails extraites avec succès dans le fichier propriétés_emails.csv"
End Sub
Dernière édition: