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 despièces jointes, puis Outils/Macro/Macros...
ThisOutlookSession.LecturePJ
Voilà !
A+
Isa
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" <Laurent@discussions.microsoft.com> a écrit dans le message de
news:3E86A5DD-F361-4B0D-B213-9C3DE026B012@microsoft.com...
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" <NOSPAM_JieL.Goubert@laposte-net.NOSPAM> a écrit dans
le message de
news:udDbXBjEFHA.1188@tk2msftngp13.phx.gbl...
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
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 despièces jointes, puis Outils/Macro/Macros...
ThisOutlookSession.LecturePJ
Voilà !
A+
Isa
