Archif heb atodiadau gan VBA

Archif heb atodiadau gan Kutools ar gyfer Outlook

Bydd y dull hwn yn cyflwyno VBA i ddileu'r holl atodiadau o'r ffolder penodedig y byddwch chi'n eu harchifo, ac yna gallwch chi archifo heb atodiadau. Gwnewch fel a ganlyn:

1. Yn y bost gweld, dewiswch y ffolder y byddwch chi'n ei archifo, a'i wasgu Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw VBA i mewn i ffenestr y modiwl newydd.

VBA: Tynnwch yr holl atodiadau o'r ffolder post a ddewiswyd yn 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. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i redeg y cod. Yna tynnir yr holl atodiadau o'r ffolder post a ddewiswyd ar unwaith.

4. Cliciwch Ffeil > Gwybodaeth > offer > Glanhau Hen Eitemau (neu Ffeil > Gwybodaeth > Offer Glanhau > Archif).

5. Yn y blwch deialog Archif, cliciwch i dynnu sylw at y ffolder a gopïwyd, teipiwch HEDDIW yn y Archifwch eitemau sy'n hŷn na blwch, ac yna cliciwch ar y Pori botwm. Gweler y screenshot:

6. Yn y blwch deialog Open Outlook Data Files, agorwch y ffolder y byddwch yn cadw'r ffeil PST sydd wedi'i archifo ynddo, enwwch y ffeil PST yn y enw ffeil blwch, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

7. Nawr eich bod yn dychwelyd i flwch deialog yr Archif, cliciwch ar y OK botwm i orffen yr archifo.
Hyd yn hyn, rydych chi wedi archifo'r ffolder post heb unrhyw atodiadau.

Os oes gennych chi Kutools ar gyfer Outlook wedi'i osod, gallwch chi gymhwyso ei Datgysylltwch Bawb nodwedd i ddileu'r holl atodiadau o'r ffolder penodedig y byddwch chi'n eu harchifo'n gyflym, ac yna eu harchifo heb atodiadau yn hawdd.

1. Yn y bost gweld, agor y ffolder post penodedig y byddwch chi'n ei archifo, dewis pob e-bost gyda phwyso Ctrl + A allweddi, ac yna cliciwch Kutools > Datgysylltwch Bawb. Gweler y screenshot:

2. Yn y blwch deialog Ffolder Dewiswch, cliciwch ar y Pori botwm  i nodi'r ffolder y byddwch yn cadw'r atodiad ynddo, nodwch arddull is-ffolder o'r creu is-ffolderi yn yr arddull ganlynol rhestr ostwng, a chliciwch ar y Ok botwm. Gweler y screenshot:

3. Cliciwch Ydy botwm a OK botwm yn olynol yn y blychau deialog popio allan.

4. Ewch ymlaen i glicio Ffeil > Gwybodaeth > offer > Glanhau Hen Eitemau (neu Ffeil > Gwybodaeth > Offer Glanhau > Archif).

5. Yn y blwch deialog Archif, cliciwch i dynnu sylw at y ffolder penodedig y byddwch chi'n ei archifo heb atodiadau, teipiwch HEDDIW yn y Archifwch eitemau sy'n hŷn na blwch, ac yna cliciwch ar y Pori botwm. Gweler y screenshot:

6. Yn y blwch deialog Open Outlook Data Files, agorwch y ffolder y byddwch yn cadw'r ffeil PST sydd wedi'i archifo ynddo, enwwch y ffeil PST yn y enw ffeil blwch, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

7. Nawr eich bod yn dychwelyd i flwch deialog yr Archif, cliciwch ar y OK botwm i orffen yr archifo.

Hyd yn hyn, rydych wedi archifo'r ffolder post penodedig heb atodiadau eisoes.

Sut i archifo atodiadau yn awtomatig yn Outlook yn unig?

Sut i archifo e-byst yn ôl blwyddyn / mis / dyddiad yn Outlook?