Outlookの電子メールを画像ファイルとしてすばやくエクスポートする方法

Outlookソリューション 2025 年 9 月 29 日

一部のユーザーは、Outlookの電子メールをjpgファイルなどの画像ファイルとしてエクスポートしたいと考えています。したがって、この記事では、OutlookVBAコードを介して取得する方法を紹介します。

電子メールをテキストファイル、Word文書などとしてエクスポートするためのさまざまなトリックを学んだはずです。それでは、JPGファイルのような画像としてメールをエクスポートするのはどうですか？どうやら、Outlookにはこの機能がありません。しかし、今後、私たちはあなたと迅速な手段を共有します。

Outlookの電子メールを画像ファイルとしてすばやくエクスポートする

まず、Outlookアプリケーションを起動してください。
次に、Outlookのメインウィンドウで、記事に従ってVBAエディターにアクセスします。OutlookでVBAコードを実行する方法"。
次に、「MS Word オブジェクトライブラリ」と「MS PowerPoint 「オブジェクトライブラリ」については、記事を参照してください。VBAでオブジェクトライブラリ参照を追加する方法"。
次に、次のVBAコードをコピーして空のモジュールに貼り付けます。

Sub ExportEmailAsImage()
    Dim objMail As Outlook.MailItem
    Dim strFileName As String
    Dim strWordDocument As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objDocumentRange As Word.Range
    Dim objPowerPointApp As PowerPoint.Application
    Dim objPresentation As PowerPoint.Presentation
    Dim objShape As PowerPoint.Shape
 
    On Error Resume Next
    'Export the email as Word document
    Set objMail = Outlook.Application.ActiveExplorer.Selection(1)
    strFileName = Replace(objMail.Subject, "/", " ")
    strFileName = Replace(strFileName, "\", " ")
    strFileName = Replace(strFileName, ":", "")
    strFileName = Replace(strFileName, "?", " ")
    strFileName = Replace(strFileName, Chr(34), " ")
    strWordDocument = Environ("Temp") & "\" & strFileName & ".doc"
 
    objMail.SaveAs strWordDocument, olDoc

    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Open(strWordDocument)
    objWordApp.Visible = True
 
    objWordApp.Selection.Find.ClearFormatting
    objWordApp.Selection.Find.Replacement.ClearFormatting
 
    With objWordApp.Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "^p"
        .Wrap = wdFindContinue
    End With
 
    'Insert the document into a PowerPoint Presentation slide as an object
    objWordApp.Selection.Find.Execute Replace:=wdReplaceAll
    Set objDocumentRange = objWordDocument.Range()
    objDocumentRange.Font.Name = "Calibri"
    objDocumentRange.Font.Size = 10
    objWordDocument.Close True
    objWordApp.Quit
 
    Set objPowerPointApp = CreateObject("PowerPoint.Application")
    Set objPresentation = objPowerPointApp.Presentations.Add
    objPowerPointApp.Visible = msoTrue
 
    With objPresentation
        .PageSetup.SlideHeight = 792
        .PageSetup.SlideWidth = 612
        .Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
    End With
 
    'Export the slide
    With objPresentation.Slides(1)
         Set objShape = .Shapes.AddOLEObject(0, 0, 612, 792, , strWordDocument)
        .Export "E:\Email_" & strFileName & ".jpg", "JPG"
    End With
 
    objPresentation.Saved = msoTrue
    objPresentation.Close
    objPowerPointApp.Quit
End Sub

その後、クイックアクセスツールバーにマクロを追加する必要があります。
その後、VBAエディターを閉じることができます。
後で、電子メールを選択し、クイックアクセスツールバーのマクロボタンを押します。
マクロが完了したら、事前定義されたローカルフォルダーに移動して、この電子メールからエクスポートされた画像ファイルを見つけることができます。

破損したファイルからOutlookデータを取得する

Outlook ファイルが深刻な損傷を受けた場合、非常にイライラするかもしれません。そのような場合、破損したファイルから Outlook データを抽出する必要があります。一部のユーザーは受信トレイ修復ツールを利用しようとしますが、ほとんどの場合効果がありません。そのため、強力で信頼できるツールを用意しておくことをお勧めします。 PST修正などのツール DataNumen Outlook Repair。破損したファイルをスキャンして、大騒ぎせずに最大のデータを取り戻すことができます。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdf修正と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com