パソコンやスマホの操作に不安がある方でも、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保存フォルダ”のように指定します。
- 指定したフォルダが存在しない場合は、事前に作成しておいてください。
まとめ
今回は、Outlook VBAを使ってメールの添付ファイルを一括で保存する方法をご紹介しました。手順を追っていけば、難しい操作は一切ありません。ぜひ、実際に試してみてください。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント