Come salvare gli allegati senza aprire l'e-mail in Outlook?
Potrebbe essere necessario spesso salvare gli allegati dalle e-mail ricevute sui dischi del computer. È facile salvare un allegato o tutti gli allegati da un messaggio di posta elettronica, ma come salvare gli allegati da più messaggi di posta elettronica contemporaneamente? Normalmente, è necessario aprire ripetutamente le e-mail e salvare gli allegati. Esistono trucchi per sbarazzarsi delle operazioni ripetute? Qui i metodi in questo tutorial possono aiutarti.
Salva gli allegati da una o più e-mail senza aprirli con il codice VBA
Salva gli allegati da una o più e-mail senza aprirli con uno strumento straordinario
Salva gli allegati da una o più e-mail senza aprirli con il codice VBA
Il codice VBA sottostante può aiutare a salvare gli allegati da una o più e-mail contemporaneamente senza aprire le e-mail in Outlook. Si prega di fare quanto segue.
1. Seleziona una o più e-mail in cui salverai gli allegati, premi il tasto altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Espandere il file Oggetti di Microsoft Outlook cartella, fare doppio clic su Questa sessione di Outlook per aprire il Code finestra, quindi copia il codice VBA sottostante in esso.
Codice VBA: salva gli allegati senza aprire le e-mail
Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xSavePath = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
Set xAttachments = xMailItem.Attachments
xCount = xAttachments.Count
xOriginalFiles = ""
If xCount > 0 Then
For i = xCount To 1 Step -1
Set xAttachment = xAttachments.Item(i)
If IsEmbeddedAttachment(xAttachment) = False Then
xFileName = xSavePath & xAttachment.FileName
xAttachment.SaveAsFile xFileName
xAttachment.Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
Else
xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
End If
End If
Next i
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
End If
xMailItem.Save
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
4. premi il F5 chiave per eseguire il codice. Poi un BrowseForFolder si apre la finestra, selezionare una cartella per salvare gli allegati, quindi fare clic su OK pulsante.
Quindi tutti gli allegati nelle e-mail selezionate vengono salvati immediatamente nella cartella selezionata.
Nota: Tutti gli allegati verranno scollegati dalle e-mail e manterranno i collegamenti del percorso di salvataggio corrispondenti nel corpo dell'e-mail.
Salva gli allegati da una o più e-mail senza aprirli con uno strumento straordinario
Se sei un principiante in VBA, il metodo in questa sezione sarà la tua buona scelta.
Qui consiglio il Salva tutti gli allegati utilità di Kutools for Outlook per te. Se desideri solo salvare gli allegati senza scollegarli dalle e-mail selezionate, la funzione Salva tutti gli allegati può aiutarti a farlo facilmente. Si prega di fare quanto segue.
Prima di applicare Kutools per Outlook, per favore scaricarlo e installarlo in primo luogo.
1. Seleziona le e-mail contenenti gli allegati che salverai, fai clic su Kutools > Strumenti per gli allegati > Salva tutto.
2. Nel Salva impostazioni finestra di dialogo, è necessario:
- 2.1) nel Salva gli allegati in questa cartella sezione, scegli una cartella in cui salvare gli allegati;
- 2.2) L' Salva gli allegati nello stile sottostante box è facoltativo per creare una sottocartella con stile certian per salvare gli allegati o rinominare gli allegati salvati con stile certian.
- 2.3) Fare clic OK per iniziare a salvare tutti gli allegati dalle e-mail selezionate.
Suggerimenti:: Con le configurazioni precedenti, tutti gli allegati verranno salvati nella cartella specificata. Se si desidera salvare solo alcuni allegati certian come salvare solo i file PDF con la parola certian "fattura" nel nome del file, è possibile configurare le condizioni del filtro come segue.
- Clicca su Opzioni avanzate pulsante per espandere il file Condizione del filtros;
- Specificare le condizioni in base alle proprie esigenze.
Suggerimenti: Qui controllo il file Nome allegato contiene la casella e quindi inserisci "fattura" nella casella di testo, quindi seleziona il Tipo di allegato box, inserisci ".pdf" nella casella di testo.
3. Nella successiva finestra di dialogo che si apre, fare clic su Sì per continuare.
Quindi gli allegati nelle e-mail selezionate vengono salvati nella cartella specificata contemporaneamente.
Suggerimenti:: Per scollegare gli allegati dalle e-mail selezionate e lasciare solo i collegamenti ipertestuali degli allegati nel corpo dell'e-mail, il file Scollega tutti gli allegati la funzione può aiutare.
Se desideri avere una prova gratuita (60 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
Articoli correlati
Scarica / salva automaticamente gli allegati da Outlook in una determinata cartella
In generale, puoi salvare tutti gli allegati di un'e-mail facendo clic su Allegati> Salva tutti gli allegati in Outlook. Ma se è necessario salvare tutti gli allegati da tutte le e-mail ricevute e ricevute, qualsiasi ideale? Questo articolo introdurrà due soluzioni per scaricare automaticamente gli allegati da Outlook in una determinata cartella.
Conserva gli allegati quando rispondi in Outlook
Quando inoltriamo un messaggio di posta elettronica in Microsoft Outlook, gli allegati originali in questo messaggio di posta elettronica rimangono nel messaggio inoltrato. Tuttavia, quando rispondiamo a un messaggio di posta elettronica, gli allegati originali non verranno allegati nel nuovo messaggio di risposta. Qui introdurremo un paio di trucchi per mantenere gli allegati originali quando si risponde in Microsoft Outlook.
Cerca parole all'interno dell'allegato (contenuto) in Outlook
Quando digitiamo una parola chiave nella casella di ricerca istantanea in Outlook, cercherà la parola chiave nell'oggetto, nel corpo, negli allegati delle email, ecc. Ma ora devo solo cercare la parola chiave nel contenuto degli allegati solo in Outlook, idea? Questo articolo mostra i passaggi dettagliati per cercare facilmente le parole all'interno del contenuto degli allegati in Outlook.
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.