複数のメールから一度に添付ファイルを保存したい場合、VBA(Visual Basic for Applications)を使う方法があります。これは少し技術的ですが、手順を追っていけば初心者の方でもできるようになります。
Outlookを開き、「Alt」+「F11」キーを押してVBAエディタを開きます。
「挿入」>「標準モジュール」を選択し、新しいモジュールを作成します。
以下のコードをモジュールに貼り付けます。
Sub SaveAttachments()
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xFolderPath As String
xFolderPath = "C:\添付ファイル\" ' 保存先のフォルダパスを指定
If Len(Dir(xFolderPath, vbDirectory)) = 0 Then MkDir xFolderPath
Set xSelection = Application.ActiveExplorer.Selection
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
For i = 1 To xAttachments.Count
xAttachments.Item(i).SaveAsFile xFolderPath & xAttachments.Item(i).FileName
Next
Next
End Sub
コメント