Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Outlook Multi-sélection pour suppression des pièces jointes ?

Multi-sélection pour suppression des pièces jointes ?

3 réponses
Avatar
Joyboy74
Salut à tous,

Est-il possible de supprimer d'un seul coup plusieurs pièces jointes dans un
mail ?
Lorsque je reçois un mail avec 5 pièces jointes et que je veux conserver le
mail sans les pièces jointes, je n'arrive pas à les supprimer autrement
qu'une par une... Quelqu'un aurait-il la solution ?

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

3 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'
Salut à tous,

Est-il possible de supprimer d'un seul coup plusieurs pièces jointes
dans un mail ?
Lorsque je reçois un mail avec 5 pièces jointes et que je veux
conserver le mail sans les pièces jointes, je n'arrive pas à les
supprimer autrement qu'une par une... Quelqu'un aurait-il la solution
?
Merci d'avance


une macro te rendra ce service :

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
Joyboy74
"Oliv'" <(supprimerceci) a écrit dans le
message de news: %

Salut à tous,

Est-il possible de supprimer d'un seul coup plusieurs pièces jointes
dans un mail ?
Lorsque je reçois un mail avec 5 pièces jointes et que je veux
conserver le mail sans les pièces jointes, je n'arrive pas à les
supprimer autrement qu'une par une... Quelqu'un aurait-il la solution
?
Merci d'avance


une macro te rendra ce service :

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
Joyboy74
Merci Oliv...

"Oliv'" <(supprimerceci) a écrit dans le
message de news: %

Salut à tous,

Est-il possible de supprimer d'un seul coup plusieurs pièces jointes
dans un mail ?
Lorsque je reçois un mail avec 5 pièces jointes et que je veux
conserver le mail sans les pièces jointes, je n'arrive pas à les
supprimer autrement qu'une par une... Quelqu'un aurait-il la solution
?
Merci d'avance


une macro te rendra ce service :

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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~