Ako rozbaliť .Zip Prílohy priamo v Outlooku cez VBA

Keď dostanete prílohu v dokumente „.zip„prípona súboru“, ak ich chcete rozbaliť, vo všeobecnosti by ste ich mali uložiť a rozbaliť na lokálny disk. Mnohí však dúfajú, že ich rozbalia priamo v programe Outlook. Tento článok vás naučí, ako ich získať pomocou VBA.

Museli ste už niekedy dostať prílohy, ktoré sú v „.zip" rozšírenie súboru. Za účelom prístupu k interným súborom v jednom zip súbor, musíte ho najprv rozbaliť. V tomto prípade, ako zvyčajne, musíte najprv uložiť zip súbor na lokálny disk a potom naň kliknite pravým tlačidlom myši a z kontextovej ponuky vyberte možnosť „Extrahovať všetko“. V skutočnosti mnoho používateľov uprednostňuje rozbalenie súboru priamo v programe Outlook. Outlook však takúto natívnu funkciu neposkytuje. Našťastie môžete podľa nasledujúcich krokov pomocou VBA dosiahnuť tento cieľ jednoducho.

Rozbaľte súbor .Zip Prílohy priamo v Outlooku

1. Na prvom mieste spustite aplikáciu Outlook.
2. Potom stlačte klávesovú skratku „Alt + F11“ v okne Outlooku, aby ste sa dostali do editora VBA.
3. Ďalej v okne „Microsoft Visual Basic for Applications“ otvorte modul, ktorý sa nepoužíva.
4. Následne skopírujte a prilepte nasledujúce kódy VBA do tohto modulu.

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. Potom môžete obvyklým spôsobom pridať nový projekt VBA na panel nástrojov Rýchly prístup v okne správy.
6. Nakoniec to môžete vyskúšať.

• Najskôr otvorte správu pomocou zip súbor vo vlastnom okne.
• Potom kliknite na „Akcie“> „Upraviť správu“.
• Ďalej kliknite na tlačidlo nového makra na paneli s nástrojmi Rýchly prístup.
• Naraz zip Súbor sa rozbalí, ako na nasledujúcej snímke obrazovky:

Zbavte sa nepríjemných problémov s PST

Aj keď súbor PST v novom formáte Unicode podporuje veľkosť súboru 20 GB, je stále rozumné udržiavať súbor čo najmenší. Je to preto, že veľký súbor PST je oveľa náchylnejší na poškodenie. Akonáhle bude váš súbor PST napadnutý, budete sa musieť snažiť obnoviť PST údaje. V takom scenári vám nezostáva nič iné, ako sa vrátiť k osvedčenému a renomovanému nástroju, ako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S