je cherche une macro (affecter a un bouton ds la barre=20
doutils) qui permettrait de sauvegarder les pieces=20
jointes de lemail selectionn=E9, sur le disque dur (par=20
exemple : c:\outlook\pieces jointes\[objet du mail]\...)
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/soir,
"Albator V" a écrit dans le message de news:2e2d801c46b13$51c8eed0$
bonjour,
je cherche une macro (affecter a un bouton ds la barre doutils) qui permettrait de sauvegarder les pieces jointes de lemail selectionné, sur le disque dur (par exemple : c:outlookpieces jointes[objet du mail]...)
merci davance
C'est sans bouton, mais cela sauvegarde les pièces jointes même celles qui ne sont pas affichées en tant que telles dans la liste (image dans le corps d'un texte en HTML par exemple). Toutefois, il semble que cela ne marche pas pour certains types de pièces jointes dans un message en RTF. (Une raison de plus pour ne pas utiliser ce format).
<---- Sub Get_Attachment() Dim attach As Attachment Dim myitem As Outlook.MailItem Dim myOlapp As Object Dim attachs As Object
On Error Resume Next
'Set myOlapp = CreateObject("Outlook.Application") Set myOlapp = Application Set myitem = myOlapp.ActiveInspector.CurrentItem Set attachs = myitem.Attachments
For Each attach In attachs ' If attach.DisplayName = "SMIME.P7M" Then attach.SaveAsFile "C:WtempOL-attach" & attach.DisplayName ' End If Next End Sub <---
Bonjour/soir,
"Albator V" <albatorv@aol.com> a écrit dans le message de
news:2e2d801c46b13$51c8eed0$a501280a@phx.gbl...
bonjour,
je cherche une macro (affecter a un bouton ds la barre
doutils) qui permettrait de sauvegarder les pieces
jointes de lemail selectionné, sur le disque dur (par
exemple : c:outlookpieces jointes[objet du mail]...)
merci davance
C'est sans bouton, mais cela sauvegarde les pièces jointes même celles qui
ne sont pas affichées en tant que telles dans la liste (image dans le corps
d'un texte en HTML par exemple). Toutefois, il semble que cela ne marche pas
pour certains types de pièces jointes dans un message en RTF. (Une raison de
plus pour ne pas utiliser ce format).
<----
Sub Get_Attachment()
Dim attach As Attachment
Dim myitem As Outlook.MailItem
Dim myOlapp As Object
Dim attachs As Object
On Error Resume Next
'Set myOlapp = CreateObject("Outlook.Application")
Set myOlapp = Application
Set myitem = myOlapp.ActiveInspector.CurrentItem
Set attachs = myitem.Attachments
For Each attach In attachs
' If attach.DisplayName = "SMIME.P7M" Then
attach.SaveAsFile "C:WtempOL-attach" & attach.DisplayName
' End If
Next
End Sub
<---
"Albator V" a écrit dans le message de news:2e2d801c46b13$51c8eed0$
bonjour,
je cherche une macro (affecter a un bouton ds la barre doutils) qui permettrait de sauvegarder les pieces jointes de lemail selectionné, sur le disque dur (par exemple : c:outlookpieces jointes[objet du mail]...)
merci davance
C'est sans bouton, mais cela sauvegarde les pièces jointes même celles qui ne sont pas affichées en tant que telles dans la liste (image dans le corps d'un texte en HTML par exemple). Toutefois, il semble que cela ne marche pas pour certains types de pièces jointes dans un message en RTF. (Une raison de plus pour ne pas utiliser ce format).
<---- Sub Get_Attachment() Dim attach As Attachment Dim myitem As Outlook.MailItem Dim myOlapp As Object Dim attachs As Object
On Error Resume Next
'Set myOlapp = CreateObject("Outlook.Application") Set myOlapp = Application Set myitem = myOlapp.ActiveInspector.CurrentItem Set attachs = myitem.Attachments
For Each attach In attachs ' If attach.DisplayName = "SMIME.P7M" Then attach.SaveAsFile "C:WtempOL-attach" & attach.DisplayName ' End If Next End Sub <---
