Ako rýchlo skopírovať všetky tabuľky z jedného e-mailu do druhého v programe Outlook

Ak v aplikácii Outlook potrebujete extrahovať a kopírovať všetky tabuľky z jedného e-mailu do druhého, je nepochybne zdĺhavé a nepríjemné to robiť ručne. Tento článok sa s vami podelí o oveľa múdrejší spôsob.

Občas môžete vytvoriť nový e-mail obsahujúci tabuľky iného e-mailu. Ak je v e-maile iba jedna tabuľka, je to veľmi jednoduché. Ak je však v zdrojovom e-maile viac tabuliek, je manuálne kopírovanie príliš zdĺhavé. V nasledujúcom texte teda predstavíme ďalší spôsob, ktorý je oveľa efektívnejší a inteligentnejší.

Kopírovať všetky tabuľky z jedného e-mailu do druhého

1. Na začiatok by ste mali mať prístup k Outlooku ako obvykle.
2. Potom v hlavnom okne Outlooku môžete stlačiť klávesové skratky „Alt + F11“.
3. Následne v rozbaľovacom okne „Microsoft Visual Basic for Applications“ musíte otvoriť nepoužívaný modul alebo jednoducho vložiť nový.
4. Ďalej môžete do tohto modulu skopírovať nasledujúci 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. Potom môžete opustiť aktuálne okno editora VBA.
6. Neskôr by ste mali zmeniť nastavenie makier programu Outlook, aby ste povolili všetky makrá.
7. Lepšie je tiež pridať toto makro na panel s nástrojmi Rýchly prístup, čo je možné vykonať v časti „Možnosti programu Outlook“.
8. Nakoniec môžete vyskúšať:

• Hneď na úvod otvorte alebo vyberte e-mail, ktorého tabuľky sa majú kopírovať.
• Potom stlačte novo pridané tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Po dokončení spustenia makra sa zobrazí nový e-mail, do ktorého boli prilepené tabuľky zdrojového e-mailu.

Chráňte súbor Outlook pred poškodením

Aj keď program Outlook môže hrať dobrú úlohu bez ohľadu na to, či ide o samostatného e-mailového klienta alebo súkromného správcu plánovania, stále nemôže byť odolný voči chybám a poškodeniu. Preto je nepochybne náročnou a zdĺhavou úlohou chrániť vaše údaje programu Outlook. Musíte si udržiavať prehľad o svojom každodennom správaní sa v Outlooku, napríklad neklikajte na podozrivé odkazy, sťahujte nebezpečné prílohy alebo nesprávne zatvárajte Outlook a podobne. Samozrejme je potrebné, aby ste si v blízkosti nechali nástroj na opravu hviezd, ako napr DataNumen Outlook Repair v tom, že môže opraviť Outlook ťažkosti ako vánok.

Ú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 oprava mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S