Archivia senza allegati da VBA

Archivio senza allegati di Kutools per Outlook

Questo metodo introdurrà un VBA per eliminare tutti gli allegati dalla cartella specificata che archiverai, quindi potrai archiviare senza allegati. Si prega di fare quanto segue:

1. Nel posta visualizzare, selezionare la cartella da archiviare e premere altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Moduli, quindi incolla sotto VBA nella finestra del nuovo modulo.

VBA: rimuovi tutti gli allegati dalla cartella di posta selezionata 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. premi il F5 o fare clic su Correre pulsante per eseguire il codice. Quindi tutti gli allegati vengono rimossi immediatamente dalla cartella di posta selezionata.

4. Clic Compila il > Info > Strumenti > Pulisci i vecchi oggetti (o Compila il > Info > Strumenti di pulizia > Archivio).

5. Nella finestra di dialogo Archivio, fare clic per evidenziare la cartella copiata, digitare OGGI nel Archivia gli elementi più vecchi di casella, quindi fare clic su Scopri la nostra gamma di prodotti pulsante. Vedi screenshot:

6. Nella finestra di dialogo Apri file di dati di Outlook, apri la cartella in cui salverai il file PST archiviato, assegna un nome al file PST nel Nome del file casella, quindi fare clic su OK pulsante. Vedi screenshot:

7. Ora torni alla finestra di dialogo Archivio, fai clic su OK pulsante per terminare l'archiviazione.
Finora hai archiviato la cartella della posta senza allegati.

Se hai installato Kutools per Outlook, puoi applicarlo Scollega tutto funzione per eliminare rapidamente tutti gli allegati dalla cartella specificata che archiverai e quindi archiviare facilmente senza allegati.

1. Nel posta visualizzare, aprire la cartella di posta specificata da archiviare, selezionare tutte le e-mail premendo Ctrl + A tasti, quindi fare clic su Kutools > Scollega tutto. Vedi screenshot:

2. Nella finestra di dialogo Seleziona una cartella, fare clic su Scopri la nostra gamma di prodotti pulsante  per specificare la cartella in cui salvare l'allegato, specificare uno stile di sottocartella dal file creare sottocartelle nel seguente stile elenco a discesa e fare clic su Ok pulsante. Vedi screenshot:

3. Per favore clicca Sì pulsante e OK pulsante successivamente nelle finestre di dialogo a comparsa.

4. Continua a fare clic Compila il > Info > Strumenti > Pulisci i vecchi oggetti (o Compila il > Info > Strumenti di pulizia > Archivio).

5. Nella finestra di dialogo Archivio, fare clic per evidenziare la cartella specificata che verrà archiviata senza allegati, digitare OGGI nel Archivia gli elementi più vecchi di casella, quindi fare clic su Scopri la nostra gamma di prodotti pulsante. Vedi screenshot:

6. Nella finestra di dialogo Apri file di dati di Outlook, apri la cartella in cui salverai il file PST archiviato, assegna un nome al file PST nel Nome del file casella, quindi fare clic su OK pulsante. Vedi screenshot:

7. Ora torni alla finestra di dialogo Archivio, fai clic su OK pulsante per terminare l'archiviazione.

Finora, hai già archiviato la cartella di posta specificata senza allegati.

Come archiviare automaticamente gli allegati solo in Outlook?

Come archiviare le e-mail per anno / mese / data in Outlook?