Bonjour,
C'est un problème que j'ai toujours connu
les images attachées ne s'affichent pas dans le
corps du message (contrairement a OE).
Merci d'avance,
Bonjour,
C'est un problème que j'ai toujours connu
les images attachées ne s'affichent pas dans le
corps du message (contrairement a OE).
Merci d'avance,
Bonjour,
C'est un problème que j'ai toujours connu
les images attachées ne s'affichent pas dans le
corps du message (contrairement a OE).
Merci d'avance,
Bonjoir(c) Alex C
Le 14/04/2007 20:51 vous avez écrit ceci :Bonjour,
C'est un problème que j'ai toujours connu
Ce n'est pas un problème, c'est une fonctionnalité qui est différente
entre OE et Outlookles images attachées ne s'affichent pas dans le corps du message
(contrairement a OE).
LA solution ?! Passer à 2007 qui affiche "enfin" un aperçu de toutes les
PJ (ou presque)
Ou alors essayez cette macro d'Isabelle Prawitz
http://groups.google.com/group/microsoft.public.fr.outlook/tree/browse_frm/thread/d5670598a45ebea/655fafeb02570429?rnum=1&hl=fr&q=pi%C3%A8ces+jointes+afficher+group%3Amicrosoft.public.fr.outlook&_done=%2Fgroup%2Fmicrosoft.public.fr.outlook%2Fbrowse_frm%2Fthread%2Fd5670598a45ebea%2F8788427af4dda2cd%3Flnk%3Dst%26q%3Dpi%25C3%25A8ces%2Bjointes%2Bafficher%2Bgroup%253Amicrosoft.public.fr.outlook%26rnum%3D1%26hl%3Dfr%26#doc_dd75c35a9aad1a1dMerci d'avance,
--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La nouvelle FAQ Outlook est là : http://faq.outlook.free.fr/index.php
Les stats de CDO : http://faq.outlook.free.fr/cdo/
Bonjoir(c) Alex C
Le 14/04/2007 20:51 vous avez écrit ceci :
Bonjour,
C'est un problème que j'ai toujours connu
Ce n'est pas un problème, c'est une fonctionnalité qui est différente
entre OE et Outlook
les images attachées ne s'affichent pas dans le corps du message
(contrairement a OE).
LA solution ?! Passer à 2007 qui affiche "enfin" un aperçu de toutes les
PJ (ou presque)
Ou alors essayez cette macro d'Isabelle Prawitz
http://groups.google.com/group/microsoft.public.fr.outlook/tree/browse_frm/thread/d5670598a45ebea/655fafeb02570429?rnum=1&hl=fr&q=pi%C3%A8ces+jointes+afficher+group%3Amicrosoft.public.fr.outlook&_done=%2Fgroup%2Fmicrosoft.public.fr.outlook%2Fbrowse_frm%2Fthread%2Fd5670598a45ebea%2F8788427af4dda2cd%3Flnk%3Dst%26q%3Dpi%25C3%25A8ces%2Bjointes%2Bafficher%2Bgroup%253Amicrosoft.public.fr.outlook%26rnum%3D1%26hl%3Dfr%26#doc_dd75c35a9aad1a1d
Merci d'avance,
--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La nouvelle FAQ Outlook est là : http://faq.outlook.free.fr/index.php
Les stats de CDO : http://faq.outlook.free.fr/cdo/
Bonjoir(c) Alex C
Le 14/04/2007 20:51 vous avez écrit ceci :Bonjour,
C'est un problème que j'ai toujours connu
Ce n'est pas un problème, c'est une fonctionnalité qui est différente
entre OE et Outlookles images attachées ne s'affichent pas dans le corps du message
(contrairement a OE).
LA solution ?! Passer à 2007 qui affiche "enfin" un aperçu de toutes les
PJ (ou presque)
Ou alors essayez cette macro d'Isabelle Prawitz
http://groups.google.com/group/microsoft.public.fr.outlook/tree/browse_frm/thread/d5670598a45ebea/655fafeb02570429?rnum=1&hl=fr&q=pi%C3%A8ces+jointes+afficher+group%3Amicrosoft.public.fr.outlook&_done=%2Fgroup%2Fmicrosoft.public.fr.outlook%2Fbrowse_frm%2Fthread%2Fd5670598a45ebea%2F8788427af4dda2cd%3Flnk%3Dst%26q%3Dpi%25C3%25A8ces%2Bjointes%2Bafficher%2Bgroup%253Amicrosoft.public.fr.outlook%26rnum%3D1%26hl%3Dfr%26#doc_dd75c35a9aad1a1dMerci d'avance,
--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La nouvelle FAQ Outlook est là : http://faq.outlook.free.fr/index.php
Les stats de CDO : http://faq.outlook.free.fr/cdo/
Bonjour,
Merci pour cette Macro, mais je n'arrive pas à la faire fonctionner.... (je
n'ai jamais fait de macro de ma vie!)
Y a t'il une astuce ou est ce que le probleme peut être lié avec ma version
en Anglais?
Bonjour,
Merci pour cette Macro, mais je n'arrive pas à la faire fonctionner.... (je
n'ai jamais fait de macro de ma vie!)
Y a t'il une astuce ou est ce que le probleme peut être lié avec ma version
en Anglais?
Bonjour,
Merci pour cette Macro, mais je n'arrive pas à la faire fonctionner.... (je
n'ai jamais fait de macro de ma vie!)
Y a t'il une astuce ou est ce que le probleme peut être lié avec ma version
en Anglais?
Merci pour cette Macro, mais je n'arrive pas à la faire fonctionner....
(je n'ai jamais fait de macro de ma vie!)
Y a t'il une astuce ou est ce que le probleme peut être lié avec ma
version en Anglais?
Y'a pas d'astuce, mais quand vous dite "je n'arrive pas à la faire
fonctionner" on ne risque pas de pouvoir vous aider si vous ne donnez pas
plus de détails.
Merci pour cette Macro, mais je n'arrive pas à la faire fonctionner....
(je n'ai jamais fait de macro de ma vie!)
Y a t'il une astuce ou est ce que le probleme peut être lié avec ma
version en Anglais?
Y'a pas d'astuce, mais quand vous dite "je n'arrive pas à la faire
fonctionner" on ne risque pas de pouvoir vous aider si vous ne donnez pas
plus de détails.
Merci pour cette Macro, mais je n'arrive pas à la faire fonctionner....
(je n'ai jamais fait de macro de ma vie!)
Y a t'il une astuce ou est ce que le probleme peut être lié avec ma
version en Anglais?
Y'a pas d'astuce, mais quand vous dite "je n'arrive pas à la faire
fonctionner" on ne risque pas de pouvoir vous aider si vous ne donnez pas
plus de détails.
Microsoft Visual Basic : The macros in this project are disabled. Please refer to the
online help or documentation of the host application to determine how to enable macros.
Par ailleurs un certain nombre de lignes sont colorées en rouge ce qui me lance penser
a un problème de syntaxe (voir la suite).
http://www.hebergement-images.com/05/1177175598_macro.JPEG
Je clique OK, puis je tente un Debug / Compile Project1, et il me balance un :
Compile Error / Syntax Error
Microsoft Visual Basic : The macros in this project are disabled. Please refer to the
online help or documentation of the host application to determine how to enable macros.
Par ailleurs un certain nombre de lignes sont colorées en rouge ce qui me lance penser
a un problème de syntaxe (voir la suite).
http://www.hebergement-images.com/05/1177175598_macro.JPEG
Je clique OK, puis je tente un Debug / Compile Project1, et il me balance un :
Compile Error / Syntax Error
Microsoft Visual Basic : The macros in this project are disabled. Please refer to the
online help or documentation of the host application to determine how to enable macros.
Par ailleurs un certain nombre de lignes sont colorées en rouge ce qui me lance penser
a un problème de syntaxe (voir la suite).
http://www.hebergement-images.com/05/1177175598_macro.JPEG
Je clique OK, puis je tente un Debug / Compile Project1, et il me balance un :
Compile Error / Syntax Error
Bonjour à Alex
en fait les signes = ont disparu
Ça doit donner qqch comme ci-dessous mais attention à changer le nom de
répertoire à deux endroits.
Sub ImagesDansMessage()
Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim laPJ As Attachment
Dim nbAtt As Integer
Dim i As Integer
Dim NS As NameSpace
Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
If leMess.BodyFormat = olFormatHTML Then
nbAtt = leMess.Attachments.Count
For Each laPJ In leMess.Attachments
If Right(LCase(laPJ.FileName), 4) = ".jpg" Or _
Right(LCase(laPJ.FileName), 4) = "jpeg" Or _
Right(LCase(laPJ.FileName), 4) = ".gif" Then
' *** attention Dossier à paramétrer
laPJ.SaveAsFile "c:Pieces jointes" & laPJ.DisplayName
' *** attention Dossier à paramétrer
leMess.HTMLBody = "<IMG alt'' hspace0 src'" & _
"c:Pieces jointes" & laPJ.DisplayName & _
"' alignºseline border0><br>" & _
leMess.HTMLBody
End If
Next
For i = leMess.Attachments.Count To 1 Step -1
Set laPJ = leMess.Attachments.Item(i)
If Right(LCase(laPJ.DisplayName), 4) = ".jpg" Or _
Right(LCase(laPJ.DisplayName), 4) = "jpeg" Or _
Right(LCase(laPJ.DisplayName), 4) = ".gif" Then
laPJ.Delete
End If
Next
leMess.Save
End If
End If
Next
End Sub
'Fin de macro
Bonjour à Alex
en fait les signes = ont disparu
Ça doit donner qqch comme ci-dessous mais attention à changer le nom de
répertoire à deux endroits.
Sub ImagesDansMessage()
Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim laPJ As Attachment
Dim nbAtt As Integer
Dim i As Integer
Dim NS As NameSpace
Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
If leMess.BodyFormat = olFormatHTML Then
nbAtt = leMess.Attachments.Count
For Each laPJ In leMess.Attachments
If Right(LCase(laPJ.FileName), 4) = ".jpg" Or _
Right(LCase(laPJ.FileName), 4) = "jpeg" Or _
Right(LCase(laPJ.FileName), 4) = ".gif" Then
' *** attention Dossier à paramétrer
laPJ.SaveAsFile "c:Pieces jointes" & laPJ.DisplayName
' *** attention Dossier à paramétrer
leMess.HTMLBody = "<IMG alt'' hspace0 src'" & _
"c:Pieces jointes" & laPJ.DisplayName & _
"' alignºseline border0><br>" & _
leMess.HTMLBody
End If
Next
For i = leMess.Attachments.Count To 1 Step -1
Set laPJ = leMess.Attachments.Item(i)
If Right(LCase(laPJ.DisplayName), 4) = ".jpg" Or _
Right(LCase(laPJ.DisplayName), 4) = "jpeg" Or _
Right(LCase(laPJ.DisplayName), 4) = ".gif" Then
laPJ.Delete
End If
Next
leMess.Save
End If
End If
Next
End Sub
'Fin de macro
Bonjour à Alex
en fait les signes = ont disparu
Ça doit donner qqch comme ci-dessous mais attention à changer le nom de
répertoire à deux endroits.
Sub ImagesDansMessage()
Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim laPJ As Attachment
Dim nbAtt As Integer
Dim i As Integer
Dim NS As NameSpace
Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
If leMess.BodyFormat = olFormatHTML Then
nbAtt = leMess.Attachments.Count
For Each laPJ In leMess.Attachments
If Right(LCase(laPJ.FileName), 4) = ".jpg" Or _
Right(LCase(laPJ.FileName), 4) = "jpeg" Or _
Right(LCase(laPJ.FileName), 4) = ".gif" Then
' *** attention Dossier à paramétrer
laPJ.SaveAsFile "c:Pieces jointes" & laPJ.DisplayName
' *** attention Dossier à paramétrer
leMess.HTMLBody = "<IMG alt'' hspace0 src'" & _
"c:Pieces jointes" & laPJ.DisplayName & _
"' alignºseline border0><br>" & _
leMess.HTMLBody
End If
Next
For i = leMess.Attachments.Count To 1 Step -1
Set laPJ = leMess.Attachments.Item(i)
If Right(LCase(laPJ.DisplayName), 4) = ".jpg" Or _
Right(LCase(laPJ.DisplayName), 4) = "jpeg" Or _
Right(LCase(laPJ.DisplayName), 4) = ".gif" Then
laPJ.Delete
End If
Next
leMess.Save
End If
End If
Next
End Sub
'Fin de macro
je peux récupérer tel quel pour mettre dans la FAQ ?
je peux récupérer tel quel pour mettre dans la FAQ ?
je peux récupérer tel quel pour mettre dans la FAQ ?
je peux récupérer tel quel pour mettre dans la FAQ ?
Je n'ai fait que remettre les caractères qui m'ont paru manquants et
raccourcir les lignes un peu trop longues pour les forums.
C'est à Isabelle Prawitz qu'il faut demander.
Mais vaut mieux attendre le retour d'Alex
je peux récupérer tel quel pour mettre dans la FAQ ?
Je n'ai fait que remettre les caractères qui m'ont paru manquants et
raccourcir les lignes un peu trop longues pour les forums.
C'est à Isabelle Prawitz qu'il faut demander.
Mais vaut mieux attendre le retour d'Alex
je peux récupérer tel quel pour mettre dans la FAQ ?
Je n'ai fait que remettre les caractères qui m'ont paru manquants et
raccourcir les lignes un peu trop longues pour les forums.
C'est à Isabelle Prawitz qu'il faut demander.
Mais vaut mieux attendre le retour d'Alex