如何通過Outlook VBA自動從特定的傳入電子郵件中提取嵌入式圖像

Outlook解決方案 2025 年 9 月 29 日
立即分享：

如果您希望Outlook自動從特定的傳入電子郵件中提取並保存嵌入的圖像，則可以參考本文。 在這裡，我們將教您如何使用VBA代碼實現它。

一些用戶經常需要從特定的傳入電子郵件中提取嵌入的圖像，並將其保存到某個Windows文件夾中。 每次手動進行操作都非常麻煩。 因此，許多人期望學習一種快速便捷的方法來讓Outlook自動完成此任務。 現在，我們將在這裡與您分享這種方法。

自動從特定的傳入電子郵件中提取嵌入式圖像

  1. 首先，像往常一樣啟動Outlook程序。
  2. 然後，像往常一樣使用“ t”觸發Outlook VBA編輯器如何在Outlook中運行VBA代碼“。
  3. 稍後，將以下VBA代碼複製並粘貼到“ 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

VBA代碼-自動從特定的傳入電子郵件中提取嵌入的圖像

  1. 之後，點擊“ Application_Startup”子例程。
  2. 最後，單擊“ F5”鍵觸發該宏。
  3. 從現在開始，每次當特定的新電子郵件到達收件箱時，嵌入的圖像將被保存到特定的Windows文件夾中，如以下屏幕快照所示。Windows文件夾中的提取圖像

定期清理大型附件

建議定期從Outlook中清除大型附件。 它旨在使您的Outlook文件保持適當的大小。 較大的Outlook文件更容易受到損壞。 如您所知，很難很好地處理PST損壞。 也許您首先會嘗試通過收件箱修復工具對其進行修復。 但是，在米ost 在這種情況下，它將無法正常工作。 您唯一的手段是專業 PST維修 工具，例如 DataNumen Outlook Repair，或相關的專業恢復服務。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 mdf修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。