Hur man snabbt kopierar alla tabeller från ett e-postmeddelande till ett annat i Outlook

I Outlook, när du behöver extrahera och kopiera alla tabeller från ett e-postmeddelande till ett annat, är det utan tvekan tråkigt och besvärligt att göra det manuellt. Denna artikel kommer att dela ett mycket smartare sätt med dig.

Ibland kanske du vill skapa ett nytt e-postmeddelande som innehåller tabellerna i ett annat e-postmeddelande. Om det bara finns en tabell i e-postmeddelandet är det väldigt enkelt. Men om det finns flera tabeller i käll-e-postmeddelandet är manuell kopiering för tråkig. Så i det följande kommer vi att introducera ett annat sätt som är mycket mer effektivt och intelligent.

Kopiera alla tabeller från en e-post till en annan

1. Till att börja med bör du komma åt din Outlook som vanligt.
2. Sedan, i huvudfönstret i Outlook, kan du trycka på "Alt + F11" genvägar.
3. Därefter, i popup-fönstret “Microsoft Visual Basic for Applications”, måste du öppna en oanvänd modul eller helt enkelt infoga en ny.
4. Därefter kan du kopiera följande VBA-kod till den här modulen.

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. Därefter kan du avsluta det aktuella VBA-redigeringsfönstret.
6. Senare borde du ändra dina Outlook-makroinställningar för att aktivera alla makron.
7. Det är också bättre att du lägger till detta makro i snabbåtkomstverktygsfältet, vilket kan utföras i "Outlook-alternativ".
8. Slutligen kan du prova:

• Från början, öppna eller välj ett e-postmeddelande vars tabeller ska kopieras.
• Tryck sedan på den nyligen tillagda makroknappen i snabbåtkomstverktygsfältet.
• När makrot är klart kommer ett nytt e-postmeddelande att visas, där tabellerna med käll-e-post har klistrats in.

Försvara Outlook-filen mot korruption

Även om Outlook kan spela en bra roll oavsett som en fristående e-postklient eller en privat schemaläggare, kan den fortfarande inte vara immun mot fel och korruption. Därför är det utan tvekan en svår och tråkig uppgift att skydda dina Outlook-data. Du måste hålla koll på ditt dagliga beteende i Outlook, som att inte klicka på misstänkta länkar, ladda ner osäkra bilagor eller stänga Outlook felaktigt och så vidare. Naturligtvis är det nödvändigt för dig att ha ett stjärnreparationsverktyg i närheten, t.ex. DataNumen Outlook Repair genom att det kan reparera Outlook problem som en vind.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive mdf-reparation och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com