Az összes fájl gyors kinyomtatása a Zip Outlook e-mail melléklete

Sok felhasználó azt reméli, hogy az összes fájlt kinyomtatja a zip egy Outlook e-mail mellékletét anélkül, hogy gondosan elmentené és kicsomagolná zip mellékletet. Ezért ez a cikk egy sokkal hatékonyabb eszközt mutat be ennek megvalósítására.

Ha nyomtatni szeretne a zip mellékletet, megszokhatta, hogy felhúzza azt, és kattintson a „Gyorsnyomtatás” gombra a szalagon. Ezzel az eszközzel azonban az Outlook továbbra is kérni fogja, hogy mentse és töröljezip először is. Ha el szeretné kerülni ezeket a bosszantó lépéseket, használja a következő VBA-kódot.

Minden fájl nyomtatása a Zip E-mail csatolása

1. Először is, start az Outlook alkalmazásban.
2. Ezután férhet hozzá az Outlook VBA szerkesztőhöz a cikkben látható lépések követésével – "A VBA kód futtatása az Outlookban".
3. Ezután megnyithatja a „ThisOutlookSession” projektet vagy egy nem használt modult.
4. Ezt követően másolja ki és illessze be az alábbi VBA-kódot.

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

5. Ezt követően zárja be az aktuális VBA-szerkesztő ablakot.
6. Később lépjen az Outlook beállításaihoz, és adja hozzá az új makrót a Gyorselérési eszköztárhoz.
7. Végül készíthetsz egy felvételt:

• Először válassza ki a zip e-mail melléklete.
• Ezután kattintson a makróra a Gyorselérési eszköztárban.

8. A fájlok egyszerre tömörülnek a kiválasztottba zip melléklet nyomtatásra kerül.

Az Outlook adatfájlok biztonsági mentése

Lehet, hogy felfedezte, hogy az Outlook hajlamos a korrupcióra. Amint az Outlook megsérül, az Outlook adatai lost. Ezért fontos, hogy rendszeresen biztonsági másolatot készítsen az Outlook-adatfájlokról, hogy könnyen le tudja kérni az Outlook-adatokat biztonsági másolatok segítségével. De ha úgy találja, hogy a biztonsági mentés több hete régi és nem hatékony, nincs más választása, mint egy megbízható és tapasztalt PST helyreállítás eszköz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült mdf és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com