Come aprire la cerniera .Zip Allegati Direttamente in Outlook tramite VBA

Quando ricevi un allegato in “.zipIn genere, per decomprimere i file con estensione .file, è necessario salvarli e decomprimerli sul disco locale. Tuttavia, molti desiderano decomprimerli direttamente in Outlook. Questo articolo vi insegnerà come farlo tramite VBA.

Devi aver ricevuto gli allegati che sono in “.zip" estensione del file. Per accedere ai file interni in uno zip file, devi prima decomprimerlo. In questo caso, come al solito, devi prima salvare il zip Il file va spostato sull'unità locale, quindi si fa clic con il pulsante destro del mouse e si seleziona "Estrai tutto" dal menu contestuale. In realtà, molti utenti preferiscono decomprimere il file direttamente in Outlook. Tuttavia, Outlook non offre questa funzionalità nativa. Fortunatamente, è possibile seguire i passaggi successivi per utilizzare VBA e farlo in modo semplice e veloce.

Decomprimi il .Zip Allegati Direttamente in Outlook

1. In primo luogo, avvia la tua applicazione Outlook.
2. Quindi premere la scorciatoia da tastiera "Alt + F11" nella finestra di Outlook per accedere all'editor VBA.
3. Avanti nella finestra "Microsoft Visual Basic for Applications", apri un modulo che non è in uso.
4. Successivamente, copia e incolla i seguenti codici VBA in questo modulo.

Public Sub UnzipFileInOutlook()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim strFileName As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
 
    'Save & Unzip the zip file in local drive
    Set objShell = CreateObject("Shell.Application")
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "yyyy-mm-dd-hh-mm-ss")
    MkDir (strTempFolder)
 
    For Each objAttachment In objAttachments
        If Right(objAttachment.FileName, 3) = "zip" Then
           strFilePath = strTempFolder & "\" & objAttachment.FileName
           objAttachment.SaveAsFile (strFilePath)
           objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strFilePath)).Items
        End If
    Next
 
    'Reattach the files extracted from the zip file
    strFileName = Dir(strTempFolder & "\")
 
    While Len(strFileName) > 0
          objMail.attachments.Add (strTempFolder & "\" & strFileName)
          strFileName = Dir
          objMail.Save
    Wend
 
    'Delete the attachments in “.zip” file extension
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        If Right(objAttachment.FileName, 3) = "zip" Then
           objAttachment.Delete
           objMail.Save
        End If
    Next
 
    'Delete the temp folder and files
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

5. Successivamente, puoi aggiungere il nuovo progetto VBA alla barra di accesso rapido della finestra dei messaggi come al solito.
6. Finalmente puoi provare.

• Innanzitutto, apri un messaggio con zip file nella sua finestra.
• Quindi fare clic su "Azioni" > "Modifica messaggio".
• Quindi fai clic sul nuovo pulsante macro nella barra di accesso rapido.
• Subito, il zip Il file verrà decompresso, come mostrato nella seguente schermata:

Sbarazzarsi di fastidiosi problemi PST

Sebbene il file PST nel nuovo formato Unicode supporti una dimensione del file di 20 GB, è comunque consigliabile mantenere il file il più piccolo possibile. È perché un file PST di grandi dimensioni è molto più soggetto a corruzione. Una volta che il tuo file PST viene compromesso, dovrai sforzarti di farlo recuperare PST dati. In quello scenario, non hai altra scelta che ricorrere a uno strumento collaudato e affidabile come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com