Outlookで一度に多くのメールの添付ファイルを保存しますか？

誰かが1通の添付ファイルを添付して200通のメールを一晩送ってきました。はぁ

次の3晩は毎晩さらに200を期待しています（メールはサーバーから送られてくるので、バッチ処理を依頼することはできません）。

添付ファイルには一意のファイル名が付いているので、メールのグループ全体から添付ファイルを一度に保存する簡単な方法はありますか？

各メールを個別に開き、右クリック、保存、すすぎ、繰り返しをする必要はありません...

私はVBAに堪能で、Excelマクロを非常に快適に作成できるので、すべてのメッセージで特定のフォルダを横断し、それぞれの添付ファイルを保存するのは比較的簡単であると想像できますが、Outlookマクロを作成したことはありませんオブジェクト階層。

NirSoftのOutlookAttachViewは、コマンドラインからでも簡単にこれを行うことができます！

OutlookAttachViewは、Outlookに保存されているすべてのメッセージをスキャンし、見つかったすべての添付ファイルのリストを表示します。1つまたは複数の添付ファイルを簡単に選択して、目的のフォルダーにすべて保存することができます。また、メールボックスのディスク容量を使いすぎる不要な大きな添付ファイルを削除することもできます。添付ファイルのリストをxml / html / text / csvファイルに保存することもできます。

OutlookAttachViewはフリーウェアです。

Outlook Attachment Removerアドイン：

添付ファイルを保存および抽出し、Outlookファイルのサイズを小さくするための無料のOutlookアドイン。使いやすい。豊富な機能。

これにいくつかのオプションがあります。

Sue Mosherのサイトhttp://slipstick.comは、Outlookの素晴らしいリソースです。彼女はMicrosoft MVPでもあります。

：あなたはそこにコーダーのためのハードドライブに保存添付ファイルを交互にし、 VBAを使用して保存し、添付ファイルを開くと。

次のコードは、Outlook 2000以降で動作します。選択したメッセージの添付ファイルを保存しますが、メッセージから添付ファイルを削除しません。

…

このページのコードをコピーしてThisOutlookSessionプロジェクトに貼り付けます。

Outlookで、Alt + F11を押してVBAエディターを開き、Microsoft Outlookオブジェクトを展開し、ThisOutlookSessionをダブルクリックして編集ペインで開き、Ctrl + Vでコードを貼り付けます。

これを使用するには、最初にOLAttachmentsという名前のマイドキュメントの下にフォルダーを作成する必要があります（コードはフォルダーを作成しません）。次に、1つ以上のメッセージを選択し、マクロを実行して添付ファイルを保存します。マクロを有効にする前、またはマクロに署名する前に警告するようにマクロセキュリティを設定する必要があります。コードを編集して、添付ファイルが保存されるフォルダー名またはパスを変更できます。

Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String

    ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next

    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")

    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist
' You can change this to another folder name of your choice

    ' Set the Attachment folder.
    strFolderpath = strFolderpath & "\OLAttachments\"

    ' Check each selected item for attachments. 
    For Each objMsg In objSelection

    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count

    If lngCount > 0 Then

    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.

    For i = lngCount To 1 Step -1

    ' Get the file name.
    strFile = objAttachments.Item(i).FileName

    ' Combine with the path to the Temp folder.
    strFile = strFolderpath & strFile

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

    Next i
    End If

    Next

ExitSub:

Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub

そして、プログラムしたくない場合：Outlook用の添付ファイル管理ツール

私は私に30通のメールでの分割RARファイルを送信するために素敵だと思った人からの電子メールで爆撃された後、私は正常に使用してきたMicrosoftから発行され、このVBAスクリプトを呼ばれますmAttachmentSaver。

最初に、スクリプトを含むアーカイブをダウンロードする必要があります。

マクロが有効になっていることが重要です。Outlook 2010では、[ファイル]»[オプション]»[セキュリティセンター]»[セキュリティセンターの設定]»[マクロの設定]»[すべてのマクロを有効にする]»[OK]»[OK]に移動します。次に、Outlookを再起動する必要があります。以前のバージョンでは、[ ツール]»[マクロ]»[セキュリティ…]にあります。

次に、TechCenterの記事に記載されている手順に従います。

• を押しAlt+F11てOutlookでVBEを開きます。

• mAttachmentSaver.basファイルをプロジェクトエクスプローラー（Ctrl+R表示されない場合はを押します）または[ファイル] >> [ファイルのインポート...]（Ctrl+M）にドラッグします。

  ExecuteSavingマクロを実行して添付ファイルを保存します。

• Outlook UIに戻り、を押しAlt+F8てマクロウィンドウを開きます。

• ExecuteSaving名前リストで選択し、[ 実行 ]ボタンをクリックします（このマクロを実行する前に、Outlookアイテムを選択することを忘れないでください）。

• [フォルダーの参照 ]ダイアログボックスから添付ファイルを保存する特定のフォルダーを選択し、[ OK ]ボタンをクリックします。