Cookies membantu kami memberikan layanan kami. Dengan menggunakan layanan kami, Anda setuju untuk kami menggunakan cookies.
Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

Bagaimana cara menghapus jenis lampiran tertentu dari email di Outlook?

Pernahkah Anda mencoba menghapus lampiran di beberapa email yang dipilih berdasarkan jenis file di Outlook? Seperti, menghapus semua file lampiran docx atau png dari email yang dipilih. Bagaimana Anda bisa menyelesaikan pekerjaan ini di Outlook?

Hapus jenis lampiran tertentu dari email dengan kode VBA


Hapus jenis lampiran tertentu dari email dengan kode VBA

Untuk menghapus jenis lampiran tertentu dari email yang dipilih, kode VBA berikut dapat membantu Anda, harap lakukan karena ini:

1. Pilih email yang Anda inginkan untuk menghapus jenis lampiran khusus mereka di milis.

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

3. Lalu klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang terbuka, lihat screenshot:

Kode VBA: Hapus jenis lampiran tertentu dari email:

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 di dalam Microsoft Visual Basic untuk Aplikasi window, klik alat > Referensi untuk pergi ke Referensi-Project1 kotak dialog, dan cek Microsoft Scripting Runtime pilihan dari Referensi yang Tersedia kotak daftar, lihat tangkapan layar:

doc hapus lampirkan menurut jenis 1

5. Lalu klik OK untuk menutup dialog, sekarang, tekan F5 untuk menjalankan kode ini, dan kotak prompt muncul, masukkan jenis lampiran yang ingin Anda hapus, lihat screenshot:

doc hapus lampirkan menurut jenis 2

6. Klik OK, dan semua lampiran dengan tipe spesifik yang Anda definisikan telah dihapus sekaligus, lihat screenshot:

doc hapus lampirkan menurut jenis 3



Kutools for Outlook

Lebih dari 100 Fungsi Lanjut untuk Outlook 2010, 2013, 2016, 2019 dan 365

tangkapan layar kutools untuk outlook mungil untuk spanduk 201812

Fitur Lebih | Free download | Hanya $ 39.00 untuk ratusan 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.