Snel alle tabellen kopiëren van de ene e-mail naar de andere in Outlook

Wanneer u in Outlook alle tabellen van de ene e-mail naar de andere moet extraheren en kopiëren, is het ongetwijfeld vervelend en omslachtig om dit handmatig te doen. Dit artikel zal een veel slimmere manier met u delen.

Soms wilt u misschien een nieuwe e-mail maken met de tabellen van een andere e-mail. Als er maar één tabel in de e-mail staat, is dat heel eenvoudig. Als er echter meerdere tabellen in de bron-e-mail staan, is handmatig kopiëren te vervelend. Daarom introduceren we in het volgende een andere manier die veel effectiever en intelligenter is.

Kopieer alle tabellen van de ene e-mail naar de andere

1. Om te beginnen moet u Outlook op de gebruikelijke manier openen.
2. Vervolgens kunt u in het hoofdvenster van Outlook op de sneltoetsen "Alt + F11" drukken.
3. Vervolgens moet u in het pop-upvenster “Microsoft Visual Basic for Applications” een ongebruikte module openen of eenvoudigweg een nieuwe invoegen.
4. Vervolgens kunt u de volgende VBA-code naar deze module kopiëren.

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. Daarna kunt u het huidige VBA-editorvenster afsluiten.
6. Later moet u uw Outlook-macro-instellingen wijzigen om alle macro's in te schakelen.
7. U kunt deze macro ook beter toevoegen aan de werkbalk Snelle toegang, wat u kunt doen in "Outlook-opties".
8. Eindelijk kun je het proberen:

• Open of selecteer vanaf het allereerste begin een e-mail waarvan u de tabellen wilt kopiëren.
• Druk vervolgens op de nieuw toegevoegde macroknop in de werkbalk Snelle toegang.
• Nadat de macro is uitgevoerd, verschijnt er een nieuwe e-mail waarin de tabellen met de bron-e-mail zijn geplakt.

Verdedig Outlook-bestand tegen corruptie

Hoewel Outlook een goede rol kan spelen, ongeacht of het een zelfstandige e-mailclient of een privéplanningsbeheerder is, kan het nog steeds niet immuun zijn voor fouten en beschadigingen. Daarom is het ongetwijfeld een zware en vervelende taak om uw Outlook-gegevens te beschermen. U moet uw dagelijkse gedrag in Outlook in de gaten houden, bijvoorbeeld niet op verdachte links klikken, onveilige bijlagen downloaden of Outlook op de verkeerde manier afsluiten, enzovoort. Natuurlijk is het noodzakelijk dat u een uitstekend reparatiegereedschap bij de hand heeft, zoals DataNumen Outlook Repair daarin kan het reparatie Outlook problemen als een briesje.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf reparatie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com