Discussion :

[sophiedeparis]

Bonjour

Je suis sous Outlook 2010 , pourriez-vous me dire avec quel script je pourrais déplacer ou sauvegarder les pièces jointes d'un destinataire spécifique ex : toto@yahoo.fr vers un dossier de mon choix sur mon disque dur ou en réseau.

Je suis pas habituée au vba ni même comment l’appliquer sous Outlook 2010 pour que cela fonctionne uniquement sur l’exemple donner , si quelqu'un pouvait me fournir une petite aide cela serais super sympas .

J’ai vu pas mal d’exemples sur le web mais pas dans mon cas précis.

Encore une fois merci d’avance.

Bien cordialement

[charouel]

tu peux utilisé VBScript ou .Net (une petite appli)

[charouel]

Sauvegarde automatique des pièces jointes dans un dossier
Pour sauvegarder les pièces jointes d'un mail en automatique à l'arriver de celui-ci, il faut créer un règle.

Mais auparavent il faut créer un module en VBA avec l'opération à effectuer.

Dans Outllok Outils => Macro => Visual Basic Editor (ALT+F11)

Dans le projet inserer un nouveau module et copier les lignes suivantes.

Code :

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

1
2
3
4
5
6
7
8
9
Sub SaveAttachement(Item As Outlook.MailItem)
        MsgBox "Pièces du message " & Item.Subject & " sauvegardés"    '<=== Boîte de dialogue à personaliser ou à supprimer
        Set attachs = Item.Attachments
 
        For Each attach In attachs
            file = attach.FileName
            attach.SaveAsFile "C:\" & file   '<=== c:\ correspond au dossier dans lequel vous voulez sauvegarder les pièces jointes
        Next
End Sub

Enregister et fermer la fenêtre.

Ensuite il faut créer la règle.

Dans Outllok Outils => règles et alertes... => nouvelle règle... => Démarrer à partir d'une règle vide => Vérifier les messages à leur arrivée => suivant => qui contient une pièce jointe => exécuter un script => choisir le scipt SaveAttachement

Attention il s'agit d'une règle client qui ne s'effectue que lorsque Outlook est ouvert !

[dodineau]

Sauvegarde automatique des pièces jointes dans un dossier
Pour sauvegarder les pièces jointes d'un mail en automatique à l'arriver de celui-ci, il faut créer un règle.

Mais auparavent il faut créer un module en VBA avec l'opération à effectuer.


Ensuite il faut créer la règle.

Dans Outllok Outils => règles et alertes... => nouvelle règle... => Démarrer à partir d'une règle vide => Vérifier les messages à leur arrivée => suivant => qui contient une pièce jointe => exécuter un script => choisir le scipt SaveAttachement

Bonjour,
Désolé de déterrer ce post mais je suis sous outlook 2016 et je ne trouve pas la commande "executer un script".
Est-ce encore possible sous cet outlook ?
Merci pour votre aide.
A+

[sophiedeparis]

Bonjour

Désolé de ne pas avoir répondue plus tôt , implacable cela fonctionne , j'adapte le script comme je le souhaite .

Encore merci

[charouel]

tu met résolut

[chipster62]

Bonjour

je ré-ouvre cette discussion car je n'arrive pas à lancer cette automatisation.

voici mon code dans un module de VBA d'outlook 2010 (je n'ai changé que le dossier d'enregistrement) :

Code VBA :

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

1
2
3
4
5
6
7
8
9
Sub SaveAttachement(Item As Outlook.MailItem)
        MsgBox "Pièces du message " & Item.Subject & " sauvegardés"    '<=== Boîte de dialogue à personaliser ou à supprimer
        Set attachs = Item.Attachments
 
        For Each attach In attachs
            file = attach.FileName
            attach.SaveAsFile "A:\DOCUMENTS\TEST\" & file   '<=== c:\ correspond au dossier dans lequel vous voulez sauvegarder les pièces jointes
        Next
End Sub

J'aimerais bien y arriver afin de commencer mon archivage electronique de documents et factures.

Merci bien de votre aide.

Ci joint en pièce jointe, la finalisation de la règle qui renvoi vers ce module VBA.

[charouel]

Ouvre une autre discutions stp

[show8e]

Merci !!!