Pokud potřebujete někomu přeposlat velké množství e-mailů, můžete je všechny převést do jednoho komprimovaného souboru. Tento příspěvek vás proto naučí, jak rychle přeposlat více e-mailů jako… zip příloha.
Outlook umožňuje uživatelům přeposílat více e-mailů jako přílohy. Abych byl upřímný, je to pohodlné. Ale pokud je počet e-mailů, které mají být přeposlány, dost velký, budete jistě doufat, že je zkomprimujete do jediného souboru, např. zip soubor. Kromě jejich ukládání na místní disk a jejich komprimace zde představíme další způsob, který vám umožní přeposílat mnoho e-mailů jako jeden zip uchycení jedním kliknutím.
Přidat a přeposlat více e-mailů jako a Zip Připevnění
- Na úplném začátku spusťte Outlook jako obvykle.
- Poté v okně aplikace Outlook stiskněte klávesy „Alt + F11“.
- Následně úspěšně získáte přístup do okna editoru Outlook VBA.
- V tomto okamžiku můžete otevřít nepoužívaný modul nebo jednoduše vložit nový.
- Dále musíte do tohoto modulu zkopírovat následující kód 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
- Poté můžete aktuální makro ukončit.
- A pro pozdější pohodlný přístup je lepší přidat toto makro na panel nástrojů Rychlý přístup.
- Nakonec to můžete vyzkoušet.
- Nejprve vyberte e-maily, které chcete přeposlat někomu jinému.
- Dále klikněte na tlačítko makro na panelu nástrojů Rychlý přístup.
- Poté budete muset zadat název komprimovaného souboru.
- Po zadání jména a stisknutí „OK“ se zobrazí nový e-mail, ve kterém uvidíte a zip přiložený soubor, jako je snímek obrazovky níže:
Udržujte prvotřídní nástroj na opravu poblíž
Se stále větším počtem e-mailů uložených v aplikaci Outlook bude soubor PST větší a větší. V takových případech bude aplikace Outlook trpět různými chybami a dokonce i pády. Proto si raději ponechte robustní Oprava PST nástroj v okolí, jako DataNumen Outlook Repair. Je to vysoce doporučovaný nástroj kvůli jeho vysoké obnovitelnosti.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com