Wenn Sie in Outlook alle Tabellen von einer E-Mail in eine andere extrahieren und kopieren müssen, ist es zweifellos mühsam und umständlich, dies manuell zu tun. Dieser Artikel wird einen viel intelligenteren Weg mit Ihnen teilen.
Manchmal möchten Sie möglicherweise eine neue E-Mail erstellen, die die Tabellen einer anderen E-Mail enthält. Wenn die E-Mail nur eine Tabelle enthält, ist dies sehr einfach. Wenn die Quell-E-Mail jedoch mehrere Tabellen enthält, ist das manuelle Kopieren zu mühsam. Im Folgenden stellen wir einen anderen Weg vor, der weitaus effektiver und intelligenter ist.
Kopieren Sie alle Tabellen von einer E-Mail in eine andere
- Zunächst sollten Sie wie gewohnt auf Ihr Outlook zugreifen.
- Anschließend können Sie im Outlook-Hauptfenster die Tastenkombinationen „Alt + F11“ drücken.
- Anschließend müssen Sie im Popup-Fenster „Microsoft Visual Basic für Applikationen“ ein nicht verwendetes Modul öffnen oder einfach ein neues einfügen.
- Als Nächstes können Sie den folgenden VBA-Code in dieses Modul kopieren.
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
- Danach können Sie das aktuelle VBA-Editorfenster verlassen.
- Später sollten Sie Ihre Outlook-Makroeinstellungen ändern, um alle Makros zu aktivieren.
- Außerdem ist es besser, dieses Makro zur Symbolleiste für den Schnellzugriff hinzuzufügen, was unter „Outlook-Optionen“ ausgeführt werden kann.
- Endlich können Sie es versuchen:
- Öffnen oder wählen Sie gleich zu Beginn eine E-Mail aus, deren Tabellen kopiert werden sollen.
- Klicken Sie dann auf die neu hinzugefügte Makroschaltfläche in der Symbolleiste für den Schnellzugriff.
- Nachdem das Makro ausgeführt wurde, wird eine neue E-Mail angezeigt, in die die Tabellen der Quell-E-Mail eingefügt wurden.
Verteidigen Sie die Outlook-Datei gegen Korruption
Obwohl Outlook als eigenständiger E-Mail-Client oder privater Zeitplan-Manager eine gute Rolle spielen kann, kann es dennoch nicht vor Fehlern und Beschädigungen gefeit sein. Daher ist es zweifellos eine mühsame und mühsame Aufgabe, Ihre Outlook-Daten zu schützen. Sie müssen Ihr tägliches Verhalten in Outlook im Auge behalten, z. B. nicht auf verdächtige Links klicken, unsichere Anhänge herunterladen oder Outlook nicht ordnungsgemäß schließen usw. Natürlich ist es notwendig, dass Sie ein hervorragendes Reparaturwerkzeug in der Nähe haben, z DataNumen Outlook Repair , dass es kann Outlook reparieren Probleme wie eine Brise.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich MDF-Reparatur und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX