Sådan kopieres hurtigt alle tabeller fra en e-mail til en anden i Outlook

I Outlook, når du har brug for at udpakke og kopiere alle tabeller fra en e-mail til en anden, er det utvivlsomt kedeligt og besværligt at gøre det manuelt. Denne artikel vil dele en meget smartere måde med dig.

Til tider kan du ønske at oprette en ny e-mail, der indeholder tabellerne i en anden e-mail. Hvis der kun er en tabel i e-mailen, er det meget let. Men hvis der er flere tabeller i kilde-mailen, er manuel kopiering for kedelig. Så i det følgende introducerer vi en anden måde, der er langt mere effektiv og intelligent.

Kopier alle tabeller fra en e-mail til en anden

1. Til at starte med bør du tilgå din Outlook som normalt.
2. Derefter kan du i hovedvinduet i Outlook trykke på "Alt + F11" genvejstaster.
3. Derefter skal du i popup-vinduet “Microsoft Visual Basic for Applications” åbne et ubrugt modul eller blot indsætte et nyt.
4. Dernæst kan du kopiere følgende VBA-kode til dette 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. Derefter kan du afslutte det nuværende VBA-editorvindue.
6. Senere skal du ændre dine Outlook-makroindstillinger for at aktivere alle makroer.
7. Det er også bedre for dig at tilføje denne makro til værktøjslinjen Hurtig adgang, hvilket kan udføres i "Outlook-indstillinger".
8. Endelig kan du prøve:

• Åbn eller vælg en e-mail, hvis tabeller der skal kopieres, lige fra starten.
• Tryk derefter på den nyligt tilføjede makroknap i værktøjslinjen Hurtig adgang.
• Når makroen er kørt, vises en ny e-mail, hvor tabellerne med kilde-e-mail er indsat.

Forsvar Outlook-filen mod korruption

Selvom Outlook kan spille en god rolle uanset som en enkeltstående e-mail-klient eller en privat tidsplanadministrator, kan den stadig ikke være immun over for fejl og korruption. Derfor er det utvivlsomt en besværlig og kedelig opgave at beskytte dine Outlook-data. Du er nødt til at holde øje med din daglige opførsel i Outlook, såsom ikke at klikke på mistænkelige links, downloade usikre vedhæftede filer eller lukke Outlook forkert og så videre. Selvfølgelig er det nødvendigt for dig at have et stjerneværktøj i nærheden, f.eks DataNumen Outlook Repair i at det kan reparere Outlook problemer som en leg.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf reparation og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com