Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano tanggalin ang tiyak na uri ng mga attachment mula sa mga email sa Outlook?

Sinubukan mo na bang alisin ang mga attachment sa maraming napiling mga email sa pamamagitan ng uri ng file sa Outlook? Tulad ng, pag-aalis ng lahat ng mga file ng docx o png attachment mula sa mga napiling email. Paano mo malutas ang trabaho na ito sa Outlook?

Alisin ang partikular na uri ng mga attachment mula sa mga email na may VBA code


Alisin ang partikular na uri ng mga attachment mula sa mga email na may VBA code

Upang alisin ang partikular na uri ng mga attachment mula sa napiling mga email, ang sumusunod na code ng VBA ay maaaring gawin sa iyo ng isang pabor, mangyaring gawin ito:

1. Piliin ang mga email na nais mong alisin ang kanilang partikular na uri ng mga kalakip sa listahan ng mga mailing.

2. I-hold ang ALT + F11 key upang buksan ang Microsoft Visual Basic para sa Mga Application window.

3. Pagkatapos, mag-click Isingit > Module, kopyahin at i-paste ang code sa ibaba sa binuksan na blangko module, tingnan ang screenshot:

VBA code: Alisin ang partikular na uri ng mga attachment mula sa mga 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. At pagkatapos ay pa rin sa Microsoft Visual Basic para sa Mga Application window, i-click ang Kagamitan > Mga sanggunian pumunta sa Mga sanggunian-Project1 dialog box, at suriin Microsoft Scripting Runtime pagpipilian mula sa Magagamit na Mga Sanggunian kahon ng listahan, tingnan ang screenshot:

doc alisin maglakip sa pamamagitan ng uri 1

5. Pagkatapos ay mag-click OK upang isara ang dialog, ngayon, pindutin F5 susi upang patakbuhin ang code na ito, at isang prompt na kahon ay pop out, mangyaring ipasok ang uri ng attachment na nais mong alisin, tingnan ang screenshot:

doc alisin maglakip sa pamamagitan ng uri 2

6. I-click ang OK, at ang lahat ng mga attachment sa partikular na uri na tinukoy mo ay tinanggal nang sabay-sabay, tingnan ang screenshot:

doc alisin maglakip sa pamamagitan ng uri 3



Kutools para sa Outlook

Higit sa 100 Advanced na Mga Function para sa Outlook 2010, 2013, 2016, 2019 at 365

screen shot kutools para sa pananaw maliit na maliit para sa banner 201812

Higit pang mga Tampok | Libreng pag-download | Tanging $ 39.00 para sa daan-daang mga pag-andar

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.