Discussion :

[Pascal-Jean]

Bonjour,

Je souhaietrais pouvoir afficher la fenêtre enregistret sous depuis un mail ouvert.
Je m'explique.
J'ouvre un mail, dans lequel il y a une pièce jointe.
J'ai réussi à récupérer le nom de la pièce jointe.
Ensuite la personne en charge de son traitement doit l'enregistrer mais sous un autre nom et dans un endroit différent à chaque fois.
J'aimerais simplement pouvoir la boite enresgitrer sous et cerie sur le gateau proposer un nouveau nom de ficheir.

Merci d'avance de votre aide.

Bonne journée

[QuestVba]

Bonsoir,

Un peu de lecture : https://outlook.developpez.com/faq/?page=VBA#VBA_SaveAS

Pour la cerise, il faut être plus explicite. Comment déterminer le nom ?

[Pascal-Jean]

Bonjour,

Merci pour votre réponse.
J'avais trouvé ce code qui fonctionne mais pour être honnête je ne le comprends pas vraiment.
J'explique la cerise : quand j'exécute ce code, il me propose comme nom de fichier le nom de la pièce jointe.
En fait, je dois standardiser ce nom : exemple nom de la pièce jointe toto.pdf et moi je veux proposer toto_2018.pdf.
Je ne sais pas quoi ajouter dans le code pour cela.

Merci de votre aide.

Bonne journée.

[Pascal-Jean]

Re bonjour,

En fait, la fenêtre me propose de sauvegarder le message alors que je veux enregistrer la pièce jointe.

Merci de votre aide.

Bonne journée.

[QuestVba]

Bonsoir,
Le code remplace tes étapes : Fichier > Enregistrer sous. Donc, c'est normal qu'il te donne comme nom, le nom de ton mail.

En fait, je dois standardiser ce nom : exemple nom de la pièce jointe toto.pdf et moi je veux proposer toto_2018.pdf.

Bête question avant d'aller plus loin : comment tu détermines 'toto_2018.pdf' ? Ce sera toujours '_2018' ?

[Pascal-Jean]

Bonjour,

Ok. Moi ce que je veux c'est l'équivalent du clic droit Enregistrer sous quand on est sur une pièce jointe.

Oui le 2018 sera fixe.

Bonne journée.

[Oliv-]

Bonjour,

Si tu as 1 seule PJ tu peux utiliser cela

Code :

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

1
2
3
4
5
6
7
8
 
Sub EnregistrerSous()
 Dim oItem
    Dim objInsp As Outlook.Inspector
    Set oItem = ActiveInspector.CurrentItem
    Set objInsp = oItem.GetInspector
    objInsp.CommandBars.ExecuteMso ("SaveAttachments")
End Sub

Si tu es en mode aperçu de la pj (onglet affiché "Outils pièce jointe")

Code :

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

1
2
3
4
5
6
7
Sub EnregistrerSous()
 Dim oItem
    Dim objInsp As Outlook.Inspector
    Set oItem = ActiveInspector.CurrentItem
    Set objInsp = oItem.GetInspector
    objInsp.CommandBars.ExecuteMso ("SaveAttachAs")
End Sub

[Pascal-Jean]

Bonjour,

Merci pour ta réponse mais cela ne gaze pas tout à fait.

Le 1er script m'affiche la fenêtre correspondant à enregistrer toutes les pièces jointes


or moi ce que je veux c'est cette fenêtre (celle qui correspond à enregistrer sous)

avec en plus la possibilité de proposer un autre nom que celui de la pièce jointe.

Petite précision le 2nd script se plante chez moi.

Merci d'avance de ton aide.

Bonne journée.

[Oliv-]

le second se plante parce que tu n'as pas cliqué sur ta pj comme indiqué !! quelle version de Outlook utilises tu ?

[Pascal-Jean]

Effectivement la pièce jointe n'est pas ouverte mais ce que j'aimerais.

La version Outlook 2010.


Merci de ton aide.

[Oliv-]

En fait la boite de dialogue que tu veux afficher ne s'affiche que pour 1 PJ donc il faut qu'elle soit prévisualisée ou sélectionnée avant.

Sinon il faut une pseudo boite de dialogue enregistrer sous, que n'offre pas OUTLOOK

exemple là :https://www.developpez.net/forums/d1...-premier-plan/

[Pascal-Jean]

Ok merci pour ta réponse.

Bon week-end.