W programie Outlook, gdy musisz wyodrębnić i skopiować wszystkie tabele z jednego e-maila do drugiego, jest to niewątpliwie żmudne i uciążliwe, aby zrobić to ręcznie. Ten artykuł podzieli się z Tobą o wiele mądrzejszym sposobem.
Czasami możesz chcieć utworzyć nową wiadomość e-mail zawierającą tabele innej wiadomości e-mail. Jeśli e-mail zawiera tylko jedną tabelę, jest to bardzo proste. Jeśli jednak w źródłowej wiadomości e-mail znajduje się wiele tabel, ręczne kopiowanie jest zbyt żmudne. Dlatego w dalszej części przedstawimy inny sposób, który jest znacznie bardziej skuteczny i inteligentny.
Skopiuj wszystkie tabele z jednego e-maila do drugiego
- Na początek powinieneś uzyskać dostęp do programu Outlook w zwykły sposób.
- Następnie w głównym oknie Outlooka możesz nacisnąć klawisze skrótu „Alt + F11”.
- Następnie w wyskakującym oknie „Microsoft Visual Basic for Applications” należy otworzyć nieużywany moduł lub po prostu wstawić nowy.
- Następnie możesz skopiować następujący kod VBA do tego modułu.
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
- Następnie możesz wyjść z bieżącego okna edytora VBA.
- Później powinieneś zmienić ustawienia makr programu Outlook, aby włączyć wszystkie makra.
- Ponadto lepiej jest dodać to makro do paska narzędzi szybkiego dostępu, co można wykonać w „Opcjach programu Outlook”.
- Wreszcie możesz spróbować:
- Na samym początku otwórz lub wybierz maila, którego tabele mają zostać skopiowane.
- Następnie naciśnij nowo dodany przycisk makra na pasku narzędzi szybkiego dostępu.
- Po zakończeniu działania makra pojawi się nowy e-mail, w którym wklejono tabele źródłowego e-maila.
Chroń plik programu Outlook przed korupcją
Chociaż Outlook może odgrywać dobrą rolę, niezależnie od tego, czy jest samodzielnym klientem poczty e-mail, czy prywatnym menedżerem harmonogramu, nadal nie jest odporny na błędy i uszkodzenia. Dlatego ochrona danych programu Outlook jest niewątpliwie żmudnym i żmudnym zadaniem. Musisz mieć oko na swoje codzienne zachowania w Outlooku, takie jak nie klikanie podejrzanych linków, pobieranie niebezpiecznych załączników, niewłaściwe zamykanie Outlooka i tak dalej. Oczywiście konieczne jest, abyś miał w pobliżu gwiezdne narzędzie naprawcze, takie jak DataNumen Outlook Repair w tym, że może napraw Outlooka kłopoty jak bryza.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com