Si të shtoni dhe përcillni shpejt emaile të shumta si a Zip Shtojcë në Outlook

Kur duhet t'i përcillni dikujt një sasi të madhe email-esh, mund të dëshironi t'i konvertoni të gjitha ato në një skedar të vetëm të kompresuar. Kështu, ky postim do t'ju mësojë se si të përcillni shpejt email-e të shumta si një zip bashkëngjitje.

Outlook i lejon përdoruesit të përcjellin email të shumtë si bashkëngjitje. Për të qenë i sinqertë, është i përshtatshëm. Por, nëse numri i emaileve që do të dërgohen është goxha i madh, me siguri do të shpresoni t'i kompresoni ato në një skedar të vetëm, si p.sh. zip dosje. Përveç ruajtjes së tyre në diskun lokal dhe kompresimit të tyre, këtu do të prezantojmë një mënyrë tjetër, e cila mund t'ju lejojë të përcillni shumë email si një e vetme zip bashkangjitje me një klikim.

Shtoni dhe Përcillni Email të Shumëfishtë si a Zip Attachment

1. Në fillim, nisni Outlook-un tuaj si zakonisht.
2. Pastaj, në dritaren e Outlook, shtypni butonat "Alt + F11".
3. Më pas, do të keni akses në dritaren e redaktuesit të Outlook VBA me sukses.
4. Në këtë pikë, mund të hapni një modul të papërdorur ose thjesht të futni një të ri.
5. Më pas, duhet të kopjoni kodin e mëposhtëm VBA në këtë modul.

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. Pas kësaj, mund të dilni nga makroja aktuale.
7. Dhe për akses më të përshtatshëm të mëvonshëm, është më mirë ta shtoni këtë makro në shiritin e veglave të aksesit të shpejtë.
8. Më në fund, mund të provoni.

• Së pari, zgjidhni emailet që dëshironi t'i përcillni dikujt tjetër.
• Më pas, klikoni në butonin makro në shiritin e veglave të aksesit të shpejtë.
• Më pas, do t'ju kërkohet të vendosni një emër për skedarin e ngjeshur.
• Pasi të keni futur një emër dhe të shtypni "OK", do të shfaqet një email i ri, në të cilin do të shihni një zip skedari i bashkangjitur, si pamja e ekranit më poshtë:

Mbani një mjet të shquar riparimi afër

Me gjithnjë e më shumë email-e të ruajtura në Outlook, skedari PST do të jetë gjithnjë e më i madh. Në raste të tilla, Outlook do të pësojë një sërë gabimesh dhe madje edhe rrëzime. Prandaj, do të ishte më mirë të qëndroni të fortë Riparimi i PST mjet në afërsi, si DataNumen Outlook Repair. Është një mjet shumë i rekomanduar për shkak të shkallës së lartë të rikuperimit.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë sql e korruptuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com