Discussion :

[Gabrilou]

Bonjour,

Ceci est mon premier message

Dans ce fil de discussion, https://www.developpez.net/forums/d1...ieces-jointes/


J’ai appliqué la méthode charouel et cela fonctionnait à la perfection. Mes programmes et mes datas étaient sur un seul disque dur.

Je viens de changer mon disque dur qui m’a lâché. Mes programmes sont maintenant sur un disque dur et mes datas sur un autre disque dur.

Je n’arrive plus à faire fonctionner cette super macro car je n’ai plus accès, dans les règles, à la fonction Exécuter un script qui a disparu.

J’ai appliqué cette solution, que j’ai trouvé ici : https://answers.microsoft.com/en-us/...a-633067a0de37

- Ouvrir l'éditeur de registre
- Se rendre dans HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security
- Créer une nouvelle entrée de type "dword" avec le nom "EnableUnsafeClientMailRules" et une valeur à 1
- Fermer et rouvrir Outlook, et l'option est à nouveau disponible

Ce qui n'a pas réglé mon problème.

Merci d'avance si vous avez une solution pour moi

[Oliv-]

Bonjour,

Peux tu publier le code exact que tu utilises, ce sera plus simple.

Utilises tu bien OUTLOOK 2016 ? sinon il faut adapter

pour OUTLOOK 2010
HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Outlook\Security

Pour OUTLOOK 2013

HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Security

[Gabrilou]

`Bonjour,

Déjà, merci pour votre réponse.

J'utilise Outlook 2010.

Voici le code que j'utilisais et qui ne fonctionne plus depuis que je sauvegarde tous mes documents sur un disque externe :

Sub SaveAttachement(Item As Outlook.MailItem)
'http://www.developpez.net/forums/d1373555/logiciels/microsoft-office/outlook/deplacement-automatique-pieces-jointes/
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 "D:\Users\HB\Documents\Word 2010\1- Succession\0- CHRISTOPHE\Courriels et Lettres\Email et Pièces reçues de Christophe\" & file
Next
End Sub

Voici ce que j'ai fait pour avoir accès à Exécuter un script :

- Ouvrir l'éditeur de registre
- Se rendre dans HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security Edit : la modification a bien été faite dans Office 14.0
- Créer une nouvelle entrée de type "dword" avec le nom "EnableUnsafeClientMailRules" et une valeur à 1
- Fermer et rouvrir Outlook, et l'option est à nouveau disponible

Merci d'avance.

[Oliv-]

as tu retrouvé l'option exécuter un script ?

ce chemin existe t'il
"D:\Users\HB\Documents\Word 2010\1- Succession\0- CHRISTOPHE\Courriels et Lettres\Email et Pièces reçues de Christophe\"

[Gabrilou]

Ce chemin vers la sauvegarde des pièces jointes est exact. Je peux toujours le modifier pour en mettre un plus simple au fin de test, mais je ne pense pas que cela me donnera accès pour autant à l'option Exécuter un script. 1) Qu'en penses-tu ? Personnellement, je ne pense pas qu'il y ait un lien, le lieu de la sauvegarde n'étant pas en cause.

2) A ton avis, le fait que les programmes soient dans le disque C et les datas dans le disque D m'empêche de faire fonctionner cette macro ? Parce qu'à l'époque où tout était sur le même disque, je n'avais pas de problème.

3) Est-ce que ce problème est contournable ? C'est à dire qu'il vous absolument en passer par un script ?

4) Est-ce que tu aurais sous le coude une macro qui pourrait faire le travail, même si ce n'est pas en automatique, que je pourrais appeler chaque fois que j'en aurais besoin ?

Merci

[Oliv-]

Bonjour,

Il faut dans un premier temps pallier à ce problème, tu peux utiliser ce code pour lancer ta macro sur le mail en cours OUVERT

Code :

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

1
2
3
4
5
6
7
 Sub LanceSaveAttachement ()
dim item As Outlook.MailItem
 
set item = activeinspector.currentitem
call SaveAttachement(Item)
 
end sub

Le problème que tu évoques est lié au verrouillage de l'option "exécuter un script", si ton chemin existe il n'y a pas d'importance sur le lieu où il est .

Peux être as tu mal créé la clef de registre, essaye en exécutant ce fichier : https://www.slipstick.com/doit/Enabl...Rules-2010.reg

(https://www.slipstick.com/outlook/ru...-script-rules/)

[Gabrilou]

Bonjour,

Après avoir fait une copie de la base de registre et créé un point de restauration au cas où

J'ai créé à nouveau la clef de registre à l'aide du lien que tu m'as transmis : (https://www.slipstick.com/outlook/ru...-script-rules/)[/QUOTE]

J'ai à nouveau accès à Exécuter un script.

Un grand merci pour ton soutien. C'est très apprécié.

Problème résolu