Discussion :

[rcaillault]

Bonjour,

Je recherche une macro me permettant d'enregistrer des pièces jointes dont le nom contient le mot Eolienne (qu'il soit écrit en majuscule, minuscule..., que le format soit pdf, xls, doc...) dans un répertoire précis.

Merci

[Dolphy35]

Bonjour et bienvenue sur le Forum Outlook

As-tu un début de code ?

Sinon je t'invite à consulter la FAQ, tu y trouveras des informations :
http://outlook.developpez.com/faq/

autres sources :
http://outlook.developpez.com/cours/
Initiation au VBA d'Outlook


Dolphy

[rcaillault]

Bonjour,

J'ai utilisé le code d'ANGELICO ( que je remercie d'ailleurs).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Application_NewMail()
Dim MaDatabase As NameSpace, Folder As MAPIFolder, Mail As MailItem
 
Set MaDatabase = Application.GetNamespace("MAPI")
Set Folder = MaDatabase.GetDefaultFolder(olFolderInbox)
Set Mail = Folder.Items(Folder.Items.Count)
 
For Each Attachment In Mail.Attachments
	if Attachment.FileName = "Proc1.xls" then
		Attachment.SaveAsFile "C:\tmp\" & Attachment.FileName
	end if
Next
 
End Sub

Je ne parviens pas à faire fonctionner la ligne de code suivante :

Code :

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

if Attachment.FileName = "*Eolienne*.*" then

Si quelqu'un pouvait venir à mon secours!

[Dolphy35]

Salut,

Tu peux faire un test sur la chaîne correspondant au nom de l'attachement, remplace par ceci pour ton test :

Code :

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

1
2
3
If InStr(1, Attachment.FileName, "eolienne") <> 0 Then
   Attachment.SaveAsFile "C:\tmp\" & Attachment.FileName
End If

L'instruction Instr te renvoi la place du premier caractère correspondant à ton nom, si tu as 0 c'est qu'il n'a pas trouvé d'occurrence. Pour plus d'info tu peux faire F1 sur l'instruction InStr


Dolphy

[rcaillault]

Cela fonctionne bien mais uniquement pour le premier nouveau mail reçu.

Dès que je reçois plusieurs mails en même temps un seul est traité par la macro.

Exisit-il une solution?

Merci pour ton aide

[Dolphy35]

Salut,

ceci est dû à la règle. Sinon autre méthodes serait de parcourir ta boîte de réception en testant la date et si l a été lu ou non.

Dolphy