У Outlook, коли вам потрібно витягнути та скопіювати всі таблиці з одного електронного листа в інший, безсумнівно, це втомливо та громіздко робити це вручну. Ця стаття поділиться з вами набагато розумнішим способом.
Іноді вам може знадобитися створити новий електронний лист, який містить таблиці іншого електронного листа. Якщо в електронному листі лише одна таблиця, це дуже просто. Однак, якщо у вихідному електронному листі є кілька таблиць, копіювання вручну надто виснажливо. Отже, далі ми представимо інший спосіб, який є набагато ефективнішим і розумнішим.
Копіювати всі таблиці з одного електронного листа в інший
- Для початку вам слід отримати доступ до Outlook як завжди.
- Потім у головному вікні Outlook можна натиснути комбінації клавіш «Alt + F11».
- Згодом у спливаючому вікні «Microsoft Visual Basic for Applications» потрібно відкрити невикористаний модуль або просто вставити новий.
- Далі ви можете скопіювати наступний код VBA в цей модуль.
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.
- Пізніше вам слід змінити налаштування макросів Outlook, щоб увімкнути всі макроси.
- Крім того, вам краще додати цей макрос на панель швидкого доступу, що можна зробити в «Параметрах Outlook».
- Нарешті ви можете спробувати:
- На самому початку відкрийте або виберіть електронний лист, таблиці якого потрібно скопіювати.
- Потім натисніть щойно додану кнопку макросу на панелі швидкого доступу.
- Після завершення роботи макросу з’явиться новий електронний лист, у який вставлено таблиці вихідного електронного листа.
Захистіть файл Outlook від корупції
Незважаючи на те, що Outlook може відігравати добру роль як окремий клієнт електронної пошти чи приватний менеджер розкладу, він все одно не може бути захищений від помилок і пошкоджень. Таким чином, безсумнівно, захистити ваші дані Outlook є складним і виснажливим завданням. Ви повинні стежити за своєю щоденною поведінкою в Outlook, наприклад, не натискайте підозрілі посилання, не завантажуйте небезпечні вкладення або не закривайте Outlook неналежним чином тощо. Звичайно, вам необхідно тримати поруч зірковий інструмент для ремонту, наприклад DataNumen Outlook Repair в тому, що він може ремонт Outlook клопоти як вітерець.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com