Classer des mails

[Djohn]

Bonjour,

J'aimerai pouvoir enregistrer les pieces jointes de mes mails automatiquement, cependant j'ai un petit soucis.

Les mails sont quasiement identique sous tous les points :
L'expéditeur est identique,
l'objet est identique
le contenu est vide
le nom de la piece jointe est identique

mais la ou il y a une difference, c'est a l'interieur de la piece jointe qui est un fichier Excel. Dans la Range A1, j'ai le nom d'une ville.

DOnc est ce possible de demander a outlook de regarder ce qui est ecris dans chaque fichier qui arrive en piece jointe, et suivant le contenu de l'enregister dans le bon repertoire qui existe deja.

mesdocuments\paris
mesdocuments\londres
mesdocuments\madrid

Merci bien

[Oliv-]

Salut,
Oui c'est possible
il faut enregistrer les pièces jointes dans un répertoire les ouvrir avec excel et selon ta valeur les déplacer ailleurs.

Il faut référencer la bibliothèque "Microsoft Excel xx Object library"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 'Déclaration des variables
            Dim appExcel As Excel.Application 'Application Excel
            Dim wbExcel As Excel.Workbook 'Classeur Excel
            Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
            'Ouverture de l'application
            Set appExcel = CreateObject("Excel.Application")
            appExcel.Visible = true 'pour ne pas afficher excel mettre false
            'Ouverture d'un fichier Excel
            Set wbExcel = appExcel.Workbooks.Open(Repertoire & PJ.FileName)
            'wsExcel correspond à la première feuille du fichier
            Set wsExcel = wbExcel.Worksheets(1)
msgbox wsExcel.range("a1").value
'...