Vai al contenuto principale

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 allegatiSalva 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 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.

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations