2 spôsoby rýchlej tlače všetkých tabuliek v e-maile programu Outlook

Ak chcete rýchlo vytlačiť všetky tabuľky bez ostatných textov v e-maile programu Outlook, môžete na to použiť jeden z dvoch prístupov.

Keď dostanete e-mail, ktorý obsahuje veľa tabuliek v tele správy, občas možno budete chcieť tieto tabuľky extrahovať a vytlačiť len bez textov v tele. Program Outlook však nemá žiadne súvisiace funkcie na jeho dosiahnutie. V nasledujúcom texte sa s vami podelíme o 2 prostriedky.

Metóda 1: Vytlačte všetky tabuľky na samostatných stranách

1. K start s, spustite program Outlook.
2. Potom v hlavnom okne programu Outlook stlačte klávesové skratky „Alt + F11“.
3. V nasledujúcom okne „Microsoft Visual Basic for Applications“ môžete nájsť a otvoriť modul, ktorý sa nepoužíva.
4. Potom by ste mali skopírovať nasledujúci kód VBA do tohto modulu.

Sub PrintAllTables_inOutlookEmail_Individually()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objTable As Word.Table
    Dim lTableCount As Long
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim i As Long
 
    'Get the Source Mail
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
    Set objMailDocument = objMail.GetInspector.WordEditor
    lTableCount = objMailDocument.Tables.count
 
    Set objWordApp = CreateObject("Word.Application")
    objWordApp.Visible = True
 
    For i = 1 To lTableCount
        Set objTable = objMailDocument.Tables(i)
        objTable.Range.Copy
 
        'Copy Each Table into Each Word Document
        Set objWordDocument = objWordApp.Documents.Add
        objWordDocument.Content.Paste
 
        'Print Out Each Document
        objWordDocument.PrintOut
 
        objWordDocument.Close False
    Next
 
    objWordApp.Quit
End Sub

5. Neskôr by ste mali pridať nový projekt VBA na panel s nástrojmi Rýchly prístup. Ak to chcete dosiahnuť, prejdite na kartu „Možnosti programu Outlook“ > „Panel s nástrojmi Rýchly prístup“.
6. Nakoniec môžete urobiť záber.

• Najprv vyberte e-mail, ktorý obsahuje niekoľko tabuliek.
• Potom kliknite na tlačidlo nového makra na paneli s nástrojmi Rýchly prístup.
• Všetky tabuľky budú naraz vytlačené na jednotlivých stranách.

Metóda 2: Vytlačte všetky tabuľky v sérii

1. V prvom rade postupujte podľa krokov 1 až 2 vyššie a prejdite do okna „Microsoft Visual Basic for Applications“.
2. Potom prejdite k nepoužívanému modulu, do ktorého musíte skopírovať nasledujúci kód VBA.

Sub PrintAllTables_inOutlookEmail_Continuously()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objTable As Word.Table
    Dim lTableCount As Long
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objCell As Word.Cell
 
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
    Set objMailDocument = objMail.GetInspector.WordEditor
 
    'Create a Word Document
    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Add
    objWordDocument.Activate
    objWordApp.Visible = True
 
    For Each objTable In objMailDocument.Tables
        objTable.Range.Copy
 
        'Copy All Tables into One Word Document
        With objWordDocument.Range
             .Collapse wdCollapseEnd
             .PasteSpecial wdPasteRTF
             .Text = vbCrLf
        End With
    Next
 
    'Print out the Word Document
    objWordDocument.PrintOut
    objWordDocument.Close False
    objWordApp.Quit
End Sub

3. Neskôr môžete nové makro pridať na panel s nástrojmi Rýchly prístup.
4. Nakoniec vyberiete zdrojovú poštu a stlačíte tlačidlo makra na paneli s nástrojmi Rýchly prístup. Všetky tabuľky v tomto e-maile sa okamžite skopírujú do jedného dokumentu programu Word, ktorý sa teraz vytlačí.

Chráňte údaje programu Outlook pred korupciou

Napriek mnohým funkciám Outlook nemôže uniknúť chybám, zlyhaniu a poškodeniu. Keď teda narazíte na zlyhanie, vaše údaje programu Outlook budú mať tendenciu sa s vami rozlúčiť. Preto, aby sa zabránilo Výhľadová korupcia, musíte vynaložiť určité úsilie, ako je blokovanie skrytých vírusov, správne zatváranie programu Outlook atď. Navyše je rozumné zohnať skúsený opravárenský nástroj, napr 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. Sc