Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Outlook Afficher les images des fichiers joints dans aperçu ??

Afficher les images des fichiers joints dans aperçu ??

11 réponses
Avatar
Laurent
Bonjour,

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.
Signaler un problème avec ce contenu

10 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
1 2
Avatar
JièL Goubert
Bonjoir(c) Laurent

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

Avatar
Laurent

Bonjoir(c) Laurent

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




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.


Avatar
JièL Goubert
Bonjoir(c) Laurent

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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">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 / 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

Avatar
JièL Goubert
Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm



Le 14/02/2005 01:15 vous avez écrit ceci :



Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm





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.




Avatar
Isabelle Prawitz
Bonjour !
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" a écrit dans le message de
news:
Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm



Le 14/02/2005 01:15 vous avez écrit ceci :



Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm





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.






Avatar
Laurent
Hello,

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.



Bonjour !
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" a écrit dans le message de
news:
Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm



Le 14/02/2005 01:15 vous avez écrit ceci :



Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm





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.











Avatar
Isabelle Prawitz
Bonjour !
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" a écrit dans le message de
news:
Hello,

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.



Bonjour !
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" a écrit dans le message de
news:
Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm



Le 14/02/2005 01:15 vous avez écrit ceci :



Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm





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.













Avatar
Isabelle Prawitz
Bon !
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º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

A toi de voir si elle te convient !
A+
Isa

"Isabelle Prawitz" a écrit dans le message de news:%
Bonjour !
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" a écrit dans le message de
news:
Hello,

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.



Bonjour !
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" a écrit dans le message de
news:
Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm



Le 14/02/2005 01:15 vous avez écrit ceci :



Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm





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.

















Avatar
Jceel
"Laurent" a écrit dans le message de
news:
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


Avatar
Oliv'
Bonjour Isabelle,
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" a écrit dans le message de news:

Bon !
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º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

A toi de voir si elle te convient !
A+
Isa

"Isabelle Prawitz" a écrit dans le message de
news:%
Bonjour !
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" a écrit dans le message de
news:
Hello,

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.



Bonjour !
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" a écrit dans
le message de
news:
Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm



Le 14/02/2005 01:15 vous avez écrit ceci :



Bonjoir(c) Laurent

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/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.outlook.free.fr/eska/maitriser_office_2003.htm





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.

















1 2