複数の電子メールから Outlook の添付ファイルをローカル フォルダーにダウンロードする方法
1 つの電子メールから添付ファイルをダウンロードするのは非常に簡単です。ほとんどのクライアントは ZIP ファイルをダウンロードする方法を提供しています。ただし、複数の電子メールから Outlook の添付ファイルを抽出またはダウンロードする場合は注意が必要です。この機能はオンラインまたはオフラインのクライアントによって事前に提供されていないため、これを実装するためのスクリプトとツールを見つける必要があります。
Outlook で複数のメールから添付ファイルをダウンロードする方法
これらの方法のいずれかを使用して添付ファイルをダウンロードできます。これには VB スクリプトが必要となるため、アカウントに十分な権限があることを確認してください。
- NirSoft OutlookAttachView
- カスタム VB スクリプト
各ツールには独自の長所と短所があります。どれを使用するかを選択する前に、それらについてよく知ってください。
1] NirSoft OutlookAttachView
Microsoft Office バージョンの Outlook を使用して電子メールを受信している場合は、OutlookAttachView という無料ソフトウェアを使用してすべての添付ファイルをダウンロードできます。2003 年以来、すべての種類の Outlook で動作していますが、明示的な Outlook はサポートされていません。
まず、ソフトウェアをダウンロードし (Outlook の 64 ビット バージョンを使用している場合は 64 ビット バージョンを入手)、ZIP ファイルを解凍して、OutlookAttachView.exe を開きます。
メールボックスのスキャン オプションが開きます。どの添付ファイルをスキャンするかを指定できます。特に、オプションは次のもので構成されます。
- どの Outlook プロファイルをスキャンするか
- 過去 X 日間に作成されたメッセージをスキャンします
- 特定の種類のドキュメントを除外する
- 特定の人からのメッセージをスキャンする
- 特定のテキストコンテンツを含む添付ファイルをスキャンする
添付ファイルを抽出するには、次の手順に従います。
- ソフトウェアをインストールした後、受信トレイ内のすべての添付ファイルを保存したい場合は、すべてをデフォルトのままにしておきます。ソフトウェアをセットアップします。スキャンを開始する準備ができたら、「OK」をクリックします。
- スキャンは高速です。ただし、大量のメールのアーカイブを受信した場合は、明らかに時間がかかります。残念ながら、スキャンには進行状況バーが表示されないため、どこまで進んでいるのかがわかりません。そのため、バックグラウンドで実行したままにし、後で戻って完了したかどうかを確認することをお勧めします。
- スキャンが完了すると、ファイル名、ファイルの長さ、拡張子などのエントリを示す列を含むすべての添付ファイルをプレビューおよび表示できるようになります。
- 特定の添付ファイルを選択するには、Ctrl キーを押しながら各行を順番に左クリックします。または、Ctrl + A を押して、すべての添付ファイルを強調表示 (選択) します。
- 次に、「ファイル」メニューをクリックし、「選択した添付ファイルのコピー先」をクリックします(F4 キーを押します)。添付ファイルをエクスポートする場所とドキュメント名の形式を指定できます。準備ができたら、「OK」をクリックします。
- 選択したすべての添付ファイルをターゲット フォルダーにダウンロードまたは保存します。
ただし、メールから削除することはできないため、必要に応じて Outlook 経由でアクセスすることもできます。
2] VBスクリプトを使用する
この セグメントでは、役立つVBAコードをウォークスルーで示します 。 さまざまな電子メールのすべての添付ファイルを 選択した フォルダー に同時に保存します。
- まず、 ローカル ドライブに添付ファイルを保存するフォルダーを作成する必要があります。ファイル エクスプローラーと既知の場所を使用してフォルダーを作成し、「添付ファイル」という名前を付けます。
- 添付ファイルをダウンロードする電子メールを選択し、 Alt+F11 を押して Microsoft Visual Basic プログラム ウィンドウを開きます。
- 「挿入 」>「モジュール」をクリックして「モジュール」ウィンドウを開き、次のいずれかのVBA コードをウィンドウにコピーします。
- F5 キーを押すか、メニューを使用してコードを実行すると、選択した電子メールのすべての添付ファイルが添付ファイル フォルダーにダウンロードまたはコピーされます。
VBAコード
Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>"& "<a href='file://"& xFilePath & "'>"& xFilePath & "</a>"
End If
End If
Next i
If xSaveFiles <> ""Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = vbCrLf & "The file(s) were saved to "& xSaveFiles & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "<p>"& "The file(s) were saved to "& xSaveFiles & "</p>"& xMailItem.HTMLBody
End If
End If
xMailItem.Save
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\"& xFso.GetBaseName(GFilepath) & ""& GCount & "."+ xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> ""Then
xHtml = xItem.HTMLBody
xID = "cid:"& xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
ここからコードをコピーして貼り付けることもできます。
Gmailで複数のメールの添付ファイルをダウンロードする方法
SendPulse の Gmail 用無料の Save Emails and Attachments アドオンを使用すると、添付ファイルを Google にエクスポートできます。この方法の特徴は、新しい添付ファイルの検索を自動的に開始することです。つまり、この方法を手動で実行することを考えるべきではありません。1 回限りのエクスポートであれば、必要なだけであれば正しく機能します。
ノート。このサービスはあなたの Gmail アカウントにアクセスできるため、接続する場合は十分な情報に基づいて選択してください。
このツールを使用するには指示に従ってください
- アドオン Web ページに移動し、「インストール」をクリックします。
- Google アカウントを選択し、「許可」をクリックして完了します。
- Google スプレッドシートに移動し、新しい表を作成します。
- [アドオン] > [メールと添付ファイルの保存] > [サイドバーを開く] にアクセスします。
- スキャンする Gmail のラベルを設定し、メールの送信者、送信者、日付範囲より前などの他のフィルターを指定します (少なくともこれらのフィルターを設定する必要があります)。
- 「アップロード設定」をクリックして必要に応じて設定し、「フォルダーの選択」をクリックして添付ファイルを保存するドライブ上のフォルダーを選択します。
- 完了したら、「ルールの保存」 > 「実行」をクリックします。このアドオンはバックグラウンドで自動実行され、新しいメールが到着すると更新されます。
添付ファイルをドライブ内に保存できます。あるいは、ドライブを開いてフォルダーを右クリックし、「ロード」を選択してローカル レプリカを保存します。その後、ディスクからフォルダーを削除して、クラウド ストレージを解放できます。
任意のメールサーバー上の複数のメールから添付ファイルをダウンロードする方法
Mail Attachment Downloader は、Outlook、Gmail、AOL、Yahoo、その他のメール サーバーなどの多くの電子メール サービスで動作するため、手頃な価格のオプションです。個人利用の場合も無料です。
欠点は、有料版で入手できるアドオンがいくつかあることです。これには、いくつかのフィルターを練習したり、複数のアカウントから同時にアップロードしたりする機能が含まれます。完全な違いはソフトウェア ライセンス ページで確認できます。
ノート。ここに電子メール認証情報を入力する必要があります。したがって、完全な自信を持って、情報に基づいた選択を行ってください。
複数のメールから添付ファイルを抽出する最も簡単な手順を見てみましょう。
- ZIP をダウンロードして解凍し、中にある EXE インストーラーを実行します。接続したら、メール添付ダウンローダーを起動します。
- 「設定」をクリックします。ここでメールサーバー (電子メールを送信した人) を選択し、その後アカウントとパスワードを入力します。重要な情報を含む、下部の黒いバーを必ずお読みください。
- 準備ができたら、「接続のテスト」をクリックします。これが機能しない場合は、必要に応じて POP/IMAP プロトコルが有効になっていること、アカウントのチャレンジとパスワードが正しいことを確認してください。間違いがなければ、「保存」をクリックします。
- 添付ファイルを独自のフォルダーに出力したい場合は、保存場所を変更してください。タブを使用してこのシステムをさらにカスタマイズできます。たとえば、フォルダー/ドキュメントでは、選択したフォルダーに検索を制限できます。検索時に日付の範囲を指定できます。フィルターでは、送信者または問題文字列で構成される質問を指定できます。
- 準備ができたら、「接続してダウンロード」をクリックします。選択したフォルダーに添付ファイルが保存されます。
公式サイトからダウンロードしてください。このソフトウェアは個人使用のために無料版を提供します。
最後の言葉
複数の電子メールから複数の添付ファイルをダウンロードする機能は、すべての電子メール クライアントに搭載される必要があります。私はスクリプトを使用して、月末に毎日クライアントから受け取る PDF ドキュメントをダウンロードします。これにより、全員のコピーが確保され、個別にダウンロードする時間を無駄にすることがなくなります。
コメントを残す