Kako brzo kopirati sve tablice iz jedne e-pošte u drugu u programu Outlook

U Outlooku, kada trebate izdvojiti i kopirati sve tablice iz jedne e-pošte u drugu, nedvojbeno je zamorno i nezgrapno to raditi ručno. Ovaj će članak s vama podijeliti mnogo pametniji način.

Ponekad ćete možda poželjeti stvoriti novu e-poštu koja će sadržavati tablice druge e-pošte. Ako postoji samo jedna tablica u e-poruci, to je vrlo jednostavno. Međutim, ako postoji više tablica u izvornoj e-pošti, ručno kopiranje je previše zamorno. Dakle, u nastavku ćemo predstaviti još jedan način koji je daleko učinkovitiji i inteligentniji.

Kopirajte sve tablice iz jedne e-pošte u drugu

1. Za početak, trebali biste pristupiti Outlooku kao i obično.
2. Zatim, u glavnom prozoru programa Outlook, možete pritisnuti tipke prečaca "Alt + F11".
3. Nakon toga, u skočnom prozoru "Microsoft Visual Basic for Applications", trebate otvoriti neiskorišteni modul ili jednostavno umetnuti novi.
4. Zatim možete kopirati sljedeći VBA kod u ovaj 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. Nakon toga možete izaći iz trenutnog prozora uređivača VBA.
6. Kasnije biste trebali promijeniti postavke makronaredbi programa Outlook da biste omogućili sve makronaredbe.
7. Također, bolje je da ovu makronaredbu dodate na alatnu traku za brzi pristup, što se može postići u “Opcijama Outlooka”.
8. Konačno možete isprobati:

• Na samom početku otvorite ili odaberite email čije tablice želite kopirati.
• Zatim pritisnite novododani makro gumb na alatnoj traci za brzi pristup.
• Nakon što se makronaredba završi s radom, pojavit će se nova e-pošta u koju su zalijepljene tablice izvorne e-pošte.

Obranite Outlook datoteku od oštećenja

Iako Outlook može odigrati dobru ulogu bez obzira kao samostalni klijent e-pošte ili privatni upravitelj rasporeda, još uvijek ne može biti imun na pogreške i oštećenja. Stoga je nedvojbeno težak i zamoran zadatak zaštititi svoje Outlook podatke. Morate pratiti svoje svakodnevno ponašanje u Outlooku, kao što je ne klikati na sumnjive veze, preuzimati nesigurne privitke ili nepropisno zatvarati Outlook i tako dalje. Naravno, potrebno je da u blizini držite zvjezdani alat za popravak, kao npr DataNumen Outlook Repair u tome što može popraviti Outlook nevolje poput povjetarca.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com