Slik kopierer du raskt alle tabeller fra én e-post til en annen i Outlook

Outlook-løsninger September 29, 2025

I Outlook, når du trenger å trekke ut og kopiere alle tabeller fra en e-post til en annen, er det utvilsomt kjedelig og tungvint å gjøre det manuelt. Denne artikkelen vil dele en mye smartere måte med deg.

Noen ganger kan du ønske å opprette en ny e-post som inneholder tabellene til en annen e-post. Hvis det bare er én tabell i e-posten, er det veldig enkelt. Men hvis det er flere tabeller i kilde-e-posten, er manuell kopiering for kjedelig. Så i det følgende introduserer vi en annen måte som er langt mer effektiv og intelligent.

Kopier raskt alle tabeller fra én e-post til en annen

Kopier alle tabeller fra en e-post til en annen

  1. For det første bør du få tilgang til Outlook som vanlig.
  2. Deretter, i hovedvinduet i Outlook, kan du trykke "Alt + F11" hurtigtaster.
  3. Deretter, i popup-vinduet "Microsoft Visual Basic for Applications", må du åpne en ubrukt modul eller bare sette inn en ny.
  4. Deretter kan du kopiere følgende VBA-kode inn i denne 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

VBA-kode - Kopier alle tabeller fra en e-post til en annen

  1. Etter det kan du avslutte det gjeldende VBA-redigeringsvinduet.
  2. Senere bør du endre Outlook-makroinnstillingene for å aktivere alle makroer.
  3. Du er også bedre å legge til denne makroen til Quick Access Toolbar, som kan gjøres i "Outlook-alternativer".
  4. Endelig kan du prøve:
  • Helt i begynnelsen åpner eller velger du en e-post hvis tabeller skal kopieres.
  • Deretter trykker du på den nylig lagt til makroknappen i verktøylinjen for hurtigtilgang.
  • Etter at makroen er ferdig, vises en ny e-post, der tabellene med kilde-e-post er limt inn.

Forsvar Outlook-fil mot korrupsjon

Selv om Outlook kan spille en god rolle uansett som en frittstående e-postklient eller en privat tidsplanadministrator, kan den fortsatt ikke være immun mot feil og korrupsjon. Derfor er det utvilsomt en vanskelig og kjedelig oppgave å beskytte Outlook-dataene dine. Du må følge med på din daglige oppførsel i Outlook, for eksempel ikke klikke på mistenkelige lenker, laste ned usikre vedlegg eller lukke Outlook feil og så videre. Selvfølgelig er det nødvendig for deg å ha et fantastisk reparasjonsverktøy i nærheten, som f.eks DataNumen Outlook Repair ved at det kan reparere Outlook problemer som en bris.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf reparasjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.