Si vous souhaitez qu'Outlook extraie et enregistre automatiquement les images intégrées à partir des e-mails entrants spécifiques, vous pouvez vous référer à cet article. Ici, nous allons vous apprendre à le réaliser avec le code VBA.
Certains utilisateurs ont fréquemment besoin d'extraire les images intégrées des e-mails entrants spécifiques et de les enregistrer dans un certain dossier Windows. C'est tellement gênant de le faire manuellement à chaque fois. Par conséquent, beaucoup attendent avec impatience d'apprendre une approche rapide et pratique pour permettre à Outlook d'accomplir cela automatiquement. Maintenant, ici, nous allons partager une telle méthode avec vous.
Extraire automatiquement les images intégrées à partir d'e-mails entrants spécifiques
- Tout d'abord, lancez votre programme Outlook comme d'habitude.
- Ensuite, déclenchez l'éditeur Outlook VBA comme d'habitude avec la référence t "Comment exécuter le code VBA dans votre Outlook" .
- Plus tard, copiez et collez le code VBA suivant dans le projet "ThisOutlookSession".
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInbox.Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.Attachments
Dim objAttachment As Outlook.Attachment
Dim strWindowsFolder As String
Dim i As Long
If TypeOf Item Is MailItem Then
Set objMail = Item
'Specify the emails as per your needs
If objMail.Importance = olImportanceHigh Then
Set objAttachments = objMail.Attachments
'Specify the windows folder
strWindowsFolder = "E:\" & objMail.Subject & Format(Now, "yymmddhhmmss")
MkDir (strWindowsFolder)
'Save all embedded images to the folder
For i = 1 To objAttachments.Count
Set objAttachment = objAttachments.Item(i)
If IsEmbedded(objAttachment) = True Then
objAttachment.SaveAsFile strWindowsFolder & "\" & objAttachment.FileName
End If
Next
End If
End If
End Sub
Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolean
Dim objPropertyAccessor As Outlook.PropertyAccessor
Dim strProperty As String
Set objPropertyAccessor = objCurAttachment.PropertyAccessor
strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
If InStr(1, strProperty, "@") > 0 Then
IsEmbedded = True
Else
IsEmbedded = False
End If
End Function
- Ensuite, cliquez sur la sous-routine « Application_Startup ».
- Enfin, cliquez sur la touche "F5" pour déclencher cette macro.
- À partir de maintenant, chaque fois qu'un nouvel e-mail spécifique arrive dans la boîte de réception, les images intégrées seront enregistrées dans le dossier Windows spécifique, comme indiqué dans la capture d'écran suivante.
Nettoyez régulièrement les pièces jointes volumineuses
Il est conseillé de supprimer régulièrement les pièces jointes volumineuses de votre dossier Outlook. Cela permet de maintenir la taille de votre fichier Outlook à un niveau approprié. Un fichier Outlook volumineux est plus susceptible d'être corrompu. Comme vous le savez, les fichiers PST endommagés sont assez difficiles à réparer. Vous tenterez peut-être d'abord de les réparer à l'aide de l'outil de réparation de la boîte de réception. Cependant, dans la plupart des cas, cela ne fonctionnera pas. Votre seul recours est alors de faire appel à un spécialiste. Réparation PST outil, comme DataNumen Outlook Repair, ou les services de récupération professionnels pertinents.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correctif mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com