Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Affichage images attachées dans Outlook

13 réponses
Avatar
Alex C
Bonjour,

J'ai encore une petite question (vous avez certainement repéré mes posts
précédents ;-)

C'est un problème que j'ai toujours connu (ca fait deux ans que je suis
passé de OE a OL2003) : les images attachées ne s'affichent pas dans le
corps du message (contrairement a OE). J'ai bien entendu déjà désactivé les
règles de sécurité concernant l'affichage des images, mais rien a faire...
pour visualiser les images, je suis systématiquement obligé de les détacher
dans un répertoire (ou de double-cliquer sur chaque image, une par une),
puis de les ouvrir avec mon logiciel de manipulations d'images... bref ce
n'est pas très pratique!

Si quelqu'un connait une solution, cela m'intéresse...

Merci d'avance,

Alex

10 réponses

1 2
Avatar
JièL
Bonjoir(c) Alex C

Le 14/04/2007 20:51 vous avez écrit ceci :
Bonjour,

C'est un problème que j'ai toujours connu


Ce n'est pas un problème, c'est une fonctionnalité qui est différente
entre OE et Outlook

les images attachées ne s'affichent pas dans le
corps du message (contrairement a OE).


LA solution ?! Passer à 2007 qui affiche "enfin" un aperçu de toutes les
PJ (ou presque)

Ou alors essayez cette macro d'Isabelle Prawitz
http://groups.google.com/group/microsoft.public.fr.outlook/tree/browse_frm/thread/d5670598a45ebea/655fafeb02570429?rnum=1&hl=fr&q=pi%C3%A8ces+jointes+afficher+group%3Amicrosoft.public.fr.outlook&_done=%2Fgroup%2Fmicrosoft.public.fr.outlook%2Fbrowse_frm%2Fthread%2Fd5670598a45ebea%2F8788427af4dda2cd%3Flnk%3Dst%26q%3Dpi%25C3%25A8ces%2Bjointes%2Bafficher%2Bgroup%253Amicrosoft.public.fr.outlook%26rnum%3D1%26hl%3Dfr%26#doc_dd75c35a9aad1a1d

Merci d'avance,


--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La nouvelle FAQ Outlook est là : http://faq.outlook.free.fr/index.php
Les stats de CDO : http://faq.outlook.free.fr/cdo/

Avatar
Alex C
Bonjour,

Merci pour cette Macro, mais je n'arrive pas à la faire fonctionner.... (je
n'ai jamais fait de macro de ma vie!)

Y a t'il une astuce ou est ce que le probleme peut être lié avec ma version
en Anglais?

Alex



"JièL" wrote in message
news:
Bonjoir(c) Alex C

Le 14/04/2007 20:51 vous avez écrit ceci :
Bonjour,

C'est un problème que j'ai toujours connu


Ce n'est pas un problème, c'est une fonctionnalité qui est différente
entre OE et Outlook

les images attachées ne s'affichent pas dans le corps du message
(contrairement a OE).


LA solution ?! Passer à 2007 qui affiche "enfin" un aperçu de toutes les
PJ (ou presque)

Ou alors essayez cette macro d'Isabelle Prawitz
http://groups.google.com/group/microsoft.public.fr.outlook/tree/browse_frm/thread/d5670598a45ebea/655fafeb02570429?rnum=1&hl=fr&q=pi%C3%A8ces+jointes+afficher+group%3Amicrosoft.public.fr.outlook&_done=%2Fgroup%2Fmicrosoft.public.fr.outlook%2Fbrowse_frm%2Fthread%2Fd5670598a45ebea%2F8788427af4dda2cd%3Flnk%3Dst%26q%3Dpi%25C3%25A8ces%2Bjointes%2Bafficher%2Bgroup%253Amicrosoft.public.fr.outlook%26rnum%3D1%26hl%3Dfr%26#doc_dd75c35a9aad1a1d

Merci d'avance,


--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La nouvelle FAQ Outlook est là : http://faq.outlook.free.fr/index.php
Les stats de CDO : http://faq.outlook.free.fr/cdo/



Avatar
JièL
Bonjoir(c) Alex C

Le 21/04/2007 17:17 vous avez écrit ceci :
Bonjour,

Merci pour cette Macro, mais je n'arrive pas à la faire fonctionner.... (je
n'ai jamais fait de macro de ma vie!)

Y a t'il une astuce ou est ce que le probleme peut être lié avec ma version
en Anglais?


Y'a pas d'astuce, mais quand vous dite "je n'arrive pas à la faire
fonctionner" on ne risque pas de pouvoir vous aider si vous ne donnez pas
plus de détails.

--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La nouvelle FAQ Outlook est là : http://faq.outlook.free.fr/index.php
Les stats de CDO : http://faq.outlook.free.fr/cdo/

Avatar
Alex C
Merci pour cette Macro, mais je n'arrive pas à la faire fonctionner....
(je n'ai jamais fait de macro de ma vie!)

Y a t'il une astuce ou est ce que le probleme peut être lié avec ma
version en Anglais?


Y'a pas d'astuce, mais quand vous dite "je n'arrive pas à la faire
fonctionner" on ne risque pas de pouvoir vous aider si vous ne donnez pas
plus de détails.


Bonjour

Vous avez raison avec plus de détails, c'est plus facile pour aider les gens
(je fais du support technique dans la vrai vie), voici ce qui se passe :

Je clique sur Tools / Macro / Macros...

Je crée une nouvelle macro intitulée ImagesDansMessage,

Je copie/colle les lignes de code disponibles sur cette page :

http://groups.google.com/group/microsoft.public.fr.outlook/tree/browse_frm/thread/d5670598a45ebea/655fafeb02570429?rnum=1&hl=fr&q=pi%C3%A8ces+jointes+afficher+group%3Amicrosoft.public.fr.outlook&_done=%2Fgroup%2Fmicrosoft.public.fr.outlook%2Fbrowse_frm%2Fthread%2Fd5670598a45ebea%2F8788427af4dda2cd%3Flnk%3Dst%26q%3Dpi%25C3%25A8ces%2Bjointes%2Bafficher%2Bgroup%253Amicrosoft.public.fr.outlook%26rnum%3D1%26hl%3Dfr%26#doc_dd75c35a9aad1a1d

Et lorsque je clique sur la petite flêche verte il me balance un popup :

Microsoft Visual Basic : The macros in this project are disabled. Please
refer to the online help or documentation of the host application to
determine how to enable macros.

Par ailleurs un certain nombre de lignes sont colorées en rouge ce qui me
lance penser a un problème de syntaxe (voir la suite).

Afin de vous permettre de visualiser tout ca, j'ai posté un copie d'écran
ici :

http://www.hebergement-images.com/05/1177175598_macro.JPEG

Je clique OK, puis je tente un Debug / Compile Project1, et il me balance un
:

Compile Error / Syntax Error

Voir ce screenshot :

http://www.hebergement-images.com/05/1177175779_macro2.JPG

Je suppute un problem de retour à la ligne mal positionné, mais je suis
incapable de mettre de l'ordre dans ce code.

Merci pour votre aide,

Alex


Avatar
Geo

Microsoft Visual Basic : The macros in this project are disabled. Please refer to the
online help or documentation of the host application to determine how to enable macros.


Baissez votre niveau de sécurité des macros par exemple "avertissement
pour toutes les macros" Arrêtez et redémarrez Outlook

Par ailleurs un certain nombre de lignes sont colorées en rouge ce qui me lance penser
a un problème de syntaxe (voir la suite).

http://www.hebergement-images.com/05/1177175598_macro.JPEG
Je clique OK, puis je tente un Debug / Compile Project1, et il me balance un :

Compile Error / Syntax Error


Au moins il est cohérent avec lui-même.

Demanderait à être actualisée cette macro.

--
A+

Avatar
Geo
Bonjour à Alex
en fait les signes = ont disparu
Ça doit donner qqch comme ci-dessous mais attention à changer le nom de
répertoire à deux endroits.

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
Dim NS As NameSpace
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
' *** attention Dossier à paramétrer
laPJ.SaveAsFile "c:Pieces jointes" & laPJ.DisplayName
' *** attention Dossier à paramétrer
leMess.HTMLBody = "<IMG alt'' hspace0 src'" & _
"c:Pieces jointes" & laPJ.DisplayName & _
"' alignºseline border0><br>" & _
leMess.HTMLBody
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

--
A+
Avatar
JièL
Bonjoir(c) Geo

Merci Geo, je peux récupérer tel quel pour mettre dans la FAQ ? Ou bien tu
veux participer toi aussi ? la nouvelle FAQ permet à tout le monde de
proposer des articles, et j'accueille très volontiers toutes les bonnes
volontés

--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La nouvelle FAQ Outlook est là : http://faq.outlook.free.fr/index.php
Les stats de CDO : http://faq.outlook.free.fr/cdo/

Le 21/04/2007 21:12 vous avez écrit ceci :
Bonjour à Alex
en fait les signes = ont disparu
Ça doit donner qqch comme ci-dessous mais attention à changer le nom de
répertoire à deux endroits.

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
Dim NS As NameSpace
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
' *** attention Dossier à paramétrer
laPJ.SaveAsFile "c:Pieces jointes" & laPJ.DisplayName
' *** attention Dossier à paramétrer
leMess.HTMLBody = "<IMG alt'' hspace0 src'" & _
"c:Pieces jointes" & laPJ.DisplayName & _
"' alignºseline border0><br>" & _
leMess.HTMLBody
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
Geo

je peux récupérer tel quel pour mettre dans la FAQ ?


Je n'ai fait que remettre les caractères qui m'ont paru manquants et
raccourcir les lignes un peu trop longues pour les forums.
C'est à Isabelle Prawitz qu'il faut demander.
Mais vaut mieux attendre le retour d'Alex



--
A+

Avatar
Oliv'
*Geo que je salue a écrit *:

je peux récupérer tel quel pour mettre dans la FAQ ?


Je n'ai fait que remettre les caractères qui m'ont paru manquants et
raccourcir les lignes un peu trop longues pour les forums.
C'est à Isabelle Prawitz qu'il faut demander.
Mais vaut mieux attendre le retour d'Alex


Je viens ajouter mon grain de sel , je pensais d'ailleurs l'avoir déjà fait
sur ce fil.
En fait la macro d'isabelle vient modifier le MAIL en incorporant un lien
vers chaque image dans *un dossier sur le poste de travail*.
Donc un autre utilisateur par exemple ne pourra accéder à la PJ.

Je vous propose une autre solution qui ouvre d'un seul coup les images ou
autre PJ soit dans le viewer par defaut dans IE ou au autre viewer.

ce fil faisait d'ailleurs référence à la macro d'isabelle.

http://groups.google.com/group/microsoft.public.fr.outlook/browse_frm/thread/ff9d9be03de2c93b/c0ef4893f66f25c3?lnk=gst&q=launchpictureattachmentshelper&rnum=3#c0ef4893f66f25c3" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://groups.google.com/group/microsoft.public.fr.outlook/browse_frm/thread/ff9d9be03de2c93b/c0ef4893f66f25c3?lnk=gst&q=launchpictureattachmentshelper&rnum=3#c0ef4893f66f25c3

l'auteur Eric Legault à d'ailleur donné naissance à cela
http://www.collaborativeinnovations.ca/

Le nouveau lien :
http://msdn2.microsoft.com/en-us/library/aa168469(office.11).aspx

Comme c'est un peu long et avec un Userform je vais voir avec Jièl pour la
mettre dans un zip sur la FAQ.


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Avatar
Oliv'
J'ai donc ajouté la macro d'isabelle sur la faq avec quelques modif histoire
de mériter le salaire que Jièl me verse,
et surtout éviter les bévues...

http://faq.outlook.free.fr/readarticle.php?article_id!7" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/readarticle.php?article_id!7

et là le viewer de PJ dans un zip :
http://faq.outlook.free.fr/readarticle.php?article_id!6" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/readarticle.php?article_id!6


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 2