Kaip greitai nukopijuoti visas lenteles iš vieno el. pašto į kitą programoje „Outlook“.

Programoje „Outlook“, kai reikia ištraukti ir nukopijuoti visas lenteles iš vieno el. pašto į kitą, tai neabejotinai varginanti ir sudėtinga tai padaryti rankiniu būdu. Šis straipsnis su jumis pasidalins daug protingesniu būdu.

Kartais galbūt norėsite sukurti naują el. laišką, kuriame būtų kito el. pašto lentelės. Jei el. laiške yra tik viena lentelė, tai labai paprasta. Tačiau jei šaltinio el. laiške yra kelios lentelės, kopijuoti rankiniu būdu yra per daug varginantis. Taigi, toliau pristatysime kitą būdą, kuris yra daug efektyvesnis ir protingesnis.

Nukopijuokite visas lenteles iš vieno el. pašto į kitą

1. Pirmiausia turėtumėte pasiekti savo „Outlook“ kaip įprasta.
2. Tada pagrindiniame „Outlook“ lange galite paspausti „Alt + F11“ sparčiuosius klavišus.
3. Vėliau iššokančiajame lange „Microsoft Visual Basic for Applications“ turite atidaryti nenaudojamą modulį arba tiesiog įdėti naują.
4. Tada į šį modulį galite nukopijuoti šį VBA kodą.

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 to galite išeiti iš dabartinio VBA redaktoriaus lango.
6. Vėliau turėtumėte pakeisti „Outlook“ makrokomandos nustatymus, kad įgalintumėte visas makrokomandas.
7. Be to, geriau pridėti šią makrokomandą prie greitosios prieigos įrankių juostos, kurią galima atlikti „Outlook“ parinktyse.
8. Galiausiai galite pabandyti:

• Pačioje pradžioje atidarykite arba pasirinkite el. laišką, kurio lenteles norite kopijuoti.
• Tada greitosios prieigos įrankių juostoje paspauskite naujai pridėtą makrokomandos mygtuką.
• Pasibaigus makrokomandai, bus rodomas naujas el. laiškas, kuriame buvo įklijuotos šaltinio el. pašto lentelės.

Apsaugokite „Outlook“ failą nuo korupcijos

Nors „Outlook“ gali atlikti gerą vaidmenį, nesvarbu, kaip atskira el. pašto programa ar privati ​​tvarkaraščio tvarkyklė, ji vis tiek negali būti apsaugota nuo klaidų ir pažeidimų. Todėl apsaugoti „Outlook“ duomenis neabejotinai yra sudėtinga ir varginanti užduotis. Turite stebėti savo kasdienį elgesį programoje „Outlook“, pvz., nespustelėti įtartinų nuorodų, atsisiųsti nesaugių priedų arba netinkamai uždaryti „Outlook“ ir pan. Žinoma, jums būtina šalia laikyti žvaigždžių taisymo įrankį, pvz DataNumen Outlook Repair tuo, kad gali pataisyti Outlook bėdos kaip vėjas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf remontas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com