Jak szybko dodawać i przekazywać wiele wiadomości e-mail jako Zip Załącznik w Outlooku

Kiedy musisz przesłać komuś dużą liczbę e-maili, możesz chcieć przekonwertować je wszystkie do jednego skompresowanego pliku. Dlatego ten post nauczy Cię, jak szybko przesłać wiele e-maili jednocześnie. zip Załącznik.

Outlook umożliwia użytkownikom przesyłanie wielu wiadomości e-mail jako załączników. Szczerze mówiąc, jest to wygodne. Ale jeśli liczba e-maili do przekazania jest dość duża, z pewnością będziesz mieć nadzieję, że skompresujesz je do jednego pliku, takiego jak zip plik. Oprócz zapisywania ich na dysku lokalnym i ich kompresowania, tutaj przedstawimy inny sposób, który pozwoli Ci przesłać wiele wiadomości e-mail jako jeden zip załącznik jednym kliknięciem.

Dodaj i przekaż wiele wiadomości e-mail jako as Zip Załącznik

1. Na początek uruchom Outlooka jak zwykle.
2. Następnie w oknie Outlooka naciśnij klawisze „Alt + F11”.
3. Następnie uzyskasz dostęp do okna edytora Outlook VBA z powodzeniem.
4. W tym momencie możesz otworzyć nieużywany moduł lub po prostu włożyć nowy.
5. Następnie musisz skopiować następujący kod VBA do tego modułu.

Sub ForwardMultipleEmailsAsZipAttachment()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
    Dim strTempFolder As String
    Dim varTempFolder As Variant
    Dim objShell As Object
    Dim varZipFile As Variant
    Dim objForward As Outlook.MailItem
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       'Save selected emails to Temporary folder
       strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
       varTempFolder = strTempFolder & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
       MkDir (varTempFolder)
       varTempFolder = varTempFolder & "\"

       For Each objMail In objSelection
 
           strSubject = objMail.Subject
 
           'Remove unsupported characters in the subject
           strSubject = Replace(strSubject, "/", " ")
           strSubject = Replace(strSubject, "\", " ")
           strSubject = Replace(strSubject, ":", "")
           strSubject = Replace(strSubject, "?", " ")
           strSubject = Replace(strSubject, Chr(34), " ")
 
           objMail.SaveAs varTempFolder & strSubject & ".msg", olMsg
       Next
    
       'Create a new zip file
       varZipFile = InputBox("Specify a name for the new zip file", "Name Zip File")
       varZipFile = strTempFolder & "\" & varZipFile & ".zip"
       Open varZipFile For Output As #1
       Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
       Close #1
 
       'Copy all the saved emails to the new zip file
       Set objShell = CreateObject("Shell.Application")
       objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items

       'Keep macro running until compressing is done
       On Error Resume Next
       Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
          Application.Wait (Now + TimeValue("0:00:01"))
       Loop
       On Error GoTo 0
 
       Set objMail = Application.CreateItem(olMailItem)
 
       'Add the zip attachment to a new email
       With objMail
            .Attachments.Add varZipFile
            .Display
       End With
    End If
End Sub

6. Następnie możesz wyjść z bieżącego makra.
7. Aby uzyskać późniejszy wygodny dostęp, lepiej dodać to makro do paska narzędzi Szybki dostęp.
8. Wreszcie możesz spróbować.

• Najpierw wybierz e-maile, które chcesz przekazać komuś innemu.
• Następnie kliknij przycisk makra na pasku narzędzi szybkiego dostępu.
• Następnie będziesz musiał wprowadzić nazwę skompresowanego pliku.
• Po wpisaniu nazwy i naciśnięciu „OK”, pojawi się nowy e-mail, w którym zobaczysz zip załączony plik, jak na poniższym zrzucie ekranu:

Trzymaj w pobliżu wybitne narzędzie do naprawy

Wraz z coraz większą liczbą wiadomości e-mail przechowywanych w Outlooku plik PST będzie coraz większy. W takich przypadkach program Outlook będzie cierpieć z powodu różnych błędów, a nawet awarii. Dlatego lepiej zachowaj solidny Naprawa PST narzędzie w pobliżu, np DataNumen Outlook Repair. Jest to wysoce zalecane narzędzie ze względu na wysoki wskaźnik odzysku.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony plik sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com