クッキーは、私たちは私たちのサービスを提供するのに役立ちます。 当社のサービスを使用することで、クッキーの我々の使用に同意するものとします。
ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
登録
x

or

Outlookのメールから特定の種類の添付ファイルを削除するにはどうすればよいですか?

選択した複数の電子メールの添付ファイルをOutlookのファイル形式で削除しようとしたことがありますか? 選択した電子メールからすべてのdocxまたはpng添付ファイルを削除するなど。 どのようにOutlookでこの仕事を解決することができますか?

VBAコードを含むメールから特定の種類の添付ファイルを削除する


VBAコードを含むメールから特定の種類の添付ファイルを削除する

選択した電子メールから特定の種類の添付ファイルを削除するには、次のVBAコードを使用してください。

1。 メーリングリストの特定の種類の添付ファイルを削除するメールを選択します。

2。 押さえつける Alt + F11 キーを押して アプリケーション用Microsoft Visual Basic 窓。

3。 次に、をクリックします。 インセット > モジュール開いている空白のモジュールに以下のコードをコピー&ペーストしてください。screenshot:

VBAコード:電子メールから特定の種類の添付ファイルを削除する:

Sub DeleteSpecificTypeOfAttachments()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFileType As String
Dim xType As String
Dim xFSO As Scripting.FileSystemObject
Dim I As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xFSO = New Scripting.FileSystemObject
xType = ""
xType = InputBox("Attachment Type:", "Kutools for Outlook", xType, 8)
If Len(Trim(xType)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
       If xMailItem.Attachments.Count > 0 Then
            For I = xMailItem.Attachments.Count To 1 Step -1
                Set xAttachment = xMailItem.Attachments.Item(I)
                xFileType = xFSO.GetExtensionName(xAttachment.FileName)
                If InStr(xFileType, Trim(xType)) > 0 Then
                    xAttachment.Delete
                End If
            Next I
            xMailItem.Save
        End If
    End If
Next
Set xMailItem = Nothing
Set xFSO = Nothing
End Sub

4。 そして、まだ アプリケーション用Microsoft Visual Basic ウィンドウ、クリック ツール > リファレンス に移動します 参照 - Project1 ダイアログボックス、およびチェック Microsoft Scripting Runtime オプションから 利用可能な参考文献 リストボックス、スクリーンショットを参照してください:

doc 1で添付ファイルを削除する

5。 次に、をクリックします OK ダイアログを閉じるには、今すぐ F5 このコードを実行するためのキーで、プロンプトボックスが表示されたら、削除する添付ファイルの種類を入力してください。スクリーンショットを参照してください:

doc 2で添付ファイルを削除する

6に設定します。 OK をクリックします。 OKあなたが定義した特定の種類の添付ファイルはすべて一度に削除されました。スクリーンショットを参照してください:

doc 3で添付ファイルを削除する



Kutools for Outlook

Outlook用100拡張機能2010、2013、2016、2019、および365

バナー201812のための小さい見通しのためのスクリーンショットkutools

その他の機能 | 無料ダウンロード | 何百もの関数に対して$ 39.00のみ

Say something here...
symbols left.
You are guest ( Sign Up? )
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.