Gdy otrzymasz załącznik w „.zipJeśli chcesz je rozpakować, zazwyczaj należy je zapisać i rozpakować na dysku lokalnym. Wiele osób ma jednak nadzieję, że uda im się rozpakować je bezpośrednio w programie Outlook. W tym artykule dowiesz się, jak to zrobić za pomocą VBA.
Musiałeś kiedykolwiek otrzymać załączniki, które są w „.zip" rozszerzenie pliku. Aby uzyskać dostęp do plików wewnętrznych w jednym zip Plik należy najpierw rozpakować. W tym przypadku, jak zwykle, należy najpierw zapisać zip Plik na dysk lokalny, a następnie kliknij go prawym przyciskiem myszy i wybierz opcję „Wypakuj wszystko” z menu kontekstowego. W rzeczywistości wielu użytkowników woli rozpakować plik bezpośrednio w programie Outlook. Jednak Outlook nie oferuje takiej wbudowanej funkcji. Na szczęście możesz wykonać poniższe kroki, aby za pomocą VBA zrobić to bez problemu.
Rozpakuj .Zip Załączniki bezpośrednio w programie Outlook
- W pierwszej kolejności uruchom aplikację Outlook.
- Następnie naciśnij skrót klawiszowy „Alt + F11” w oknie programu Outlook, aby uzyskać dostęp do edytora VBA.
- Następnie w oknie „Microsoft Visual Basic for Applications” otwórz moduł, który nie jest używany.
- Następnie skopiuj i wklej następujące kody VBA do tego modułu.
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
- Następnie możesz jak zwykle dodać nowy projekt VBA do paska narzędzi szybkiego dostępu w oknie wiadomości.
- Wreszcie możesz spróbować.
- Najpierw otwórz wiadomość za pomocą zip plik we własnym oknie.
- Następnie kliknij „Działania”> „Edytuj wiadomość”.
- Następnie kliknij przycisk nowego makra na pasku narzędzi szybkiego dostępu.
- Od razu zip plik zostanie rozpakowany, jak na poniższym zrzucie ekranu:
Pozbądź się irytujących problemów z plikami PST
Chociaż plik PST w nowym formacie Unicode obsługuje rozmiar pliku 20 GB, nadal rozsądnie jest utrzymywać plik tak mały, jak to tylko możliwe. Dzieje się tak, ponieważ duży plik PST jest znacznie bardziej podatny na uszkodzenie. Gdy plik PST zostanie naruszony, będziesz musiał dołożyć starań, aby odzyskać PST dane. W tym scenariuszu nie masz innego wyjścia, jak tylko wrócić do sprawdzonego i renomowanego narzędzia, takiego jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com