Kako hitro kopirati vse tabele iz enega e-poštnega sporočila v drugega v Outlooku

Ko morate v Outlooku ekstrahirati in kopirati vse tabele iz enega e-poštnega sporočila v drugega, je to nedvomno dolgočasno in okorno narediti ročno. Ta članek bo z vami delil veliko pametnejši način.

Včasih boste morda želeli ustvariti novo e-poštno sporočilo, ki bo vsebovalo tabele drugega e-poštnega sporočila. Če je v e-pošti samo ena tabela, je zelo enostavno. Če pa je v izvorni e-pošti več tabel, je ročno kopiranje preveč dolgočasno. Zato bomo v nadaljevanju predstavili drug način, ki je veliko bolj učinkovit in inteligenten.

Kopirajte vse tabele iz enega e-poštnega sporočila v drugega

1. Za začetek bi morali do Outlooka dostopati kot običajno.
2. Nato lahko v glavnem Outlookovem oknu pritisnete bližnjične tipke »Alt + F11«.
3. Nato morate v pojavnem oknu »Microsoft Visual Basic for Applications« odpreti neuporabljen modul ali preprosto vstaviti novega.
4. Nato lahko v ta modul kopirate naslednjo kodo 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. Po tem lahko zapustite trenutno okno urejevalnika VBA.
6. Pozneje bi morali spremeniti nastavitve Outlookovih makrov, da omogočite vse makre.
7. Poleg tega je bolje, da ta makro dodate v orodno vrstico za hitri dostop, kar lahko storite v »Outlookovih možnostih«.
8. Končno lahko poskusite:

• Že na začetku odprite ali izberite e-pošto, katere tabele želite kopirati.
• Nato v orodni vrstici za hitri dostop pritisnite na novo dodan gumb makra.
• Ko se makro konča z izvajanjem, se prikaže novo e-poštno sporočilo, v katerega so bile prilepljene tabele izvornega e-poštnega sporočila.

Zaščitite datoteko Outlook pred korupcijo

Čeprav lahko Outlook igra dobro vlogo ne glede na to, da je samostojni e-poštni odjemalec ali zasebni upravitelj urnika, še vedno ne more biti imun na napake in poškodbe. Zato je varovanje vaših Outlookovih podatkov nedvomno naporno in dolgočasno opravilo. Spremljati morate svoje vsakodnevno vedenje v Outlooku, na primer ne klikati sumljivih povezav, prenašati nevarnih prilog ali nepravilno zapirati Outlooka in tako naprej. Seveda je nujno, da imate v bližini orodje za popravilo zvezd, kot je npr DataNumen Outlook Repair v tem, da lahko popravilo Outlook težave kot vetrič.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com