Afficher les images des fichiers joints dans aperçu ??
Laurent
Je souhaiterai savoir comment afficher les images des fichiers joints dans
mes messages plutot que des icones lorsque je consulte le message ou l'aperçu.
Les pieces jointes sont en général de type *.jpg.
Actuellement il faut double cliquer sur la piece jointe pour visualiser son
contenu.
Peut être y a t'il une méthode simple mais je ne la vois pas.
Je suis sous Windows XP SP2 et oulook 2003 SP1.
Merci de vos réponses.
L.
JièL Goubert
Le 13/02/2005 19:29 vous avez écrit ceci :
> Bonjour,
>
> Peut être y a t'il une méthode simple mais je ne la vois pas.
Non, il n'existe pas d'autres méthode avec Outlook de la suite Office,
toute versions confondues
Ou alors il faut demander à vos expéditeurs d'insérer les images DANS le
messages (menu Insertion, Image) plutot que de les mettres en PJ
> Merci de vos réponses.
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Laurent
"JièL Goubert" a écrit :
Salut JL,
Ta réponse es tpour le moins surprenante....
Ce que outlook express sait faire outlook ne saurait pas le faire ???
Soit il y a une clé à créer dans la base de registre soit un truc et astuce
caché mais un truc aussi basic doit bien exister.
A+
L.
JièL Goubert
Le 14/02/2005 01:15 vous avez écrit ceci :
> Salut JL,
> Ta réponse es tpour le moins surprenante....
>
> Ce que outlook express sait faire outlook ne saurait pas le faire ???
Ils ne font pas les même chose, et les comparer reviendrais à comparer une
formule 1 avec un camionnette. La F1 n'as pas d'essui glace, ni de coffre
pour les bagages, mais ce n'est pas ce qu'on lui demande. Quand à la
camionnette, j'aimerai bien lui mettre moteur de F1, mais bon, aprés y'a
d'autres soucis ;-)))))))))
OE est un prog de messagerie pour internet, Outlook est un outils
bureautique tourné vers le travail de groupe... le reste est la :
http://faq.outlook.free.fr/?r_differences_o_et_oe.htm
> Soit il y a une clé à créer dans la base de registre soit un truc et astuce
> caché mais un truc aussi basic doit bien exister.
Je serais ravi de le connaitre, même de savoir qu'il existe un plug'in par
exemple, mais à ma connaissance, rien de tel. Si vous trouvez qqchose,
merci de venir nous en faire profiter
> A+
Volontier
JièL Goubert
oups... Isabelle va me tirer les oreilles, elle avait créée cette macro
pour ce soucis la (patapé Isa, patapé, je m'en suis souvenu ;-D)
> Ok !
> Voici le code de procédure à coller dans la feuille de code de session
Outlook (ThisOutlookSession).
>
> ' Macro de lecture de pièces jointes d'un message sélectionné
>
> Sub LecturePJ()
> Dim leMess As MailItem
> Dim LaSelection As Selection
> Dim MonEsp As NameSpace
> Dim monExp As Explorer
> Dim leShell As New IWshRuntimeLibrary.WshShell
> Dim i As Integer
> Dim leDoss As String
> Dim appExcel As Excel.Application
> Dim offFD As FileDialog
> Dim intRep As Integer
>
> Set MonEsp = GetNamespace("MAPI")
> Set monExp = ActiveExplorer
> Set LaSelection = monExp.Selection
> If TypeName(LaSelection.Item(1)) = "MailItem" Then
> Set leMess = LaSelection.Item(1)
> If leMess.Attachments.Count > 0 Then
> MsgBox "Un dossier est nécessaire pour enregistrer les pièces
jointes avant de les ouvrir."
> Set appExcel = CreateObject("Excel.Application")
> Set offFD = appExcel.FileDialog(msoFileDialogFolderPicker)
> offFD.AllowMultiSelect = False
> If offFD.Show = -1 Then
> leDoss = offFD.SelectedItems(1)
> appExcel.Quit
> Else
> appExcel.Quit
> MsgBox "Opération annulée"
> Exit Sub
> End If
> End If
> intRep = MsgBox("ATTENTION ! Toute pièce jointe peut être
contaminée par un virus !" _
> & vbCrLf & "Il est FORTEMENT conseillé de scanner les
fichiers avec un antivirus avant de continuer !" _
> & vbCrLf & "Vous pouvez le faire avant de choisir une option
ci-dessous." _
> & vbCrLf & vbCrLf & "Continuer ?", vbYesNo + vbCritical,
"Attention !")
> If intRep = vbNo Then
> Exit Sub
> End If
>
> For i = 1 To leMess.Attachments.Count
> Dim strNomFic As String
> strNomFic = leDoss & leMess.Attachments.Item(i).FileName
> leMess.Attachments.Item(i).SaveAsFile strNomFic
> leShell.Run """" & strNomFic & """"
> Next
> End If
> End Sub
> ' fin de macro
>
> Il faut en plus faire deux références dans Outils/Références...
> 1. Microsoft Excel 11.0 Object Library (pour la boite de dialogue de
choix de dossier)
> 2. Windows Script Host Object Model (pour ouvrir la pièce jointe)
>
> Sauvegarde du code de session, retour à Outlook, sélection (l'ouverture
n'est pas nécessaire !) d'un message contenant des
> pièces jointes, puis Outils/Macro/Macros... ThisOutlookSession.LecturePJ
>
> Voilà !
> A+
> Isa
Si pb, Isa te dira surement comment faire avec
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Isabelle Prawitz
Meuh non, moi patapé !
Juste quelques précisions sur la macro en question :
1. Elle travaille sur les messages sélectionnés, et pas forcément ouverts.
2. Elle ouvre les PJ, donc celles-ci doivent être sûres (au point de vue virus !). Les PJ ne sont pas forcément des images.
3. Elle demande à enregistrer les PJ dans un dossier. Même si vous créez le dossier en question, ce dossier n'est pas
supprimé après le traitement.
4. La référence à Excel est celle de Excel 2003.
A+
Isa
"JièL Goubert" <NOSPAM_Ji...@laposte-net.NOSPAM> a écrit dans le message de
news:udDbXBjE...@tk2msftngp13.phx.gbl...
Laurent
J'ai testé ta macro et elle fonctionne parfaitement effectivement.
Mais elle ne correspond pas à mon besoin.
Ce dernier était de visualiser le plus simplement possible (c'est a dire
sans click, sans appui sur des boutons barre outils) les éventuels pièces
jointes de type *.jpg que je reçois dans mes messages.
Je suis conscient des virus contenus potentiellement dans les pj. Cependant
jamais entendu parlé de virus dans les jpg à ce jour.
Je vais continuer à chercher car je suis persuadé qu'il existe une solution
du type je clique sur le message et dans apercu la pj doit pouvoir être
visualisée.
Merci des réponses et des recherches cependant.
L.
"Isabelle Prawitz" a écrit :
Isabelle Prawitz
Ce que tu veux implique de modifier le contenu du message reçu pour y incorporer les images.
De toute façon ça ne fonctionnerait qu'avec les messages HTML.
Le problème qui pourrait se poser (il faudrait que je teste !) serait une modification de la date du message. Je regarde, et
sinon je devrais pouvoir te "goupiller" quelque chose.
A+
Isa
"Laurent" <Lau...@discussions.microsoft.com> a écrit dans le message de
news:3E86A5DD-F361-4B0D...@microsoft.com...
Isabelle Prawitz
Voici une macro qui, si tu l'appelles dans l'évènement Application_NewMail, t'intègre toutes les PJ au format JPG ou GIF dans
le corps du message, à condition que celui-ci soit HTML.
Elle impose bien sûr un enregistrement des PJ en questions dans un dossier, ici "c:\Pieces jointes\".
A toi de changer si tu veux.
' 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
A toi de voir si elle te convient !
A+
Isa
"Isabelle Prawitz" <ipra...@wanadoo.fr> a écrit dans le message de news:%23gdvfA0...@tk2msftngp13.phx.gbl...
@rofl.ouah.ouah.org Jceel
news: 3E86A5DD-F361-4B0D...@microsoft.com...
> Je suis conscient des virus contenus potentiellement dans les pj.
> Cependant
> jamais entendu parlé de virus dans les jpg à ce jour.
ça ne saurait tarder
>
> Je vais continuer à chercher car je suis persuadé qu'il existe une
> solution
> du type je clique sur le message et dans apercu la pj doit pouvoir être
> visualisée.
>>
cherche..cherche.. mais c'est impossible pour une pièce jointe...
il faut une image encapsulée dans un fichier HTML et ce n'est donc plus une
pièce " jointe"
--
@++++Jceel
En vérité je te le dis mais sous O E
internaute indécis pour le HacheuTeuMeuLeu
seul le click droit Control+F deux
la lumière t'apportera C'est ce qu'il y a de mieux
netevangile..selon Jceel.livre du windows.psaume alt-255..verset ÿp
Jceel http://jceel.free.fr l'hyper du gratuit du net
Founding Chairman of the International Pebkac Busters Company
Oliv'
Je prends connaisance avec beaucoup d'interet des macros que tu as publié.
Si je comprends bien la macro ImagesDansMessage
elle extrait les pièces jointes dans un répertoire et ajoute au début du
mail un lien html vers ces fichiers.
Je t'expose mes remarques et je vais essayer de travailler dessus après :
le problème c'est si tu as des fichiers portant le même nom et étant bien
sûr différents ils serons écrasés non ?
--> pourquoi ne pas créer un sous répertoire avec comme nom une relation au
mail (date heure sujet expediteur ??) existe t'il un identifiant unique pour
un mail ?
quand tu ouvres ta messagerie d'un autre poste tu n'as plus les images
-->sauf répertoire au format UNC et partagé.
quand tu transfères un mail idem .
Je planche là dessus mais si tu as des idées complémentaires ou autres codes
cela m'interesse.
Oliv'
"Isabelle Prawitz" <ipra...@wanadoo.fr> a écrit dans le message de news:
eqmFJI1E...@tk2msftngp13.phx.gbl...
Oliv'
J'ai trouvé un macro fort bien faite pour ouvrir l'ensemble des images
liéées à un mail
voici le lien
http://blogs.officezealot.com/legault/ vous pouvez télécharger là les
fichiers sources
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odc_ol2003_ta/html/Office_Outlook_ViewMultPictAttach.asp
et là la description pas à pas
Juste une erreur la macro à enregistrer dans un bouton est
LaunchPictureAttachmentsHelper
Pour diffuser cette macro sur tout mes pc :
Je fais à partir d'un batch (ici le script d'ouverture de session)
copy VbaProject.OTM %AppData%\Microsoft\Outlook\ /y
et pour copier le bouton insérer manuellement sur mon poste
copy outcmd.dat %AppData%\Microsoft\Outlook\ /y
attention modifier le registre pour autoriser le niveau de sécurité moyen
ici pour outlook 2003 .
regedit /s leveloutlook11security.reg
avec comme contenu du fichier
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Security]
"Level"=dword:00000002
Oliv'
C:\Documents and Settings\o_catteau\Application Data\Microsoft\Outlook
"Oliv'" <(supprimerceci)cat...@ricour-assurances.fr> a écrit dans le
message de news: 422869de$0$618$afc3...@news.easynet.fr...