Bonjour,
Peut être y a t'il une méthode simple mais je ne la vois pas.
Merci de vos réponses.
Bonjour,
Peut être y a t'il une méthode simple mais je ne la vois pas.
Merci de vos réponses.
Bonjour,
Peut être y a t'il une méthode simple mais je ne la vois pas.
Merci de vos réponses.
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 PJMerci 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
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
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 PJMerci 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+
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+
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+
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
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 PJMerci 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.
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
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.
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
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 PJMerci 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.
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
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 PJMerci 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.
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/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
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/
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.
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
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 PJMerci 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.
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
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 PJMerci 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.
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
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
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/
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.
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
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 PJMerci 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.
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
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 PJMerci 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.
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
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
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/
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.
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
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 PJMerci 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.
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
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 PJMerci 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.
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
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
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/
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.
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
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 PJMerci 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.
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.
cherche..cherche.. mais c'est impossible pour une pièce jointe...
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.
cherche..cherche.. mais c'est impossible pour une pièce jointe...
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.
cherche..cherche.. mais c'est impossible pour une pièce jointe...
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
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 PJMerci 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.
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
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
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/
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.
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
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 PJMerci 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.