Arhiv brez prilog s strani VBA

Arhiv brez prilog Kutools za Outlook

Ta metoda bo uvedla VBA za brisanje vseh prilog iz navedene mape, ki jo boste arhivirali, nato pa lahko arhivirate brez prilog. Naredite naslednje:

1. v mail pogled, izberite mapo, ki jo želite arhivirati, in pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin nato prilepite pod VBA v novo okno modula.

VBA: Odstranite vse priloge iz izbrane poštne mape v Outlooku

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. Pritisnite F5 ali kliknite Run gumb za zagon kode. Nato se vse priloge takoj odstranijo iz izbrane poštne mape.

4. Kliknite file > Informacije > Orodja > Očistite stare predmete (ali file > Informacije > Orodja za čiščenje > Arhiv).

5. V pogovornem oknu Arhiv kliknite, da označite kopirano mapo, vnesite DANES v Arhiviraj predmete, starejše od in nato kliknite Brskanje . Oglejte si posnetek zaslona:

6. V pogovornem oknu Odpri Outlookove podatkovne datoteke odprite mapo, v katero boste shranili arhivirano datoteko PST, poimenujte datoteko PST v Ime datoteke in nato kliknite OK . Oglejte si posnetek zaslona:

7. Zdaj se vrnete v pogovorno okno Arhiv, kliknite na OK gumb za dokončanje arhiviranja.
Do sedaj ste arhivirali poštno mapo brez priponk.

Če imate nameščen Kutools za Outlook, ga lahko uporabite Loči vse funkcija za hitro brisanje vseh prilog iz določene mape, ki jo boste arhivirali, in nato preprosto arhiviranje brez prilog.

1. v mail pogled, odprite določeno poštno mapo, ki jo boste arhivirali, s pritiskom izberite vsa e-poštna sporočila Ctrl + A tipke in nato kliknite Kutools > Loči vse. Oglejte si posnetek zaslona:

2. V pogovornem oknu Izberite mapo kliknite Brskanje Gumb  da določite mapo, v katero boste shranili prilogo, določite slog podmape iz ustvarite podmape v naslednjem slogu spustni seznam in kliknite Ok . Oglejte si posnetek zaslona:

3. Prosimo, kliknite Da gumb in OK v pojavnih pogovornih oknih.

4. Pojdi na klik file > Informacije > Orodja > Očistite stare predmete (ali file > Informacije > Orodja za čiščenje > Arhiv).

5. V pogovornem oknu Arhiv kliknite, da označite določeno mapo, ki jo boste arhivirali brez prilog, vnesite DANES v Arhiviraj predmete, starejše od in nato kliknite Brskanje . Oglejte si posnetek zaslona:

6. V pogovornem oknu Odpri Outlookove podatkovne datoteke odprite mapo, v katero boste shranili arhivirano datoteko PST, poimenujte datoteko PST v Ime datoteke in nato kliknite OK . Oglejte si posnetek zaslona:

7. Zdaj se vrnete v pogovorno okno Arhiv, kliknite na OK gumb za dokončanje arhiviranja.

Do sedaj ste že arhivirali navedeno poštno mapo brez prilog.

Kako samodejno arhivirati priloge samo v Outlooku?

Kako arhivirati e-pošto po letu / mesecu / datumu v programu Outlook?