Outlookで電子メールを開かずに添付ファイルを保存するにはどうすればよいですか?
受信した電子メールの添付ファイルをコンピュータのディスクに保存する必要がある場合があります。 電子メールメッセージの添付ファイルまたはすべての添付ファイルを保存するのは簡単ですが、一度に複数の電子メールの添付ファイルを保存するにはどうすればよいですか? 通常、メールを繰り返し開いて添付ファイルを保存する必要があります。 繰り返しの操作を取り除くためのトリックはありますか? ここで、このチュートリアルのメソッドが役立ちます。
VBAコードで開かずに、XNUMXつ以上の電子メールの添付ファイルを保存する
すばらしいツールで開かずに、XNUMXつ以上のメールの添付ファイルを保存する
VBAコードで開かずに、XNUMXつ以上の電子メールの添付ファイルを保存する
以下のVBAコードは、Outlookで電子メールを開かなくても、XNUMXつ以上の電子メールの添付ファイルを同時に保存するのに役立ちます。 次のようにしてください。
1.添付ファイルを保存するXNUMXつまたは複数の電子メールを選択し、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
2.を展開します MicrosoftOutlookオブジェクト フォルダ、ダブルクリック このOutlookSession を開く Code ウィンドウをクリックし、以下のVBAコードをその中にコピーします。
VBAコード:メールを開かずに添付ファイルを保存する
Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xSavePath = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
Set xAttachments = xMailItem.Attachments
xCount = xAttachments.Count
xOriginalFiles = ""
If xCount > 0 Then
For i = xCount To 1 Step -1
Set xAttachment = xAttachments.Item(i)
If IsEmbeddedAttachment(xAttachment) = False Then
xFileName = xSavePath & xAttachment.FileName
xAttachment.SaveAsFile xFileName
xAttachment.Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
Else
xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
End If
End If
Next i
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
End If
xMailItem.Save
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub
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
4。 プレス F5 コードを実行するためのキー。 次に、 BrowseForFolder ウィンドウがポップアップします。添付ファイルを保存するフォルダを選択して、をクリックしてください。 OK
次に、選択した電子メールのすべての添付ファイルが、選択したフォルダーにすぐに保存されます。
注: すべての添付ファイルは電子メールから切り離され、対応する保存パスのリンクが電子メールの本文に保持されます。
すばらしいツールで開かずに、XNUMXつ以上のメールの添付ファイルを保存する
VBAの初心者の場合は、このセクションの方法が適しています。
ここでお勧めします すべての添付ファイルを保存 のユーティリティ Kutools for Outlook あなたのために。 選択した電子メールから切り離さずに添付ファイルを保存したいだけの場合は、[すべての添付ファイルを保存]機能を使用すると簡単に完了できます。 次のようにしてください。
Outlook用のKutoolsを適用する前に、 ダウンロードしてインストールする 最初に。
1.保存する添付ファイルを含むメールを選択し、をクリックします クツール > アタッチメントツール > すべてを救う.
2。 の中に [設定の保存] ダイアログボックスでは、次のことを行う必要があります。
- 2.1) 添付ファイルをこのフォルダに保存します セクションで、添付ファイルを保存するフォルダを選択します。
- 2.2) 以下のスタイルで添付ファイルを保存します ボックスは、添付ファイルを保存するためにcertianスタイルでサブフォルダーを作成するか、保存された添付ファイルの名前をcertianスタイルで変更するためのオプションです。
- 2.3)をクリック OK 選択したメールのすべての添付ファイルの保存を開始します。
ヒント:上記の設定では、すべての添付ファイルが指定されたフォルダに保存されます。 ファイル名に証明書の単語「invoice」が含まれるPDFファイルのみを保存するなど、一部の証明書の添付ファイルのみを保存する場合は、次のようにフィルター条件を構成できます。
- クリック 詳細オプション 展開するボタン フィルター条件s;
- 必要に応じて条件を指定してください。
ヒント: ここで私はチェックします 添付ファイル名 [含む]ボックスをクリックし、テキストボックスに「請求書」と入力して、[ アタッチメントタイプ ボックスに「.pdf」と入力します。
3.次のポップアップダイアログボックスで、をクリックします 有り 続行します。
次に、選択した電子メールの添付ファイルが、指定したフォルダーに一度に保存されます。
ヒント:選択した電子メールから添付ファイルを切り離し、電子メール本文に添付ファイルのハイパーリンクのみを残す場合、 すべての添付ファイルを切り離します 機能が役立ちます。
このユーティリティの無料トライアル(60日)が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。
関連記事
Outlookから特定のフォルダに添付ファイルを自動的にダウンロード/保存します
一般的に、Outlookで[添付ファイル]> [すべての添付ファイルを保存]をクリックすると、XNUMXつの電子メールのすべての添付ファイルを保存できます。 しかし、受信したすべての電子メールと受信した電子メールのすべての添付ファイルを保存する必要がある場合、理想的なものはありますか? この記事では、Outlookから特定のフォルダーに添付ファイルを自動的にダウンロードするXNUMXつのソリューションを紹介します。
Outlookで返信するときに添付ファイルを保持する
Microsoft Outlookで電子メールメッセージを転送する場合、この電子メールメッセージの元の添付ファイルは転送されたメッセージに残ります。 ただし、電子メールメッセージに返信する場合、元の添付ファイルは新しい返信メッセージに添付されません。 ここでは、MicrosoftOutlookで返信するときに元の添付ファイルを保持するためのいくつかの秘訣を紹介します。
Outlookの添付ファイル(コンテンツ)内の単語を検索する
Outlookの[インスタント検索]ボックスにキーワードを入力すると、メールの件名、本文、添付ファイルなどのキーワードが検索されます。しかし、Outlookでのみ添付ファイルのコンテンツのキーワードを検索する必要があります。 この記事では、Outlookの添付ファイルコンテンツ内の単語を簡単に検索するための詳細な手順を示します。
最高のオフィス生産性向上ツール
Kutools for Outlook - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。