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

or

Outlookで電子メールを開かずに添付ファイルを保存するにはどうすればよいですか?

受信した電子メールの添付ファイルをコンピュータのディスクに保存する必要がある場合があります。 電子メールメッセージの添付ファイルまたはすべての添付ファイルを保存するのは簡単ですが、一度に複数の電子メールの添付ファイルを保存するにはどうすればよいですか? 通常、メールを繰り返し開いて添付ファイルを保存する必要があります。 繰り返しの操作を取り除くためのトリックはありますか? ここで、このチュートリアルのメソッドが役立ちます。

VBAコードで開かずに、XNUMXつ以上の電子メールの添付ファイルを保存する
すばらしいツールで開かずに、XNUMXつ以上のメールの添付ファイルを保存する


VBAコードで開かずに、XNUMXつ以上の電子メールの添付ファイルを保存する

以下のVBAコードは、Outlookで電子メールを開かなくても、XNUMXつ以上の電子メールの添付ファイルを同時に保存するのに役立ちます。 次のようにしてください。

1.添付ファイルを保存するXNUMXつまたは複数の電子メールを選択し、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2.を展開します MicrosoftOutlookオブジェクト フォルダ、ダブルクリック ThisOutlookSession を開く コード ウィンドウをクリックし、以下の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の初心者の場合は、このセクションの方法が適しています。

ここでお勧めします すべての添付ファイルを保存 のユーティリティ Outlook用Kutools あなたのために。 選択した電子メールから切り離さずに添付ファイルを保存したいだけの場合は、[すべての添付ファイルを保存]機能を使用すると簡単に完了できます。 次のようにしてください。
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-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.