メインコンテンツへスキップ

Outlookで電子メールメッセージを画像形式(jpg / tiff)として保存するにはどうすればよいですか?

Outlookで電子メールメッセージをjpgやtiff画像などの画像として保存しようとしたことがありますか? この記事では、この問題を解決する方法を紹介します。

電子メールメッセージをVBAコードを使用して画像形式で保存する


電子メールメッセージをVBAコードを使用して画像形式で保存する

電子メールメッセージを画像形式でOutlookに保存するには、次の手順を実行してください。

1.画像として保存するメールを選択し、を押します 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください インセット > ユーザーフォーム。 スクリーンショットを参照してください:

3。 作成する ユーザーフォーム 以下のスクリーンショットのように。

4。 選択します jpgオプション ボタンをクリックし、名前をに変更します opbJPG 左側で プロパティ ペイン。

5.上記の手順4を繰り返して、他のオプションボタンの名前を次のように変更します。 opbTIFF。 そして名前を変更します OK コマンドボタンと キャンセル コマンドボタンとして cdbOK & cdbキャンセル 別々に。

Noteプロパティ ペインはに表示されません アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください F4 ペインを表示するためのキー。

6.ユーザーフォームの空白部分をダブルクリックして、 Code 窓。 すべてのコードを次の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。 選択します ユーザーフォーム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。 クリック ツール > 参考文献MicrosoftPowerPointオブジェクトライブラリ ボックスをクリックし、 OK ボタン。 スクリーンショットを参照してください:

10。 プレス F5 コードを実行するためのキー。 そうして ユーザーフォーム1 ダイアログボックスが表示されます。画像の種類を選択し、 OK ボタン。 スクリーンショットを参照してください:

11。 の中に フォルダを参照 ダイアログ ボックスで、画像を保存するフォルダーを指定し、 OK

12.最後に、 Microsoft Outlookの 保存が完了したことを知らせるダイアログボックスが表示されます。 をクリックしてください OK

これで、選択したメールが jpg または tiff 画像に変換され、指定したフォルダーに正常に保存されました。


関連記事:


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations