Discussion :

[Mal10]

Bonjour,

J'ai fouiné dans le forum et essayer plusieurs choses avant d'arriver à demander votre aide.

Je suis sous outlook 2007. Tous les jours m'arrive des mails avec PJ pdf que je voudrais automatiquement à leurs arrivés les enregistrer automatiquement dans un dossier spécifique dans mon disque dure C.

Je sais qu'il faut utiliser une macro par vba avec un script mais lequel ?

Quelqu'un peut il m'aider ?

Merci par avance

[Oliv-]

Bonjour,

Voici un exemple simple, il convient de créer une règle avec l'action exécuter un script et ne pas oublier les critères de déclenchement de la règle qui va limiter son exécution !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SaveAttachements(item As Outlook.MailItem)
    Dim path
    Dim attachs As Attachments, attach As Attachment
 
    'Le dossier où enregistrer les PJ
    path = "c:\temp\"
 
    Set attachs = item.Attachments
    For Each attach In attachs
        file = attach.Filename
        attach.SaveAsFile path  & file  
    Next
End Sub

Voici le code à exécuter pour tester manuellement (=sans la règle) le script sur le Mail en cours qui est OUVERT.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test_script()
    Dim ol As Outlook.Application
    If UCase(Application) = "OUTLOOK" Then
        Set ol = Application
    Else
        Set ol = CreateObject("outlook.application")
    End If
    Dim item As Outlook.MailItem
    Set item = ol.ActiveInspector.CurrentItem
 
 
    Call SaveAttachements(item)
End Sub

Tu trouveras ici un code plus complet
http://www.developpez.net/forums/blo...yperlien-mail/

[Mal10]

Merci pour ta réponse rapide.

J'ai fait comme indiqué et fait le test ce qui me répond :



Quelle est la marche à suivre ?

Merci

[Oliv-]

fermer outlook, enregistrer le fichier vbaproject.otm, réouvrir outlook, activer les macros.

si cela ne fonctionne pas il faut modifier le niveau de sécurité des MACROS

[Mal10]

J'ai été dans les paramètres des macros que j'ai désactivé (ai-je bien fait) et quand j'ai voulu refaire le test :
1)


J'ai débogué

2)


Que dois-je faire ?

Merci

[Oliv-]

Il faut qu un émail soit ouvert

[Mal10]

Merci beaucoup pour toutes ces infos, ça marche !!!!