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 affichage pièces jointes dans corps du message

affichage pièces jointes dans corps du message

4 réponses
Avatar
michel b
Bonjour à tous,
est-il possible d'afficher les pièces jointes reçues directement dan le
corps du message ?
merci d'avance pour vos conseils
Signaler un problème avec ce contenu

4 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'
Bonjour à tous,
est-il possible d'afficher les pièces jointes reçues directement dan
le corps du message ?
merci d'avance pour vos conseils


oui mais avec du vba en modifiant le message HTML pour y incorporer les
images

Voici une macro réalisée par Isabelle Prawitz

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


' Macro qui bascule les PJ JPG et GIF dans le message
Sub ImagesDansMessage()
Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim laPJ As Attachment
Dim nbAtt As Integer
Dim i As Integer

Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
If leMess.BodyFormat = olFormatHTML Then
nbAtt = leMess.Attachments.Count
For Each laPJ In leMess.Attachments
If Right(LCase(laPJ.FileName), 4) = ".jpg" Or _
Right(LCase(laPJ.FileName), 4) = "jpeg" Or _
Right(LCase(laPJ.FileName), 4) = ".gif" Then
laPJ.SaveAsFile "c:Pieces jointes" & laPJ.DisplayName ' ***
attention dossier
leMess.HTMLBody = "<IMG alt='' hspace=0 src='" & "c:Pieces
jointes" & laPJ.DisplayName & _
"' alignºseline border=0><br>" & leMess.HTMLBody ' ***
attention dossier
End If
Next
For i = leMess.Attachments.Count To 1 Step -1
Set laPJ = leMess.Attachments.Item(i)
If Right(LCase(laPJ.DisplayName), 4) = ".jpg" Or _
Right(LCase(laPJ.DisplayName), 4) = "jpeg" Or _
Right(LCase(laPJ.DisplayName), 4) = ".gif" Then
laPJ.Delete
End If
Next
leMess.Save
End If
End If
Next

End Sub
'Fin de macro

Avatar
michel b
je te remercie pour ta réponse
"Oliv'" <(supprimerceci) a écrit dans le
message de news: Of8hUjX%

Bonjour à tous,
est-il possible d'afficher les pièces jointes reçues directement dan
le corps du message ?
merci d'avance pour vos conseils


oui mais avec du vba en modifiant le message HTML pour y incorporer les
images

Voici une macro réalisée par Isabelle Prawitz

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


' Macro qui bascule les PJ JPG et GIF dans le message
Sub ImagesDansMessage()
Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim laPJ As Attachment
Dim nbAtt As Integer
Dim i As Integer

Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
If leMess.BodyFormat = olFormatHTML Then
nbAtt = leMess.Attachments.Count
For Each laPJ In leMess.Attachments
If Right(LCase(laPJ.FileName), 4) = ".jpg" Or _
Right(LCase(laPJ.FileName), 4) = "jpeg" Or _
Right(LCase(laPJ.FileName), 4) = ".gif" Then
laPJ.SaveAsFile "c:Pieces jointes" & laPJ.DisplayName ' ***
attention dossier
leMess.HTMLBody = "<IMG alt='' hspace=0 src='" & "c:Pieces
jointes" & laPJ.DisplayName & _
"' alignºseline border=0><br>" & leMess.HTMLBody ' ***
attention dossier
End If
Next
For i = leMess.Attachments.Count To 1 Step -1
Set laPJ = leMess.Attachments.Item(i)
If Right(LCase(laPJ.DisplayName), 4) = ".jpg" Or _
Right(LCase(laPJ.DisplayName), 4) = "jpeg" Or _
Right(LCase(laPJ.DisplayName), 4) = ".gif" Then
laPJ.Delete
End If
Next
leMess.Save
End If
End If
Next

End Sub
'Fin de macro





Avatar
michel b
Bonjour,
je suis débutant en informatique, j'ai bien réussi à copier la macro jointe,
mais lorsque je veux l'exécuter, j'ai le message suivant.
Les macros de ce projet sont désactivées . Référez vous à l'aide en ligne ou
la documentation de l'application hôte pour savoir comment activer les
macros.
je n'y arrive pas merci d'avance pour vos conseils

"michel b" a écrit dans le message de news:
dn1o3m$3t9$
je te remercie pour ta réponse
"Oliv'" <(supprimerceci) a écrit dans le
message de news: Of8hUjX%

Bonjour à tous,
est-il possible d'afficher les pièces jointes reçues directement dan
le corps du message ?
merci d'avance pour vos conseils


oui mais avec du vba en modifiant le message HTML pour y incorporer les
images

Voici une macro réalisée par Isabelle Prawitz

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


' Macro qui bascule les PJ JPG et GIF dans le message
Sub ImagesDansMessage()
Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim laPJ As Attachment
Dim nbAtt As Integer
Dim i As Integer

Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
If leMess.BodyFormat = olFormatHTML Then
nbAtt = leMess.Attachments.Count
For Each laPJ In leMess.Attachments
If Right(LCase(laPJ.FileName), 4) = ".jpg" Or _
Right(LCase(laPJ.FileName), 4) = "jpeg" Or _
Right(LCase(laPJ.FileName), 4) = ".gif" Then
laPJ.SaveAsFile "c:Pieces jointes" & laPJ.DisplayName ' ***
attention dossier
leMess.HTMLBody = "<IMG alt='' hspace=0 src='" & "c:Pieces
jointes" & laPJ.DisplayName & _
"' alignºseline border=0><br>" & leMess.HTMLBody ' ***
attention dossier
End If
Next
For i = leMess.Attachments.Count To 1 Step -1
Set laPJ = leMess.Attachments.Item(i)
If Right(LCase(laPJ.DisplayName), 4) = ".jpg" Or _
Right(LCase(laPJ.DisplayName), 4) = "jpeg" Or _
Right(LCase(laPJ.DisplayName), 4) = ".gif" Then
laPJ.Delete
End If
Next
leMess.Save
End If
End If
Next

End Sub
'Fin de macro









Avatar
JièL Goubert
Bonjoir(c) michel b

menu Outils, Macro, Sécurité... baisser le niveau

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Bonjour,
je suis débutant en informatique, j'ai bien réussi à copier la macro jointe,
mais lorsque je veux l'exécuter, j'ai le message suivant.
Les macros de ce projet sont désactivées . Référez vous à l'aide en ligne ou
la documentation de l'application hôte pour savoir comment activer les
macros.
je n'y arrive pas merci d'avance pour vos conseils