Kā ātri kopēt visas tabulas no viena e-pasta uz citu programmā Outlook

Programmā Outlook, kad jums ir jāizņem un jākopē visas tabulas no viena e-pasta uz citu, tas neapšaubāmi ir nogurdinoši un apgrūtinoši to darīt manuāli. Šajā rakstā ar jums tiks pastāstīts par daudz gudrāku veidu.

Reizēm jūs, iespējams, vēlēsities izveidot jaunu e-pasta ziņojumu, kurā būtu ietvertas cita e-pasta tabulas. Ja e-pastā ir tikai viena tabula, tas ir ļoti vienkārši. Tomēr, ja avota e-pastā ir vairākas tabulas, manuāla kopēšana ir pārāk nogurdinoša. Tāpēc turpmāk mēs iepazīstināsim ar citu veidu, kas ir daudz efektīvāks un viedāks.

Kopējiet visas tabulas no viena e-pasta uz citu

1. Sākumā jums vajadzētu piekļūt savam Outlook kā parasti.
2. Pēc tam galvenajā Outlook logā varat nospiest īsinājumtaustiņus “Alt + F11”.
3. Pēc tam uznirstošajā logā “Microsoft Visual Basic for Applications” ir jāatver neizmantots modulis vai vienkārši jāievieto jauns.
4. Pēc tam šajā modulī varat iekopēt šādu VBA kodu.

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. Pēc tam jūs varat iziet no pašreizējā VBA redaktora loga.
6. Vēlāk jums ir jāmaina Outlook makro iestatījumi, lai iespējotu visus makro.
7. Turklāt labāk ir pievienot šo makro ātrās piekļuves rīkjoslai, ko var paveikt sadaļā “Outlook opcijas”.
8. Visbeidzot, jūs varat izmēģināt:

• Pašā sākumā atveriet vai atlasiet e-pasta ziņojumu, kura tabulas tiks kopētas.
• Pēc tam ātrās piekļuves rīkjoslā nospiediet tikko pievienoto makro pogu.
• Pēc makro darbības pabeigšanas tiks parādīts jauns e-pasta ziņojums, kurā ir ielīmētas avota e-pasta tabulas.

Aizsargājiet Outlook failu pret korupciju

Lai gan programma Outlook var spēlēt labu lomu neatkarīgi no tā, vai tas ir atsevišķs e-pasta klients vai privāts grafiku pārvaldnieks, tā joprojām nevar būt imūna pret kļūdām un bojājumiem. Tāpēc Outlook datu aizsardzība neapšaubāmi ir grūts un nogurdinošs uzdevums. Jums ir jāseko līdzi ikdienas uzvedībai programmā Outlook, piemēram, neklikšķiniet uz aizdomīgām saitēm, nelejupielādējiet nedrošus pielikumus vai nepareizi aizveriet programmu Outlook un tā tālāk. Protams, ir nepieciešams, lai jūs tuvumā turētu zvaigžņu labošanas rīku, piemēram, DataNumen Outlook Repair tajā, ka var labot Outlook nepatikšanas kā vējš.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf remonts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar