Ako dávkové kopírovanie všetkých príloh z viacerých e-mailov na nový e-mail v programe Outlook

Ak chcete vytvoriť nový e-mail a pridať k novému e-mailu všetky prílohy v niekoľkých ďalších e-mailoch, môžete použiť metódu uvedenú v tomto článku. Naučí vás používať VBA, aby ste to dostali ako vánok.

Možno budete niekedy musieť hromadne skopírovať všetky prílohy z viacerých e-mailov do nového e-mailu. Môžete si samozrejme zvoliť, že to urobíte ručne, a to tak, že najskôr ich uložíte na miestny disk a potom ich po jednom pripojíte k novovytvorenému e-mailu. Zdá sa však, že týmto spôsobom to bude dosť zdĺhavá úloha. Prečo teda nevyužijete VBA na to, aby ste si to rýchlo uvedomili? V nasledujúcich častiach vám predstavíme prepracované operácie a zodpovedajúce kódy VBA.

Dávkové kopírovanie všetkých príloh z viacerých e-mailov do nového e-mailu

1. Na samom začiatku spustite program Outlook ako obvykle.
2. Ďalej v hlavnom okne programu Outlook stlačte klávesové skratky „Alt + F11“.
3. V nasledujúcom okne „Microsoft Visual Basic for Applications“ vložte nový modul alebo otvorte modul, ktorý sa nepoužíva.
4. Potom skopírujte a vložte nasledujúce kódy VBA do také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. Potom by ste mali pokračovať v pridávaní nového projektu VBA na panel nástrojov Rýchly prístup. Môžete ho dokončiť v časti „Možnosti programu Outlook“.
6. Neskôr by ste mali zmeniť úroveň zabezpečenia makra programu Outlook na nízku.
7. Nakoniec to môžete vyskúšať.

• Najskôr stlačte kláves „Ctrl“ a vyberte niekoľko e-mailov, ktorých prílohy chcete kopírovať.
• Potom stlačte tlačidlo nového makra na paneli s nástrojmi Rýchly prístup.
• Okamžite sa objaví nový e-mail so všetkými pripojenými prílohami.

Vyzvite sa na časté problémy s PST v programe Outlook

Pretože sa môžu občas vyskytnúť problémy s Outlookom PST, mali by ste vynaložiť veľa úsilia na zabezpečenie svojich údajov PST. Napríklad bolo lepšie zálohovať dáta PST pravidelne, takže budete môcť získať späť poškodený Outlook dáta zo záloh bez toho, aby ste sa zapotili. Okrem toho musíte mať v blízkosti renomovaný nástroj, napríklad DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S