Qanday qilib bir nechta elektron pochta xabarlarini tezda qo'shish va yuborish Zip Outlook ilovasida ilova

Kimgadir katta miqdordagi elektron pochta xabarlarini yuborishingiz kerak bo'lganda, ularning barchasini bitta siqilgan faylga aylantirishingiz mumkin. Shunday qilib, ushbu post sizga bir nechta elektron pochta xabarlarini qanday qilib tezda yuborishni o'rgatadi. zip ilova.

Outlook foydalanuvchilarga bir nechta elektron pochta xabarlarini biriktirma sifatida yuborish imkonini beradi. Rostini aytsam, bu qulay. Ammo, agar jo'natiladigan elektron pochta xabarlari soni juda ko'p bo'lsa, siz ularni bitta faylga siqib chiqarishga umid qilasiz, masalan zip fayl. Ularni mahalliy diskka saqlash va ularni siqishdan tashqari, biz bu yerda sizga ko'plab elektron pochta xabarlarini bitta manzil sifatida yuborish imkonini beradigan boshqa usulni taqdim etamiz. zip bir marta bosish bilan biriktirma.

Bir nechta elektron pochta xabarlarini qo'shish va yo'naltirish Zip Attachment

1. Eng boshidanoq, Outlookingizni odatdagidek boshlang.
2. Keyin, Outlook oynasida "Alt + F11" tugmachalarini bosing.
3. Keyinchalik, Outlook VBA muharriri oynasiga muvaffaqiyatli kirish huquqiga ega bo'lasiz.
4. Ushbu nuqtada siz foydalanilmagan modulni ochishingiz yoki shunchaki yangisini kiritishingiz mumkin.
5. Keyinchalik, ushbu modulga quyidagi VBA kodini nusxalashingiz kerak.

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. Shundan so'ng siz joriy makrosdan chiqishingiz mumkin.
7. Keyinchalik qulay foydalanish uchun ushbu makrosni Tez kirish asboblar paneliga qo'shsangiz yaxshi bo'ladi.
8. Nihoyat, siz sinab ko'rishingiz mumkin.

• Birinchidan, boshqa birovga yubormoqchi bo'lgan elektron pochta xabarlarini tanlang.
• Keyin, Tez kirish asboblar panelidagi makros tugmasini bosing.
• Keyin sizdan siqilgan fayl nomini kiritish talab qilinadi.
• Ismni kiritib, "OK" tugmasini bosgandan so'ng, yangi elektron pochta xabari paydo bo'ladi, unda siz a ko'rasiz zip quyidagi skrinshot kabi biriktirilgan fayl:

Ajoyib ta'mirlash vositasini yaqin joyda saqlang

Outlook-da ko'proq va ko'proq elektron pochta xabarlari saqlanadi, PST fayli kattaroq va kattaroq bo'ladi. Bunday hollarda, Outlook turli xil xatolar va hatto ishdan chiqadi. Shuning uchun, siz kuchliroq bo'lganingiz ma'qul PST ta'mirlash yaqin atrofdagi asbob, kabi DataNumen Outlook Repair. Bu yuqori tiklanish tezligi tufayli juda tavsiya etilgan vositadir.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan sql va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com