Хэрхэн олон имэйлийг хурдан нэмж, дамжуулах вэ Zip Outlook дахь хавсралт

Хэн нэгэн рүү их хэмжээний имэйл илгээх шаардлагатай үед та тэдгээрийг бүгдийг нь нэг шахагдсан файл болгон хөрвүүлэхийг хүсч магадгүй юм. Тиймээс энэ бичлэг нь танд олон имэйлийг хэрхэн хурдан дамжуулахыг заах болно. zip хавсралт.

Outlook нь хэрэглэгчдэд олон имэйлийг хавсралт хэлбэрээр дамжуулах боломжийг олгодог. Үнэнийг хэлэхэд энэ нь тохиромжтой. Гэхдээ хэрэв дамжуулах имэйлийн тоо нэлээд их байвал та тэдгээрийг нэг файл болгон шахах нь гарцаагүй. zip файл. Тэдгээрийг локал диск рүү хадгалах, шахахаас өөр аргыг энд танилцуулж, олон имэйлийг нэг дор дамжуулах боломжтой болно. zip нэг товшилтоор хавсралт.

Олон имэйл нэмэх, дамжуулах Zip Хавсралт

1. Хамгийн эхэнд, өөрийн төлөвийг ердийнхөөрөө эхлүүлээрэй.
2. Дараа нь Outlook цонхонд "Alt + F11" товчийг дарна уу.
3. Үүний дараа та Outlook VBA засварлагчийн цонхонд амжилттай нэвтрэх боломжтой болно.
4. Энэ үед та ашиглагдаагүй модулийг нээх эсвэл шинээр оруулах боломжтой.
5. Дараа нь та дараах VBA кодыг энэ модуль руу хуулах хэрэгтэй.

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. Үүний дараа та одоогийн макроноос гарч болно.
7. Дараа нь хялбар хандахын тулд та энэ макрог Түргэн нэвтрэх хэрэгслийн самбарт нэмэх нь дээр.
8. Эцэст нь та хичээгээд үзээрэй.

• Эхлээд өөр хэн нэгэнд дамжуулахыг хүссэн имэйлээ сонгоно уу.
• Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.
• Дараа нь та шахсан файлын нэрийг оруулах шаардлагатай болно.
• Нэрээ оруулаад "OK" товчийг дарсны дараа шинэ имэйл гарч ирэх бөгөөд энэ нь танд харагдах болно zip доорх дэлгэцийн зураг шиг хавсаргасан файл:

Сайн засварын хэрэгслийг ойролцоо байлга

Outlook дээр улам олон имэйл хадгалагдаж байгаа тул PST файл улам томрох болно. Ийм тохиолдолд Outlook нь янз бүрийн алдаа, бүр сүйрэлд өртөх болно. Тиймээс та бат бөх байсан нь дээр PST засвар ойролцоох хэрэгсэл DataNumen Outlook Repair. Энэ нь нөхөн сэргээх өндөр хурдтай тул маш их зөвлөдөг хэрэгсэл юм.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлига авсан кв програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com