Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menghapus jenis lampiran khusus dari e-mel dalam Outlook?

Pernahkah anda cuba mengeluarkan lampiran dalam beberapa e-mel terpilih mengikut jenis fail dalam Outlook? Seperti, menghapus semua fail lampiran docx atau png dari e-mel yang dipilih. Bagaimana anda boleh menyelesaikan tugas ini di Outlook?

Buang jenis lampiran khusus dari e-mel dengan kod VBA


Buang jenis lampiran khusus dari e-mel dengan kod VBA

Untuk mengalih keluar jenis lampiran khusus dari e-mel yang dipilih, kod VBA yang berikut boleh memberi anda nikmat, sila lakukan seperti ini:

1. Pilih e-mel yang anda ingin alih keluar jenis lampiran khusus mereka dalam senarai mel.

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

3. Kemudian, klik Memasukkan > Modul, salin dan tampal di bawah kod ke modul kosong dibuka, lihat tangkapan skrin:

Kod VBA: Buang jenis lampiran tertentu dari e-mel:

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. Dan kemudian masih dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Alatan > Rujukan untuk pergi ke Rujukan-Project1 kotak dialog, dan semak Microsoft Scripting Runtime Pilihan dari Rujukan yang boleh didapati kotak senarai, lihat tangkapan skrin:

doc remove attach by type 1

5. Kemudian klik OK untuk menutup dialog, sekarang, tekan F5 kunci untuk menjalankan kod ini, dan kotak segera muncul, sila masukkan jenis lampiran yang ingin anda keluarkan, lihat tangkapan skrin:

doc remove attach by type 2

6. Klik OK, dan semua lampiran dengan jenis khusus yang anda tentukan telah dipadamkan sekaligus, lihat tangkapan skrin:

doc remove attach by type 3



Kutools untuk Outlook

Lebih daripada Fungsi Lanjutan 100 untuk Outlook 2010, 2013, 2016, 2019 dan 365

kutools pukulan skrin untuk outlook kecil untuk sepanduk 201812

Lebih Ciri-ciri | Muat turun percuma | Hanya $ 39.00 untuk beratus-ratus fungsi

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.