Cuidiú fianáin linn ár seirbhísí a sheachadadh. Trí úsáid a bhaint ár gcuid seirbhísí, aontaíonn tú úsáid a bhainimid as fianáin.
Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas a bhaint cineálacha sonracha ceangaltáin ó ríomhphoist in Outlook?

An ndearna tú riamh ceangaltáin a bhaint as i ríomhphoist iolracha roghnaithe de réir cineál comhaid in Outlook? Mar shampla, na comhaid a bhaineann le docx nó png a bhaint as ríomhphoist roghnaithe. Conas a d'fhéadfá an post seo a réiteach in Outlook?

Bain cineál sonrach na gceangaltán ó ríomhphoist le cód VBA


Bain cineál sonrach na gceangaltán ó ríomhphoist le cód VBA

Chun cineál áirithe ceangaltáin a bhaint as ríomhphoist roghnaithe, is féidir leis an gcód VBA seo a leanas a dhéanamh leat, déan mar seo:

1. Roghnaigh na ríomhphoist ar mhaith leat a gcineál sonracha ceangaltáin a bhaint as an liosta poist.

2. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d'Iarratais fhuinneog.

3. Ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh tú thíos an cód isteach sa mhodúl bán oscailte, féach an scáileán:

Cód VBA: Bain cineáil shonrach na gceangaltán ó ríomhphoist:

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. Agus ansin fós sa Microsoft Visual Basic d'Iarratais fuinneog, cliceáil uirlisí > tagairtí chun dul go dtí an Tagairtí-Project1 dialóg, agus seiceáil Microsoft Scripting Runtime rogha ón Tagairtí ar Fáil liosta bosca, féach ar an scáileán:

doc a bhaint ag gabháil leis an gcineál 1

5. Ansin cliceáil OK chun an dialóg a dhúnadh, brúigh anois F5 is eochair an cód seo a reáchtáil, agus tá bosca pras curtha amach, cuir isteach an cineál ceangaltáin gur mhaith leat a bhaint, féach an scáileán:

doc a bhaint ag gabháil leis an gcineál 2

6. Cliceáil OK, agus scriosadh gach ceangaltán leis an gcineál sonrach atá sainmhínithe agat ag an am céanna, féach an scáileán:

doc a bhaint ag gabháil leis an gcineál 3



Kutools le haghaidh Outlook

Níos mó ná 100 Feidhmeanna Casta le haghaidh Outlook 2010, 2013, 2016, 2019 agus 365

Scáileán ar nósanna imeachta le haghaidh dearcadh bídeach don bhratach 201812

Gnéithe níos mó | Free Download | Níl ach $ 39.00 ar na céadta feidhmeanna

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.