Kuidas Outlookis kõiki tabeleid kiiresti ühest meilist teise kopeerida

Outlooki lahendused September 29, 2025

Kui teil on vaja Outlookis kõik tabelid ühest meilist teise välja tõmmata ja kopeerida, on seda kahtlemata käsitsi teha tüütu ja tülikas. See artikkel jagab teiega palju nutikamat viisi.

Mõnikord võite soovida luua uue meili, mis sisaldab mõne teise meili tabeleid. Kui meilis on ainult üks tabel, on see väga lihtne. Kui aga lähtemeilis on mitu tabelit, on käsitsi kopeerimine liiga tüütu. Seega tutvustame järgnevalt teist viisi, mis on palju tõhusam ja intelligentsem.

Kopeerige kõik tabelid kiiresti ühest meilist teise

Kopeerige kõik tabelid ühest meilist teise

  1. Alustuseks peaksite oma Outlookile juurde pääsema nagu tavaliselt.
  2. Seejärel võite Outlooki peaaknas vajutada kiirklahve "Alt + F11".
  3. Seejärel peate hüpikaknas "Microsoft Visual Basic for Applications" avama kasutamata mooduli või lihtsalt sisestama uue.
  4. Järgmisena saate sellesse moodulisse kopeerida järgmise VBA koodi.
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

VBA kood – kopeerige kõik tabelid ühest meilist teise

  1. Pärast seda saate praegusest VBA redaktori aknast väljuda.
  2. Hiljem peaksite muutma oma Outlooki makro sätteid, et kõik makrod lubada.
  3. Samuti on parem lisada see makro kiirpääsu tööriistaribale, mida saate teha "Outlooki suvandites".
  4. Lõpuks saate proovida:
  • Kohe alguses avage või valige meil, mille tabeleid kopeerida.
  • Seejärel vajutage kiirjuurdepääsu tööriistaribal äsja lisatud makronuppu.
  • Kui makro on töötamise lõpetanud, kuvatakse uus e-kiri, kuhu on kleebitud lähtemeili tabelid.

Kaitske Outlooki faili korruptsiooni eest

Kuigi Outlook võib mängida head rolli olenemata sellest, kas see on eraldiseisev meiliklient või privaatne ajakavahaldur, ei saa see siiski olla vigade ja korruptsioonide eest immuunne. Seetõttu on Outlooki andmete kaitsmine kahtlemata vaevaline ja tüütu ülesanne. Peate jälgima oma igapäevast käitumist Outlookis, näiteks ärge klõpsake kahtlastel linkidel, laadige alla ebaturvalisi manuseid või sulgege Outlook valesti ja nii edasi. Loomulikult on teil vaja hoida läheduses täheparandustööriista, nt DataNumen Outlook Repair selles, et saab Outlooki parandamine mured nagu imelihtne.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.