選択した複数の電子メールをMSGファイルとしてOutlookで一括保存するにはどうすればよいですか?
電子メールをMSGファイルとしてOutlookに保存するのは簡単です。 選択した複数の電子メールを個別のMSGファイルとしてOutlookにまとめて保存するにはどうすればよいですか? この記事では、それを実現する方法を紹介します。
選択した複数のメールをVBAコード付きのMSGファイルとして保存します
選択した複数のメールをVBAコード付きのMSGファイルとして保存します
次のVBAコードは、選択した複数の電子メールを個別のMSGファイルとしてOutlookにまとめて保存するのに役立ちます。 次のようにしてください。
1.MSGファイルとして保存する電子メールを選択します。 次に、Alt + F11キーを同時に押して、[Microsoft Visual Basic forApplications]ウィンドウを開きます。
2. [Microsoft Visual Basic for Applications]ウィンドウで、[挿入]> [モジュール]をクリックし、以下のVBAコードを[モジュール]ウィンドウにコピーします。
VBAコード:選択した複数の電子メールを個別のMSGファイルとしてOutlookに保存します
Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
If xObjItem.Class = olMail Then
Set xMail = xObjItem
xName = xMail.Subject
xDtDate = xMail.ReceivedTime
xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(xDtDate, "-hhnnss", _
vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
xPath = xFileName + xName
xMail.SaveAs xPath, olMSG
End If
Next
End Sub
3.F5キーを押してコードを実行します。
4. [フォルダーの参照] ダイアログ ボックスで、MSG ファイルを保存するフォルダーを指定し、[OK] ボタンをクリックします。 スクリーンショットを参照してください:
これで、以下のスクリーンショットに示すように、選択したすべてのメールが個別の MSG ファイルとして保存されます。
選択した電子メールを異なる形式のファイルとしてOutlookに簡単に保存できます。
一括保存 の有用性 Outlook用Kutools、以下のスクリーンショットに示すように、選択した複数の電子メールを個別のHTML形式ファイル、TXT形式ファイル、Word文書、CSVファイル、およびPDFファイルとしてOutlookに簡単に保存できます。 ダウンロードして今すぐ試してみてください! (60 日間の無料トレイル)
最高のオフィス生産性向上ツール
Outlook用Kutools - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。