Cum să copiați rapid toate tabelele de la un e-mail la altul în Outlook

În Outlook, atunci când trebuie să extrageți și să copiați toate tabelele de la un e-mail la altul, este, fără îndoială, plictisitor și greoi să o faceți manual. Acest articol vă va împărtăși un mod mult mai inteligent.

Uneori, este posibil să doriți să creați un nou e-mail care să conțină tabelele unui alt e-mail. Dacă există un singur tabel în e-mail, este foarte ușor. Cu toate acestea, dacă există mai multe tabele în e-mailul sursă, copierea manuală este prea plictisitoare. Deci, în cele ce urmează, vom introduce un alt mod care este mult mai eficient și mai inteligent.

Copiați toate tabelele de la un e-mail la altul

1. Pentru început, ar trebui să accesezi Outlook ca de obicei.
2. Apoi, în fereastra principală Outlook, puteți apăsa tastele de comandă rapidă „Alt + F11”.
3. Ulterior, în fereastra pop-up „Microsoft Visual Basic for Applications”, trebuie să deschideți un modul neutilizat sau pur și simplu să introduceți unul nou.
4. Apoi, puteți copia următorul cod VBA în acest modul.

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. După aceea, puteți ieși din fereastra actuală a editorului VBA.
6. Mai târziu, ar trebui să modificați setările macrocomenzilor Outlook pentru a activa toate macrocomenzile.
7. De asemenea, este mai bine să adăugați această macrocomandă la Bara de instrumente Acces rapid, care poate fi realizată în „Opțiuni Outlook”.
8. În sfârșit, puteți încerca:

• De la bun început, deschideți sau selectați un e-mail ale cărui tabele să fie copiate.
• Apoi, apăsați pe butonul macro nou adăugat în Bara de instrumente Acces rapid.
• După ce macrocomanda se termină de rulat, va apărea un nou e-mail, în care au fost lipite tabelele de e-mail sursă.

Apărați fișierul Outlook împotriva corupției

Deși Outlook poate juca un rol bun, indiferent ca client de e-mail de sine stătător sau manager de program privat, nu poate fi totuși imun la erori și corupții. Prin urmare, este, fără îndoială, o sarcină anevoioasă și plictisitoare să vă protejați datele Outlook. Trebuie să urmăriți comportamentele zilnice în Outlook, cum ar fi să nu faceți clic pe linkuri suspecte, să descărcați atașamente nesigure sau să închideți Outlook incorect și așa mai departe. Desigur, este necesar să păstrați în apropiere un instrument de reparare stelară, cum ar fi DataNumen Outlook Repair prin aceea că poate repara Outlook necazurile ca o briză.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparatie mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com