Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

Outlookで特定の(Excel)添付ファイルのみを保存するにはどうすればよいですか?

Outlookには、すべての添付ファイルを保存する機能があり、電子メール内のすべての添付ファイルを特定のフォルダーに一度にすばやく保存できます。 ただし、Excelの添付ファイル、Word文書など、特定の種類の添付ファイルのみを電子メールに保存する場合は、それを実現するために何ができますか? ここでは、問題を解決するためのVBAメソッドを提供します。

Outlookで特定の添付ファイルのみを保存する


選択した複数のメールのすべての添付ファイルをフォルダに簡単に保存できます。

とともに すべての添付ファイルを切り離します の有用性 Kutools for Excel、以下のスクリーンショットに示すように、選択した複数の電子メールのすべての添付ファイルをOutlookの指定したフォルダーに簡単に保存できます。

Outlook用Kutools:40を超える便利なOutlookアドインがあり、45日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

Officeタブ-Officeでタブ付きの編集と閲覧を有効にし、作業をはるかに簡単にします...
Kutools for Outlook-100の強力な高度な機能をMicrosoftOutlookにもたらします
  • 自動CC / BCC メール送信時のルールによる。 自動転送 ルールによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
  • BCC警告 -メールアドレスがBCCリストにある場合、すべてに返信しようとするとメッセージを表示します。 添付ファイルがない場合に通知する、その他の機能を思い出させる...
  • すべての添付ファイルで(すべて)返信 メールでの会話。 一度に多くのメールに返信します。 あいさつを自動追加 返信するとき; 件名に日付と時刻を自動追加...
  • アタッチメントツール:自動デタッチ、すべて圧縮、すべての名前変更、すべて自動保存... クイックレポート、選択したメールを数える、 重複するメールと連絡先を削除する...
  • 100以上の高度な機能が あなたの問題のほとんどを解決します Outlook2010-2019および365で。全機能60日間の無料トライアル。

Outlookで特定の添付ファイルのみを保存する

以下のVBAコードは、特定の添付ファイルのみをXNUMXつまたは複数の電子メールで特定のフォルダーに保存するのに役立ちます。 次のようにしてください。

1. Outlookを起動し、メーリングリストで、特定の添付ファイルを保存するXNUMXつまたは複数の電子メールを選択します。

2。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。 開始ウィンドウで、をクリックします インセット > モジュール、次に、以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード:特定の添付ファイルのみをXNUMXつのメールまたは複数のメールでフォルダーに保存します

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3。 クリック 工具 > リファレンス、で 参考資料–プロジェクト ダイアログで、 Microsoftスクリプトランタイム ボックスをクリックして OK ボタン。

4。 プレス F5 コードを実行するためのキー。 飛び出した フォルダを参照する ダイアログボックスで、添付ファイルを保存するフォルダをXNUMXつ選択します。

5.次に、をクリックします OK、 以下では Outlook用Kutools ダイアログボックスで、保存する添付ファイルのファイル拡張子をテキストボックスに入力し、[ OK.

その後、指定した添付ファイルのみが保存されます。

免責事項:

1.異なる種類の添付ファイルを保存する場合は、ファイル拡張子をテキストボックスに入力し、カンマで区切ります。

2.保存後、添付ファイルの保存パスがメッセージ本文に表示されます。 ハイパーリンクを直接クリックすると、添付ファイルを開くことができます。


関連記事:


Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします!

  • 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
  • BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
  • メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
  • 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
  • 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
ショットkutoolsの見通しkutoolsタブ1180x121
ショットkutoolsの見通しkutoolsプラスタブ1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.