Cartlann gan ceangaltáin le VBA

Cartlann gan ceangaltáin le Kutools le haghaidh Outlook

Tabharfaidh an modh seo VBA isteach chun gach ceangaltán a scriosadh ón bhfillteán sonraithe a dhéanfaidh tú a chartlannú, agus ansin is féidir leat cartlann a dhéanamh gan ceangaltáin. Déan mar a leanas le do thoil:

1. Sa an mail amharc, roghnaigh an fillteán a chartlannfaidh tú, agus brúigh Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. Cliceáil Ionsáigh > Modúil, agus ansin greamaigh faoi bhun VBA isteach i bhfuinneog an mhodúil nua.

VBA: Bain gach ceangaltán ón bhfillteán ríomhphoist roghnaithe in Outlook

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

3. Brúigh an F5 eochair nó cliceáil ar an Rith cnaipe chun an cód a rith. Ansin baintear gach ceangaltán den fhillteán ríomhphoist roghnaithe láithreach.

4. Cliceáil Comhad > info > uirlisí > Glan Míreanna Míreanna (nó Comhad > info > Uirlisí Glantacháin > Cartlann).

5. Sa bhosca dialóige Cartlainne, cliceáil le do thoil chun aird a tharraingt ar an bhfillteán cóipeáilte, cineál TODAY sa Míreanna cartlainne atá níos sine ná bosca, agus ansin cliceáil ar an Brabhsáil cnaipe. Féach an pictiúr:

6. Sa bhosca dialóige Open Outlook Data Files, oscail an fillteán le do thoil sábhálfaidh tú an comhad PST cartlainne, ainmnigh an comhad PST sa Ainm comhaid bosca, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

7. Anois agus tú ag filleadh ar bhosca dialóige na Cartlainne, cliceáil le do thoil ar an OK cnaipe chun an chartlannú a chríochnú.
Go dtí seo, tá an fillteán ríomhphoist curtha i gcartlann agat gan aon cheangaltáin.

Má tá Kutools for Outlook suiteáilte agat, is féidir leat a chuid a chur i bhfeidhm Dícheangail Uile gné chun gach ceangaltán a scriosadh go tapa ón bhfillteán sonraithe a dhéanfaidh tú a chartlannú, agus ansin cartlannú gan iatáin go héasca.

1. Sa an mail amharc, oscail an fillteán ríomhphoist sonraithe a chartlannfaidh tú, roghnaigh gach ríomhphost le brú Ctrl + A eochracha, agus ansin cliceáil Kutools > Dícheangail Uile. Féach an pictiúr:

2. Sa bhosca dialóige fillteán Roghnaigh le do thoil, cliceáil an Brabhsáil cnaipe  chun an fillteán a shonrú sábhálfaidh tú an ceangaltán ann, sonraigh stíl fho-fhillteáin ón cruthaigh fofhillteáin sa stíl seo a leanas liosta anuas, agus cliceáil ar an Ok cnaipe. Féach an pictiúr:

3. Cliceáil le do thoil Is ea cnaipe agus OK cnaipe i ndiaidh a chéile sna boscaí dialóige popping amach.

4. Téigh ar aghaidh chun cliceáil Comhad > info > uirlisí > Glan Míreanna Míreanna (nó Comhad > info > Uirlisí Glantacháin > Cartlann).

5. Sa bhosca dialóige Cartlainne, cliceáil le do thoil chun aird a tharraingt ar an bhfillteán sonraithe a chartlannfaidh tú gan ceangaltáin, cineál TODAY sa Míreanna cartlainne atá níos sine ná bosca, agus ansin cliceáil ar an Brabhsáil cnaipe. Féach an pictiúr:

6. Sa bhosca dialóige Open Outlook Data Files, oscail an fillteán le do thoil sábhálfaidh tú an comhad PST cartlainne, ainmnigh an comhad PST sa Ainm comhaid bosca, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

7. Anois agus tú ag filleadh ar bhosca dialóige na Cartlainne, cliceáil le do thoil ar an OK cnaipe chun an chartlannú a chríochnú.

Go dtí seo, tá an fillteán ríomhphoist sonraithe curtha i gcartlann agat gan ceangaltáin cheana féin.

Conas ceangaltáin a chartlannú go huathoibríoch in Outlook amháin?

Conas ríomhphoist a chartlannú de réir bliana / míosa / dáta in Outlook?