Slik skriver du ut alle filer raskt i en Zip Vedlegg av en Outlook-e-post

Outlook-løsninger September 29, 2025

Mange brukere håper å skrive ut alle filene komprimert i en zip vedlegg av en Outlook-e-post uten vanskelig å lagre og dekomprimere zip vedlegg. Derfor vil denne artikkelen introdusere et mye mer effektivt middel for å realisere det.

Når du vil skrive ut en zip vedlegg, kan du være vant til å sette på det og klikke på "Hurtigutskrift"-knappen på båndet. Men på denne måten vil Outlook fortsatt be deg om å lagre og fjernezip det først. Hvis du vil unngå disse irriterende trinnene, kan du bruke følgende VBA-kode.

Skriv ut alle filer raskt i en Zip Vedlegg av en Outlook-e-post

Skriv ut alle filer i en Zip Vedlegg av e-post

  1. Til å begynne med, start Outlook-applikasjonen din.
  2. Deretter får du tilgang til Outlook VBA editor ved å følge trinnene vist i artikkelen - "Hvordan kjøre VBA-kode i Outlook".
  3. Deretter kan du åpne "ThisOutlookSession" -prosjektet eller en ubrukt modul.
  4. Deretter kopierer og limer du inn VBA-koden nedenfor.
Dim objShell As Object
Dim objFileSystem As Object

Sub PrintAllFilesInZipAttachment ()
    Dim objAttachmentSelection As Outlook.AttachmentSelection
    Dim objAttachment, objTempAttachment As Outlook.Attachment
    Dim strTempFolder As String
    Dim strSavingPath As String
    Dim objTempMail As Outlook.MailItem
    Dim strFileName As String
 
    'Get selected attachment
    Set objAttachmentSelection = Outlook.Application.ActiveExplorer.AttachmentSelection
    Set objAttachment = objAttachmentSelection.Item(1)

    If Right(LCase(objAttachment.filename), 3) = "zip" Then
 
       'Save & Unzip the zip attachment
       Set objShell = CreateObject("Shell.Application")
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Unzip" & Format(Now, "yyyymmddhhmmss")
       MkDir (strTempFolder)
 
       strSavingPath = strTempFolder & "\" & objAttachment.filename
       objAttachment.SaveAsFile (strSavingPath)
       objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strSavingPath)).Items
  
       'Attach Unzipped files to a temp mail
       Set objTempMail = Outlook.Application.CreateItem(olMailItem)
       objTempMail.Display
       strFileName = Dir(strTempFolder & "\")
 
       While Len(strFileName) > 0
             objTempMail.Attachments.Add (strTempFolder & "\" & strFileName)
             strFileName = Dir()
       Wend
 
       'Print all attachments of the temp email
       Call PrintFiles(objTempMail)
 
       objTempMail.Close olDiscard
 
       objFileSystem.DeleteFolder (strTempFolder)
    End If
End Sub

Sub PrintFiles(ByVal objMail As Outlook.MailItem)
    Dim objAttachment As Outlook.Attachment
    Dim strTempFolder, strFilePath As String
    Dim objTempFolder As Object
    Dim objTempFolderItem As Object
 
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\TEMP" & Format(Now, "yyyymmddhhmmss")
    MkDir (strTempFolder)
 
    'Print all attachments
    For Each objAttachment In objMail.Attachments
        If Right(LCase(objAttachment.filename), 3) <> "zip" Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile (strFilePath)
 
           Set objShell = CreateObject("Shell.Application")
           Set objTempFolder = objShell.NameSpace(0)
           Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
           objTempFolderItem.InvokeVerbEx ("print")
        End If
    Next
 
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

VBA-kode - Skriv ut alle filer i en Zip Vedlegg av e-post

  1. Deretter lukker du det gjeldende VBA-redigeringsvinduet.
  2. Gå senere til Outlook-alternativer for å legge til den nye makroen til Quick Access Toolbar.
  3. Til slutt kan du ta et skudd:
  • Velg først en zip vedlegg av en e-post.
  • Klikk deretter på makroen i verktøylinjen for hurtigtilgang.Kjør makro gjennom hurtigtilgangsverktøylinjen
  1. Med en gang komprimeres filene i den valgte zip vedlegg vil bli skrevet ut.

Sikkerhetskopier Outlook-datafiler

Du har kanskje oppdaget at Outlook er utsatt for korrupsjon. Når Outlook blir ødelagt, vil Outlook-dataene dine være lost. Derfor er det viktig å ta en jevnlig sikkerhetskopi av Outlook-datafilene dine, slik at du enkelt kan hente Outlook-data via sikkerhetskopier. Men hvis du finner ut at sikkerhetskopieringen er flere uker gammel og ineffektiv, har du ikke noe annet valg enn å gå tilbake til en pålitelig og erfaren PST gjenoppretting verktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert skadet mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.