如何在 Outlook 中將電子郵件訊息儲存為圖片格式（jpg/tiff）？

您是否曾經嘗試過在Outlook中將電子郵件訊息保存為jpg或tiff圖片？本文將向您展示解決此問題的方法。

使用VBA代碼將電子郵件訊息保存為圖片格式

使用VBA代碼將電子郵件訊息保存為圖片格式

請按照以下步驟在Outlook中將電子郵件訊息保存為圖片格式。

1. 選擇要保存為圖片的電子郵件，然後同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，請點擊 插入 > UserForm。參見截圖：

3. 創建如下截圖所示的用戶窗體。

4. 選擇 jpg 選項按鈕，並在左側 屬性 窗格中將其名稱更改為 opbJPG。

5. 重複上述步驟 4，將其他選項按鈕重命名為 opbTIFF。並將“確定”命令按鈕和“取消”命令按鈕分別重命名為 cdbOk 和 cdbCancel 。

注意：如果 屬性 窗格未顯示在 Microsoft Visual Basic for Applications 窗口中，請按 F4 鍵以顯示該窗格。

6. 雙擊用戶窗體上的任何空白區域以打開代碼窗口。用以下VBA腳本替換所有代碼。然後關閉代碼窗口。

VBA代碼1：將電子郵件訊息保存為圖片

Option Explicit
'Update by Extendoffice 2018/3/5
Public xRet As Boolean
Private Sub cdbCancel_Click()
  xRet = False
  FrmPicType.Hide
End Sub
Private Sub cdbOk_Click()
  xRet = True
  FrmPicType.Hide
End Sub

7. 選擇 UserForm1 並在 屬性 窗格中將其名稱更改為 FrmPicType ，如下截圖所示。

8. 點擊 插入 > 模塊，然後將以下VBA代碼複製到模塊窗口中。

VBA代碼2：將電子郵件訊息保存為圖片

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Update by Extendoffice 2018/3/5
Sub ExportEmailAsImage()
Dim xMail As Outlook.MailItem
Dim xFileName, xFilePath, xWdDocPath As String
Dim xPPTApp As PowerPoint.Application
Dim xPresentation As PowerPoint.Presentation
Dim xPPTShape As PowerPoint.Shape
Dim xPicType As String
Dim xFileFormat As PpSaveAsFileType
On Error Resume Next
FrmPicType.Show
If FrmPicType.xRet Then
  If FrmPicType.opbJPG.Value = True Then
    xPicType = ".jpg"
    xFileFormat = ppSaveAsJPG
  ElseIf FrmPicType.opbTIFF.Value = True Then
    xPicType = ".tiff"
    xFileFormat = ppSaveAsTIF
  End If
Else
  Exit Sub
End If
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, 0)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFilePath = xFolderItem.Path & "\"
Else
    xFilePath = ""
    Exit Sub
End If
'ShellExecute 0, "Open", "POWERPNT.exe", "", "", 0
Set xPPTApp = New PowerPoint.Application
xPPTApp.Height = 0
xPPTApp.Width = 0
xPPTApp.WindowState = ppWindowMinimized
xPPTApp.Visible = msoFalse
For Each xMail In Outlook.Application.ActiveExplorer.Selection
    xFileName = Replace(xMail.Subject, "/", " ")
    xFileName = Replace(xFileName, "\", " ")
    xFileName = Replace(xFileName, ":", "")
    xFileName = Replace(xFileName, "?", " ")
    xFileName = Replace(xFileName, Chr(34), " ")
    xWdDocPath = Environ("Temp") & "\" & xFileName & ".doc"
    xMail.SaveAs xWdDocPath, olDoc
    
    Set xPresentation = xPPTApp.Presentations.Add
    xPresentation.Application.WindowState = ppWindowMinimized
    xPresentation.Application.Visible = msoFalse
    With xPresentation
        .PageSetup.SlideHeight = 900 '792
        .PageSetup.SlideWidth = 612
        .Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
    End With
    xPPTApp.WindowState = ppWindowMinimized
    With xPresentation.Slides(1)
         .Application.Visible = msoFalse
         Set xPPTShape = .Shapes.AddOLEObject(0, 0, 612, 900, , xWdDocPath)
         xPresentation.SaveAs xFilePath & xFileName & xPicType, xFileFormat, msoTrue
    End With
    xPresentation.Close
Next
xPPTApp.Quit
MsgBox "Mails has been successfully saved as picture", vbInformation + vbOKOnly
End Sub

9. 點擊 工具 > 引用，勾選 Microsoft PowerPoint Object Library 框，然後點擊 確定 按鈕。參見截圖：

10. 按下 F5 鍵運行代碼。然後彈出 UserForm1 對話框，請選擇一種圖片類型並點擊 確定 按鈕。參見截圖：

11. 在 瀏覽文件夾 對話框中，指定一個文件夾來保存圖片，然後點擊 確定 按鈕。

12. 最後，將出現一個 Microsoft Outlook 對話框，告知您保存已完成。請點擊 確定 按鈕。

現在，所選的電子郵件已成功轉換為jpg或tiff圖片，並保存到指定的文件夾中。

相關文章：

• 如何在Outlook中將多封郵件的所有附件保存到文件夾中？
• 如何刪除Outlook中郵件的所有附件？

---

最佳辦公室生產力工具

最新消息：Kutools for Outlook 推出免費版本！

體驗全新 Kutools for Outlook，超過100項精彩功能！立即下載！

🤖 Kutools AI ：採用先進的AI技術輕鬆處理郵件，包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。

📧 郵件自動化：自動回覆（支援POP及IMAP） / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...

📨 郵件管理：撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...

📁 附件專業工具：批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...

🌟 介面魔法：😊更多精美與酷炫表情符號 /重要郵件來臨時提醒 / 最小化 Outlook 而非關閉 ...

👍 一鍵便利：帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...

👩🏼‍🤝‍👩🏻 聯絡人與日曆：從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...

以您偏好的語言使用 Kutools，支援英語、西班牙語、德語、法語、中文及超過40種其他語言！

只需點擊一次，即可立即解鎖 Kutools for Outlook。別等了，現在下載提升您的工作效率！

Kutools for Outlook 功能清單立即下載前往購買

🚀 一鍵下載 — 獲取全部 Office 插件

強力推薦：Kutools for Office（5合1）

一鍵下載五個安裝程式，包括 Kutools for Excel, Outlook, Word, PowerPoint及 Office Tab Pro。 立即下載！

• ✅ 一鍵便利：一次操作即可下載全部五套安裝包。
• 🚀 隨時處理任何 Office 任務：安裝您需求的插件，隨時隨地。
• 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

套件介紹 ⬇下載套件 💳 購買套件