Jak dávkově kopírovat všechny přílohy z více e-mailů do nového e-mailu v aplikaci Outlook

Pokud chcete vytvořit nový e-mail a připojit k nové poště všechny přílohy v několika dalších e-mailech, můžete použít metodu uvedenou v tomto článku. Naučí vás používat VBA, abyste to dostali jako vánek.

Někdy budete možná muset hromadně zkopírovat všechny přílohy z více e-mailů do nového e-mailu. Samozřejmě si můžete vybrat, že to uděláte ručně, jednoduše tak, že je nejprve uložíte na místní jednotku a poté po jednom připojíte k nově vytvořenému e-mailu. Zdá se však, že tímto způsobem to bude docela zdlouhavý úkol. Proč tedy nepoužíváte VBA k jeho rychlému uskutečnění? V následujících odstavcích vám odhalíme propracované operace a odpovídající kódy VBA.

Dávkové kopírování všech příloh z více e-mailů do nového e-mailu

1. Na samém začátku spusťte program Outlook jako obvykle.
2. Dále v hlavním okně Outlooku stiskněte klávesy „Alt + F11“.
3. V následujícím okně „Microsoft Visual Basic pro aplikace“ vložte nový modul nebo otevřete modul, který se nepoužívá.
4. Potom zkopírujte a vložte následující kódy VBA do takového modulu.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Poté byste měli pokračovat v přidávání nového projektu VBA na panel nástrojů Rychlý přístup. Můžete jej vyplnit v části „Možnosti aplikace Outlook“.
6. Později byste měli změnit úroveň zabezpečení maker aplikace Outlook na nízkou.
7. Nakonec to můžete vyzkoušet.

• Nejprve stiskněte klávesu „Ctrl“ a vyberte několik e-mailů, jejichž přílohy chcete zkopírovat.
• Poté stiskněte tlačítko nového makra na panelu nástrojů Rychlý přístup.
• Okamžitě se zobrazí nový e-mail se všemi připojenými přílohami.

Vyzvat k častým problémům s PST aplikace Outlook

Protože se občas mohou vyskytnout problémy s PST aplikace Outlook, měli byste vynaložit značné úsilí na ochranu svých dat PST. Například byste měli lépe pravidelně zálohovat svá data PST, abyste mohli získat zpět poškozený Outlook data ze záloh, aniž byste se zapotili. Kromě toho musíte mít v blízkosti renomovaný nástroj, jako je DataNumen Outlook Repair.

Ú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ě opravit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com