Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook ne pas conserver les pièces jointes envoyées

ne pas conserver les pièces jointes envoyées

8 réponses
Avatar
aseedb
Bonjour,

J'aimerais savoir comment ne pas conserver les pièces jointes envoyées tout
en conservant le texte de l'e-mail envoyé.

Merci d'avance
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Oliv'
"aseedb" a écrit dans le message de news:

Bonjour,

J'aimerais savoir comment ne pas conserver les pièces jointes envoyées
tout
en conservant le texte de l'e-mail envoyé.

Merci d'avance


Il faut l'adapter ou lancer la macro une fois le mail envoyé en l'ouvrant .

mais ca doit repondre à ta demande

Sub Supprime_PJ()
' *** Supprime les pièces jointes des messages en HTML en insérant leur
nom***
' *** Vous en avez rêvé, Anacoluthe l'a fait ;-) ***
' *** modifié le 31/11/2004 par Isabelle Prawitz et le 20/7/2005 par olivier
CATTEAU***
Dim ListePJ As String

If MsgBox("Cette macro va supprimer les pièces jointes du mail et les
remplacer par leur nom", vbYesNo + vbQuestion, "Etes vous sûr de vouloir
exécuter cette macro ?") = vbYes Then
If Application.ActiveInspector Is Nothing Then
GoTo fin
End If
Set oMessage = ActiveInspector.CurrentItem

'For Each oMessage In ActiveExplorer.Selection
If oMessage.BodyFormat = olFormatHTML And _
oMessage.Attachments.Count > 0 Then
ListePJ = ""
For Each PJ In oMessage.Attachments
ListePJ = ListePJ & "<br>" & PJ.FileName
Next PJ
While oMessage.Attachments.Count > 0
oMessage.Attachments.Remove 1
Wend

ListePJ = "[Le Mail d'origine comportait les Pièces Jointes
suivantes: " & ListePJ & "<br>" & "supprimées après lecture]"
oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody
oMessage.Save
End If
If oMessage.BodyFormat = olFormatPlain And _
oMessage.Attachments.Count > 0 Then
ListePJ = ""
For Each PJ In oMessage.Attachments
ListePJ = ListePJ & Chr(10) & PJ.FileName
Next PJ
While oMessage.Attachments.Count > 0
oMessage.Attachments.Remove 1
Wend

ListePJ = "[Le Mail d'origine comportait les Pièces jointes
suivantes: " & ListePJ & Chr(10) & "supprimées après lecture]"
oMessage.Body = ListePJ & oMessage.Body
oMessage.Save
End If
'oMessage.PrintOut
'Next oMessage
End If

fin:
End Sub




--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
aseedb
Merci!
Malheureusement je reçois des erreurs quand j'essaie de lancer cette macro.
j'ai essayé de virer les retour à la ligne qui me semblaient erronés.
A la ligne "If Application.ActiveInspector Is Nothing Then" une erreur de
compilation arrive: "membre de méthode ou de données introuvable"
Avatar
Oliv'
"aseedb" a écrit dans le message de news:

Merci!
Malheureusement je reçois des erreurs quand j'essaie de lancer cette
macro.
j'ai essayé de virer les retour à la ligne qui me semblaient erronés.
A la ligne "If Application.ActiveInspector Is Nothing Then" une erreur de
compilation arrive: "membre de méthode ou de données introuvable"


regarde là
http://cjoint.com/?mfqJ3oG60n
Oliv'

Avatar
aseedb
Merci encore mais ça ne marche toujours pas... Peut-être que je n'ai pas la
bonne version de outlook. déjà à la première ligne (attribute...) il me
signale une erreur de compilation :-((

aseedb
Avatar
Oliv'
Merci encore mais ça ne marche toujours pas... Peut-être que je n'ai
pas la bonne version de outlook. déjà à la première ligne
(attribute...) il me signale une erreur de compilation :-((

aseedb


moi cela fonctionne sur OULOOK 2003 SP2 .

c'est quoi ça "attribute" le message d'erreur ?
soit un peu plus explicite ...

Avatar
aseedb
moi j'ai outlook 2002 sp3

Peut-être que je n'ai pas suivi la bonne procédure. Voici comment j'ai fait.
je suis allé sur le lien que tu as indiqué ci-dessus. j'ai tout sélectionné
et copié. Ensuite dans un message outlook j'ai ouvert la boite de dialogue
des macros et ai créé un nouvelle macro appelée Supprime_PJ. Je l'ai édité et
effacé tout ce qu'elle contenait. Puis j'ai collé ta macro dedans.

Ensuite j'ai exécuté la macro. A ce moment là une fenêtre "microsoft visual
basic" s'ouvre et la première ligne du code que tu m'as envoyé est colorée en
rouge. Pour mémoire cette ligne est:
Attribute VB_Name = "Sub_supprimefichiersjoints"
Erreur de compilation:
Erreur de syntaxe.

J'ai essayé d'enlever cette première ligne mais alors une autre erreur
survient quand j'exécute la macro. A la ligne
If Application.ActiveInspector Is Nothing Then
.ActiveInspector est surligné en bleu et une fenêtre apparaît et contient le
message suivant:
Erreur de compilation
Membre de méthode ou de données introuvable

Est-ce que tu vois ce dont il s'agit?

Merci pour ton aide

aseedb

"Oliv'" wrote:


Merci encore mais ça ne marche toujours pas... Peut-être que je n'ai
pas la bonne version de outlook. déjà à la première ligne
(attribute...) il me signale une erreur de compilation :-((

aseedb


moi cela fonctionne sur OULOOK 2003 SP2 .

c'est quoi ça "attribute" le message d'erreur ?
soit un peu plus explicite ...






Avatar
Oliv'
moi j'ai outlook 2002 sp3

Peut-être que je n'ai pas suivi la bonne procédure. Voici comment
j'ai fait. je suis allé sur le lien que tu as indiqué ci-dessus. j'ai
tout sélectionné et copié. Ensuite dans un message outlook j'ai
ouvert la boite de dialogue des macros et ai créé un nouvelle macro
appelée Supprime_PJ. Je l'ai édité et effacé tout ce qu'elle
contenait. Puis j'ai collé ta macro dedans.


NON en fait il fallait cliquer dans vbe sur fichier / importer

Ensuite j'ai exécuté la macro. A ce moment là une fenêtre "microsoft
visual basic" s'ouvre et la première ligne du code que tu m'as envoyé
est colorée en rouge. Pour mémoire cette ligne est:
Attribute VB_Name = "Sub_supprimefichiersjoints"
Erreur de compilation:
Erreur de syntaxe.


OK ca fait comme l'importation.


J'ai essayé d'enlever cette première ligne mais alors une autre erreur
survient quand j'exécute la macro. A la ligne
If Application.ActiveInspector Is Nothing Then
.ActiveInspector est surligné en bleu et une fenêtre apparaît et
contient le message suivant:
Erreur de compilation
Membre de méthode ou de données introuvable

Est-ce que tu vois ce dont il s'agit?


pas sûr regarde dans VBE Menu Outils /références
s'il y a des manquants

selectionne ActiveInspector et appuie sur F1 tu verras si cette fonction
est prise en charge si l'aide apparait.

essayes avec un mail ouvert et 1 seul

sinon je seche.


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
aseedb
pas sûr regarde dans VBE Menu Outils /références
s'il y a des manquants

oui j'en ai ajouté quelques unes dont le nom commençait par microsoft


selectionne ActiveInspector et appuie sur F1 tu verras si cette fonction
est prise en charge si l'aide apparait.

J'ai une aide qui apparaît sur le sujet


essayes avec un mail ouvert et 1 seul


mais ça ne marche toujours pas. Toujours le même message d'erreur :-(


aseedb