複数の電子メールのすべての添付ファイルをOutlookのフォルダーに保存するにはどうすればよいですか?
Outlookに組み込まれている[すべての添付ファイルを保存]機能を使用すると、電子メールからすべての添付ファイルを簡単に保存できます。 ただし、複数の電子メールのすべての添付ファイルを一度に保存する場合は、直接的な機能はありません。 すべての添付ファイルがそれらの電子メールから保存されるまで、各電子メールにすべての添付ファイルを保存機能を繰り返し適用する必要があります。 それは時間がかかります。 この記事では、Outlookで複数の電子メールのすべての添付ファイルを特定のフォルダーに簡単に一括保存するためのXNUMXつの方法を紹介します。
複数の電子メールのすべての添付ファイルをVBAコードでフォルダーに保存します
素晴らしいツールを使用して、複数の電子メールからフォルダにすべての添付ファイルを保存するための数回のクリック
複数の電子メールのすべての添付ファイルをVBAコードでフォルダーに保存します
このセクションでは、ステップバイステップガイドのVBAコードを示し、複数の電子メールのすべての添付ファイルを一度に特定のフォルダーにすばやく保存するのに役立ちます。 次のようにしてください。
1.まず、添付ファイルをコンピューターに保存するためのフォルダーを作成する必要があります。
入る 資料 フォルダを作成し、という名前のフォルダを作成します 「添付ファイル」。 スクリーンショットを参照してください:
2.添付ファイルを保存するメールを選択し、を押します 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
3。 クリック インセット > モジュール を開く モジュール ウィンドウをクリックし、次のVBAコードのいずれかをウィンドウにコピーします。
VBAコード1:複数の電子メールからの添付ファイルを一括保存します(まったく同じ名前の添付ファイルを直接保存します)
ヒント:このコードは、ファイル名の後に数字1、2、3 ...を追加することにより、まったく同じ名前の添付ファイルを保存します。
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
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
VBAコード2:複数の電子メールからの添付ファイルを一括保存(重複を確認)
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
Dim xYesNo As Integer
Dim xFlag As Boolean
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
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
xFilePath = xFolderPath & xAttachments.Item(i).FileName
xFlag = True
If VBA.Dir(xFilePath, 16) <> Empty Then
xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
If xYesNo = vbNo Then xFlag = False
End If
If xFlag = True 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
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
ノート:
5。 プレス F5 コードを実行するためのキー。
次に、選択した電子メールのすべての添付ファイルが、手順1で作成したフォルダーに保存されます。
注意: あるかもしれません Microsoft Outlookの プロンプトボックスが表示されたら、をクリックしてください 次を許可します。 先に進むためのボタン。
すばらしいツールを使用して、複数の電子メールのすべての添付ファイルをフォルダに保存します
VBAの初心者の場合は、ここで強くお勧めします すべての添付ファイルを保存 の有用性 Outook用のKutools あなたのために。 このユーティリティを使用すると、Outlookで数回クリックするだけで、複数の電子メールのすべての添付ファイルを一度にすばやく保存できます。
機能を適用する前に、 最初にKutoolsforOutlookをダウンロードしてインストールします.
1.保存する添付ファイルを含むメールを選択します。
ヒント: を押し続けると、隣接していない複数のメールを選択できます Ctrlキー キーを押して、XNUMXつずつ選択します。
または、を押したままにして、隣接する複数のメールを選択します シフト キーを押して、最初のメールと最後のメールを選択します。
2。 クリック クツール >アタッチメントツール > すべてを救う。 スクリーンショットを参照してください:
3。 の中に [設定の保存] ダイアログで、 ボタンをクリックして添付ファイルを保存するフォルダを選択し、[ OK
3。 クリック OK 次のポップアップダイアログボックスでXNUMX回、選択した電子メールのすべての添付ファイルが一度に指定したフォルダに保存されます。
注意:
- 1.メールに基づいて別のフォルダに添付ファイルを保存する場合は、 次のスタイルでサブフォルダーを作成します ボックスをクリックし、ドロップダウンからフォルダスタイルを選択します。
- 2.すべての添付ファイルを保存する以外に、特定の条件で添付ファイルを保存できます。 たとえば、ファイル名に「請求書」という単語が含まれているPDF添付ファイルのみを保存する場合は、[ 詳細オプション ボタンをクリックして条件を展開し、次に示すように構成します。
- 3.電子メールの到着時に添付ファイルを自動的に保存する場合は、 添付ファイルの自動保存 機能が役立ちます。
- 4.選択した電子メールから添付ファイルを直接切り離すには、 すべての添付ファイルを切り離します の特徴 Outlook用Kutools あなたに好意を与えることができます。
このユーティリティの無料トライアル(60日)が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。
関連記事
Outlookの電子メールメッセージの本文に添付ファイルを挿入します
通常、添付ファイルは、作成する電子メールの[添付ファイル]フィールドに表示されます。 このチュートリアルでは、Outlookの電子メール本文に添付ファイルを簡単に挿入するのに役立つ方法を提供します。
Outlookから特定のフォルダに添付ファイルを自動的にダウンロード/保存します
一般的に、Outlookで[添付ファイル]> [すべての添付ファイルを保存]をクリックすると、XNUMXつの電子メールのすべての添付ファイルを保存できます。 しかし、受信したすべての電子メールと受信した電子メールのすべての添付ファイルを保存する必要がある場合、理想的なものはありますか? この記事では、Outlookから特定のフォルダーに添付ファイルを自動的にダウンロードするXNUMXつのソリューションを紹介します。
OutlookでXNUMXつまたは複数の電子メールにすべての添付ファイルを印刷する
ご存知のように、MicrosoftOutlookで[ファイル]> [印刷]をクリックすると、ヘッダーや本文などの電子メールコンテンツのみが印刷され、添付ファイルは印刷されません。 ここでは、MicrosoftOutlookで選択した電子メールのすべての添付ファイルを簡単に印刷する方法を紹介します。
Outlookの添付ファイル(コンテンツ)内の単語を検索する
Outlookの[インスタント検索]ボックスにキーワードを入力すると、メールの件名、本文、添付ファイルなどのキーワードが検索されます。しかし、Outlookでのみ添付ファイルのコンテンツのキーワードを検索する必要があります。 この記事では、Outlookの添付ファイルコンテンツ内の単語を簡単に検索するための詳細な手順を示します。
Outlookで返信するときに添付ファイルを保持する
Microsoft Outlookで電子メールメッセージを転送する場合、この電子メールメッセージの元の添付ファイルは転送されたメッセージに残ります。 ただし、電子メールメッセージに返信する場合、元の添付ファイルは新しい返信メッセージに添付されません。 ここでは、MicrosoftOutlookで返信するときに元の添付ファイルを保持するためのいくつかの秘訣を紹介します。
最高のオフィス生産性向上ツール
Outlook用Kutools - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。