Cookies bizim xidmətlər təqdim kömək edir. Bizim xidmətlərimizdən istifadə edərək, siz cookies bizim istifadə razıyam.
İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Outlook'dakı e-məktublardan xüsusi növ tipləri necə çıxarmaq olar?

Outlook'ta fayl tipi ilə birdən çox seçilmiş e-poçtda faylları silmək istəmisiniz? Seçdiyiniz e-poçtlardan bütün docx və ya png faylları çıxarmaq kimi. Outlook'ta bu işi necə həll edə bilərsən?

VBA koduyla e-məktublardan xüsusi növ əlavə olun


VBA koduyla e-məktublardan xüsusi növ əlavə olun

Seçilmiş e-məktublardan xüsusi əlavə tipləri aradan qaldırmaq üçün aşağıdakı VBA kodu sizə bir xeyir verə bilər, xahiş edirik bunu edin:

1. E-poçt siyahısında öz növlərini əlavə etmək üçün istədiyiniz e-poçtları seçin.

2. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Sonra basın Taxmaq > Modules, kodu aşağıda açıq modulun surətinə kopyalayın və yapışdırın, ekran görüntüsünə baxın:

VBA kodu: E-poçtlardan xüsusi növ əlavə alın:

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. Və sonra da Proqramlar üçün Microsoft Visual Basic pəncərə basın Tools > References ilə getmək References-Project1 informasiya qutusunu seçin və yoxlayın Microsoft Scripting Runtime seçimdən Mövcud References siyahı qutusuna bax:

doc 1 növü ilə əlavə çıxarın

5. Sonra basın OK Dialoqu bağlamaq üçün, indi, mətbuat F5 bu kodu çalıştırmak üçün açar düyməsini basın və sorğu qutusu çıxdıqda, aradan qaldırılması istədiyiniz əlavə növü daxil edin, ekran görünüşünü baxın:

doc 2 növü ilə əlavə çıxarın

6. Basın OKvə müəyyən etdiyiniz xüsusi növü olan bütün fayllar bir an əvvəl silindi, ekran görünüşünə baxın:

doc 3 növü ilə əlavə çıxarın



Outlook üçün Kutools

100, 2010, 2013, 2016 və 2019 üçün 365 Ətraflı funksiyaları

201812 pankart üçün küçə görünüşü üçün ekran shot kutools

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 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.