如何在 Outlook 中將郵件內容儲存為圖片格式（如 JPG 或 TIFF）？

您是否曾想過在 Outlook 中將郵件訊息儲存為 JPG 或 TIFF 等圖片格式？本文將為您提供一個實用的解決方案。

使用 VBA 程式碼將郵件訊息儲存為圖片格式

---

使用 VBA 程式碼將郵件訊息儲存為圖片格式

請依照下列步驟，在 Outlook 中將郵件訊息儲存為圖片格式。

1. 選取您要儲存為圖片的郵件，然後同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，請點選插入＞ 使用者表單。請參閱截圖：

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. 選取 UserForm 1，並依照下方截圖所示，在 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 物件庫核取方塊，再點擊確定按鈕。請參閱截圖：

10. 按下 F5 鍵以執行程式碼，隨即會彈出 UserForm 1 對話方塊。請選擇圖片類型，再點擊確定按鈕。請參閱截圖：

11. 在瀏覽資料夾對話方塊中，指定用來儲存圖片的資料夾，然後按一下確定按鈕。

12. 最後，系統會顯示一個 Microsoft Outlook 對話方塊，通知您儲存作業已完成，請點選確定按鈕。

現在，所選郵件已成功轉換為 JPG 或 TIFF 圖片，並儲存至指定資料夾中。

---

相關文章：

• 如何將多封郵件中的所有附件儲存到 Outlook 資料夾中？
• 如何移除 Outlook 郵件中的所有附件？