Bonjour,
Je voudrais savoir comment extraire le contenu d'un=20
message re=E7u dans Outlook tel qu'une image Gif anim=E9e ou=20
un son qu'on ne peut pas r=E9cup=E9rer par le clic droit de=20
la souris (Enregistrer...) Pour certain cas on n'arrive=20
seulement =E0 r=E9cup=E9rer l'image fixe sans l'animation.
Pourquoi ? ? ?
Et =E9ventuellement avec quel utilitaire d'extraction on=20
peut le faire ?
Merci d'avance et bonne ann=E9e 2004.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Grég
Bonjour,
La macro suivante modifiée à partir de celle de l'article: http://support.microsoft.com/default.aspx?scid=kb;fr;19961&Product=ol2002INT permet de mettre tous les fichiers attachés dans c:temp .
Sub Get_Attachment() Dim attach As Attachment Dim myitem As Outlook.MailItem
On Error Resume Next
Set myOlApp = CreateObject("Outlook.Application") Set myitem = myOlApp.ActiveInspector.CurrentItem Set attachs = myitem.Attachments
For Each attach In attachs ' If attach.DisplayName = "SMIME.P7M" Then attach.SaveAsFile "C:temp" & attach.DisplayName ' End If Next End Sub
"Baboon" a écrit dans le message de news:08b901c3d50e$09fd9ce0$ Bonjour, Je voudrais savoir comment extraire le contenu d'un message reçu dans Outlook tel qu'une image Gif animée ou un son qu'on ne peut pas récupérer par le clic droit de la souris (Enregistrer...) Pour certain cas on n'arrive seulement à récupérer l'image fixe sans l'animation. Pourquoi ? ? ? Et éventuellement avec quel utilitaire d'extraction on peut le faire ? Merci d'avance et bonne année 2004.
Baboon
Bonjour,
La macro suivante modifiée à partir de celle de l'article:
http://support.microsoft.com/default.aspx?scid=kb;fr;19961&Product=ol2002INT
permet de mettre tous les fichiers attachés dans c:temp .
Sub Get_Attachment()
Dim attach As Attachment
Dim myitem As Outlook.MailItem
On Error Resume Next
Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.ActiveInspector.CurrentItem
Set attachs = myitem.Attachments
For Each attach In attachs
' If attach.DisplayName = "SMIME.P7M" Then
attach.SaveAsFile "C:temp" & attach.DisplayName
' End If
Next
End Sub
"Baboon" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08b901c3d50e$09fd9ce0$a401280a@phx.gbl...
Bonjour,
Je voudrais savoir comment extraire le contenu d'un
message reçu dans Outlook tel qu'une image Gif animée ou
un son qu'on ne peut pas récupérer par le clic droit de
la souris (Enregistrer...) Pour certain cas on n'arrive
seulement à récupérer l'image fixe sans l'animation.
Pourquoi ? ? ?
Et éventuellement avec quel utilitaire d'extraction on
peut le faire ?
Merci d'avance et bonne année 2004.
La macro suivante modifiée à partir de celle de l'article: http://support.microsoft.com/default.aspx?scid=kb;fr;19961&Product=ol2002INT permet de mettre tous les fichiers attachés dans c:temp .
Sub Get_Attachment() Dim attach As Attachment Dim myitem As Outlook.MailItem
On Error Resume Next
Set myOlApp = CreateObject("Outlook.Application") Set myitem = myOlApp.ActiveInspector.CurrentItem Set attachs = myitem.Attachments
For Each attach In attachs ' If attach.DisplayName = "SMIME.P7M" Then attach.SaveAsFile "C:temp" & attach.DisplayName ' End If Next End Sub
"Baboon" a écrit dans le message de news:08b901c3d50e$09fd9ce0$ Bonjour, Je voudrais savoir comment extraire le contenu d'un message reçu dans Outlook tel qu'une image Gif animée ou un son qu'on ne peut pas récupérer par le clic droit de la souris (Enregistrer...) Pour certain cas on n'arrive seulement à récupérer l'image fixe sans l'animation. Pourquoi ? ? ? Et éventuellement avec quel utilitaire d'extraction on peut le faire ? Merci d'avance et bonne année 2004.
