Cara Cepat Menambahkan dan Meneruskan Beberapa Email sebagai Zip Lampiran di Outlook

Saat Anda perlu meneruskan banyak email kepada seseorang, Anda mungkin ingin mengubah semuanya menjadi satu file terkompresi. Oleh karena itu, postingan ini akan mengajarkan Anda cara meneruskan banyak email dengan cepat sebagai satu file terkompresi. zip lampiran.

Outlook mengizinkan pengguna untuk meneruskan beberapa email sebagai lampiran. Sejujurnya, itu nyaman. Tapi, jika jumlah email yang akan diteruskan cukup besar, Anda pasti berharap untuk mengompresnya menjadi satu file, seperti zip mengajukan. Selain menyimpannya ke drive lokal dan mengompresnya, di sini kami akan memperkenalkan cara lain, yang memungkinkan Anda meneruskan banyak email sebagai satu zip lampiran dengan satu klik.

Tambahkan dan Teruskan Beberapa Email sebagai Zip Lampiran

1. Pada awalnya, jalankan Outlook Anda seperti biasa.
2. Kemudian, di jendela Outlook, tekan tombol "Alt + F11".
3. Selanjutnya, Anda akan mendapatkan akses ke jendela editor Outlook VBA dengan sukses.
4. Pada titik ini, Anda dapat membuka modul yang tidak digunakan atau cukup memasukkan yang baru.
5. Selanjutnya, Anda perlu menyalin kode VBA berikut ke dalam modul ini.

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. Setelah itu, Anda dapat keluar dari makro saat ini.
7. Dan untuk kemudahan akses selanjutnya, Anda sebaiknya menambahkan makro ini ke Bilah Alat Akses Cepat.
8. Akhirnya, Anda bisa mencobanya.

• Pertama, pilih email yang ingin Anda teruskan ke orang lain.
• Selanjutnya, klik tombol makro di Bilah Alat Akses Cepat.
• Kemudian, Anda akan diminta untuk memasukkan nama untuk file terkompresi.
• Setelah memasukkan nama dan tekan "OK", email baru akan ditampilkan, di mana Anda akan melihat a zip file terlampir, seperti screenshot di bawah ini:

Simpan Alat Perbaikan Unggulan di Sekitar

Dengan semakin banyak email yang disimpan di Outlook, file PST akan semakin besar. Dalam kasus seperti itu, Outlook akan mengalami berbagai kesalahan dan bahkan crash. Karena itu, Anda sebaiknya tetap kuat Perbaikan PST alat di sekitarnya, seperti DataNumen Outlook Repair. Ini adalah alat yang sangat direkomendasikan karena tingkat pemulihannya yang tinggi.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql yang korup dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com