皆さん、こんにちは。今日は、OutlookのメールをMSG形式で保存する方法を、初心者の方にもわかりやすくお伝えします。特に、VBA（Visual Basic for Applications）を使って自動化する方法をご紹介します。難しそうに聞こえるかもしれませんが、一緒に進めていきましょう。
はじめにMSG形式とは？
Outlookのイメージ
まず、MSG形式についてお話しします。これは、Outlookのメールを個別のファイルとして保存する際の形式の一つです。例えば、大切なメールをパソコン内の特定のフォルダに保存しておきたいときに、この形式が役立ちます。
VBAを使ってメールを自動保存するメリット
では、なぜVBAを使ってメールを自動保存するのでしょうか？手動で一つ一つ保存するのは手間がかかりますよね。VBAを使えば、特定の条件に合ったメールを自動的に保存することができます。これにより、作業効率が大幅にアップします。
VBAマクロの基本構造
それでは、実際にVBAマクロを作成してみましょう。以下の手順で進めていきます。
- Outlookを開き、AltキーとF11キーを同時に押して、VBAエディタを起動します。
- 左側のプロジェクトエクスプローラーで、ThisOutlookSessionをダブルクリックします。
- 以下のコードを入力します。
vba
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim objItem As Object
Dim objMsg As MailItem
Set objItem = Application.Session.GetItemFromID(EntryIDCollection)
If TypeName(objItem) = "MailItem" Then
Set objMsg = objItem
SaveAsMsg objMsg
End If
End Sub
Public Sub SaveAsMsg(ByRef objMsg As MailItem)
Const SAVE_PATH = "C:YourDesiredPath"
Dim strSubject As String
Dim strFileName As String
strSubject = Replace(objMsg.Subject, ":", "_")
strFileName = SAVE_PATH & strSubject & ".msg"
objMsg.SaveAs strFileName, olMSG
End Sub
このコードは、新しいメールを受信した際に自動的に指定したフォルダにMSG形式で保存するものです。SAVE_PATHの部分を、ご自身の保存したいフォルダのパスに変更してください。
このサイトをチップで応援
実際にマクロを使ってみましょう
マクロの設定が完了したら、Outlookを再起動してください。これで、新しいメールを受信すると自動的に指定したフォルダに保存されるようになります。実際に試してみると、その便利さを実感できると思います。
よくある質問や疑問
Q1: マクロがうまく動作しません。どうすれば良いですか？
まず、VBAマクロが有効になっているか確認してください。Outlookのセキュリティ設定でマクロが無効になっている場合、マクロは動作しません。また、コード内のSAVE_PATHが正しく設定されているかも確認してください。
Q2: 保存されたMSGファイルを開くにはどうすれば良いですか？
保存されたMSGファイルは、Outlookで開くことができます。ファイルをダブルクリックするだけで、元のメールと同じように表示されます。
まとめ
今回は、OutlookのメールをVBAを使ってMSG形式で自動保存する方法をご紹介しました。最初は少し難しく感じるかもしれませんが、一度設定してしまえば、日々の業務がとても楽になります。ぜひ試してみてください。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント