Arhivează fără atașamente de către VBA

Arhivați fără atașamente de Kutools pentru Outlook

Această metodă va introduce un VBA pentru a șterge toate atașamentele din folderul specificat pe care îl veți arhiva, apoi puteți arhiva fără atașamente. Vă rugăm să faceți următoarele:

1. În Mail vizualizare, selectați folderul pe care îl veți arhiva și apăsați Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Module, și apoi lipiți mai jos VBA în fereastra noului modul.

VBA: Eliminați toate atașamentele din folderul de poștă selectat din 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. apasă pe F5 tasta sau faceți clic pe Alerga pentru a rula codul. Apoi toate atașamentele sunt eliminate imediat din folderul de poștă selectat.

4. Clic Fișier > Informație > Instrumente > Curățați obiectele vechi (Sau Fișier > Informație > Instrumente de curățare > arhivă).

5. În caseta de dialog Arhivă, faceți clic pentru a evidenția folderul copiat, tastați AZI în Arhiva articole mai vechi decât , apoi faceți clic pe Naviga buton. Vedeți captura de ecran:

6. În caseta de dialog Deschidere fișiere de date Outlook, deschideți folderul în care veți salva fișierul PST arhivat, denumiți fișierul PST în Nume de fișier , apoi faceți clic pe OK buton. Vedeți captura de ecran:

7. Acum reveniți la caseta de dialog Arhivă, faceți clic pe OK pentru a finaliza arhivarea.
Până acum, ați arhivat dosarul de poștă electronică fără atașamente.

Dacă aveți instalat Kutools pentru Outlook, îl puteți aplica Desprindeți-le pe toate caracteristică pentru a șterge rapid toate atașamentele din folderul specificat pe care îl veți arhiva, apoi arhivați fără atașamente cu ușurință.

1. În Mail vizualizați, deschideți folderul de e-mail specificat pe care îl veți arhiva, selectați toate e-mailurile apăsând Ctrl + A , apoi faceți clic pe Kutools > Desprindeți-le pe toate. Vedeți captura de ecran:

2. În caseta de dialog Vă rugăm să selectați un folder, faceți clic pe Naviga buton  pentru a specifica folderul în care veți salva atașamentul, specificați un stil de subfolder din creați subfoldere în stilul următor lista derulantă și faceți clic pe Ok buton. Vedeți captura de ecran:

3. Dați clic pe Da buton și OK butonul succesiv în casetele de dialog care apar.

4. Continuați să faceți clic Fișier > Informație > Instrumente > Curățați obiectele vechi (Sau Fișier > Informație > Instrumente de curățare > arhivă).

5. În caseta de dialog Arhivare, faceți clic pentru a evidenția folderul specificat pe care îl veți arhiva fără atașamente, tastați AZI în Arhiva articole mai vechi decât , apoi faceți clic pe Naviga buton. Vedeți captura de ecran:

6. În caseta de dialog Deschidere fișiere de date Outlook, deschideți folderul în care veți salva fișierul PST arhivat, denumiți fișierul PST în Nume de fișier , apoi faceți clic pe OK buton. Vedeți captura de ecran:

7. Acum reveniți la caseta de dialog Arhivă, faceți clic pe OK pentru a finaliza arhivarea.

Până acum, ați arhivat folderul de e-mail specificat fără atașamente deja.

Cum se arhivează automat atașamente numai în Outlook?

Cum se arhivează e-mailurile în funcție de an / lună / dată în Outlook?