Jak rychle zkopírovat všechny tabulky z jednoho e-mailu do druhého v aplikaci Outlook

Když v aplikaci Outlook potřebujete extrahovat a kopírovat všechny tabulky z jednoho e-mailu do druhého, je nepochybně zdlouhavé a těžkopádné dělat to ručně. Tento článek se s vámi podělí o mnohem chytřejší způsob.

Občas můžete chtít vytvořit nový e-mail obsahující tabulky jiného e-mailu. Pokud je v e-mailu pouze jedna tabulka, je to velmi snadné. Pokud je však ve zdrojovém e-mailu více tabulek, ruční kopírování je příliš zdlouhavé. V následujícím si tedy představíme jiný způsob, který je mnohem efektivnější a inteligentnější.

Zkopírujte všechny tabulky z jednoho e-mailu do druhého

1. Pro začátek byste měli mít přístup k Outlooku jako obvykle.
2. Poté v hlavním okně aplikace Outlook můžete stisknout klávesové zkratky „Alt + F11“.
3. Následně ve vyskakovacím okně „Microsoft Visual Basic for Applications“ musíte otevřít nepoužívaný modul nebo jednoduše vložit nový.
4. Dále můžete do tohoto modulu zkopírovat následující kód VBA.

Sub CopyAllTablesFromOneEmailToAnother()
    Dim objSourceMail As Outlook.MailItem
    Dim objSourceMailDocument As Word.Document
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objTable As Word.Table
 
    'Get the source email
    Select Case TypeName(Application.ActiveWindow)
           Case "Explorer"
                Set objSourceMail = ActiveExplorer.Selection.Item(1)
                objSourceMail.Display
           Case "Inspector"
                Set objSourceMail = ActiveInspector.CurrentItem
    End Select
 
    Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
 
    If objSourceMailDocument.Tables.count > 0 Then
 
       'Create a new email
       Set objNewMail = Application.CreateItem(olMailItem)
 
       For Each objTable In objSourceMailDocument.Tables
           Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
           'Copy all tables from source email to the new email
           With objNewMailDocument.Range
                .Collapse wdCollapseEnd
                .FormattedText = objTable.Range.FormattedText
                .Collapse wdCollapseEnd
                .Text = vbCrLf
           End With
      Next
 
      'Close the source email
      objSourceMail.Close olSave
      'Display the new email
      objNewMail.Display
    End If
End Sub

5. Poté můžete opustit aktuální okno editoru VBA.
6. Později byste měli změnit nastavení maker aplikace Outlook, abyste povolili všechna makra.
7. Také je lepší přidat toto makro na panel nástrojů Rychlý přístup, což lze provést v „Možnosti aplikace Outlook“.
8. Nakonec můžete zkusit:

• Na úplném začátku otevřete nebo vyberte e-mail, jehož tabulky chcete zkopírovat.
• Poté stiskněte nově přidané tlačítko makra na panelu nástrojů Rychlý přístup.
• Po dokončení běhu makra se zobrazí nový e-mail, do kterého byly vloženy tabulky zdrojového e-mailu.

Chraňte soubor aplikace Outlook před poškozením

Přestože Outlook může hrát dobrou roli bez ohledu na to, zda jde o samostatný e-mailový klient nebo správce soukromých plánů, stále nemůže být imunní vůči chybám a poškození. Proto je nepochybně namáhavý a únavný úkol chránit vaše data aplikace Outlook. Musíte mít přehled o svém každodenním chování v Outlooku, jako je neklikání na podezřelé odkazy, stahování nebezpečných příloh nebo nesprávné zavření Outlooku a tak dále. Samozřejmě je nutné, abyste měli nablízku hvězdný opravný nástroj, jako např DataNumen Outlook Repair v tom může opravit Outlook potíže jako vánek.

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