パソコンやスマホの操作に不安がある方でも、Outlookのメールに添付されたファイルを一括で保存する方法を、わかりやすくご紹介します。手順を追っていけば、難しい操作は一切ありません。これから一緒にやってみましょう！
はじめになぜOutlook VBAで添付ファイルを一括保存するのか
Outlookのイメージ
日々の業務で、メールに添付されたファイルを手動で保存するのは、時間も手間もかかりますよね。特に、たくさんのメールが届くと、その作業が負担になります。そこで、Outlook VBA（Visual Basic for Applications）を使うと、これらの作業を自動化できるのです。
例えば、毎日届く報告書や請求書など、決まった種類の添付ファイルを自動で保存できれば、作業効率が大幅にアップします。
準備OutlookでVBAを使えるようにする
まずは、OutlookでVBAを使えるように設定しましょう。以下の手順で進めてください。
- Outlookを開きます。
- 「ファイル」メニューから「オプション」を選択します。
- 「リボンのユーザー設定」をクリックし、「開発」タブにチェックを入れて「OK」を押します。
- リボンに「開発」タブが表示されたら、その中の「Visual Basic」をクリックしてVBAエディタを開きます。
これで、VBAを使う準備が整いました。
手順1VBAコードを入力する
次に、実際にVBAコードを入力します。以下のコードをVBAエディタにコピー＆ペーストしてください。
Sub SaveAttachments()
Dim objItem As Object
Dim objAttachment As Object
Dim strPath As String
Dim strFile As String
' 保存先のフォルダを指定
strPath = "C:\Users\ユーザー名\Desktop\保存フォルダ\"
' メールアイテムを取得
Set objItem = Application.ActiveExplorer.Selection.Item(1)
' 添付ファイルがあるか確認
If objItem.Attachments.Count > 0 Then
' 添付ファイルを保存
For Each objAttachment In objItem.Attachments
strFile = strPath & objAttachment.FileName
objAttachment.SaveAsFile strFile
Next objAttachment
MsgBox "添付ファイルを保存しました。"
Else
MsgBox "添付ファイルがありません。"
End If
End Sub
このコードは、選択したメールの添付ファイルを指定したフォルダに保存するものです。
手順2コードを実行する
コードを入力したら、実際に実行してみましょう。
- VBAエディタで「実行」ボタンをクリックします。
- Outlookに戻り、添付ファイルを保存したいメールを選択します。
- 再度、VBAエディタで「実行」ボタンをクリックすると、添付ファイルが指定したフォルダに保存されます。
手順3複数のメールの添付ファイルを一括保存する
複数のメールの添付ファイルを一括で保存したい場合は、以下のコードを使用します。
Sub SaveMultipleAttachments()
Dim objItem As Object
Dim objAttachment As Object
Dim strPath As String
Dim strFile As String
Dim objSelection As Object
Dim i As Integer
' 保存先のフォルダを指定
strPath = "C:\Users\ユーザー名\Desktop\保存フォルダ\"
' 選択したメールを取得
Set objSelection = Application.ActiveExplorer.Selection
' 各メールの添付ファイルを保存
For i = 1 To objSelection.Count
Set objItem = objSelection.Item(i)
If objItem.Attachments.Count > 0 Then
For Each objAttachment In objItem.Attachments
strFile = strPath & objAttachment.FileName
objAttachment.SaveAsFile strFile
Next objAttachment
End If
Next i
MsgBox "選択したメールの添付ファイルを保存しました。"
End Sub
このコードは、選択した複数のメールから添付ファイルを一括で保存するものです。
よくある質問や疑問
Q1: VBAコードを入力する際に注意すべき点はありますか？
はい、VBAコードを入力する際は、以下の点に注意してください。
- コードを正確にコピー＆ペーストしてください。
- 保存先のフォルダパス（strPath）を自分の環境に合わせて変更してください。
- コード内のコメント（’）は実行に影響しませんが、必要に応じて削除できます。
Q2: 添付ファイルが保存されない場合、どのように対処すればよいですか？
添付ファイルが保存されない場合、以下の点を確認してください。
- メールに添付ファイルが含まれているか確認してください。
- 保存先のフォルダパスが正しいか確認してください。
- VBAコードに誤りがないか確認してください。
Q3: 他のフォルダに保存したい場合、どのように設定すればよいですか？
他のフォルダに保存したい場合、以下の手順で設定できます。
- VBAコード内のstrPathの値を変更します。
- 例えば、”C:\Users\ユーザー名\Documents\保存フォルダ\”のように指定します。
- 指定したフォルダが存在しない場合は、事前に作成しておいてください。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
今回は、Outlook VBAを使ってメールの添付ファイルを一括で保存する方法をご紹介しました。手順を追っていけば、難しい操作は一切ありません。ぜひ、実際に試してみてください。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント