Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

affichage pièces jointes dans corps du message

0 views
Skip to first unread message

michel b

unread,
Dec 2, 2005, 2:05:29 PM12/2/05
to
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


Oliv'

unread,
Dec 5, 2005, 3:49:38 AM12/5/05
to

michel b <crap...@worldonline.fr> que je salut a écrit :

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=baseline 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


michel b

unread,
Dec 5, 2005, 10:58:45 AM12/5/05
to
je te remercie pour ta réponse
"Oliv'" <(supprimerceci)cat...@ricour-assurances.fr> a écrit dans le
message de news: Of8hUjX%23FHA...@TK2MSFTNGP14.phx.gbl...

michel b

unread,
Dec 27, 2005, 3:28:59 AM12/27/05
to
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" <crap...@worldonline.fr> a écrit dans le message de news:
dn1o3m$3t9$1...@news.tiscali.fr...

JièL Goubert

unread,
Dec 27, 2005, 2:04:11 PM12/27/05
to
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

0 new messages