Как бързо да копирате всички таблици от един имейл в друг в Outlook

В Outlook, когато трябва да извлечете и копирате всички таблици от един имейл в друг, несъмнено е досадно и тромаво да го направите ръчно. Тази статия ще сподели много по -интелигентен начин с вас.

Понякога може да пожелаете да създадете нов имейл, съдържащ таблиците на друг имейл. Ако в имейла има само една таблица, това е много лесно. Ако обаче в изходния имейл има няколко таблици, ръчното копиране е твърде досадно. Така че по -долу ще представим друг начин, който е много по -ефективен и интелигентен.

Копирайте всички таблици от един имейл в друг

1. Като начало, трябва да имате достъп до Outlook както обикновено.
2. След това в главния прозорец на Outlook можете да натиснете клавишните комбинации „Alt + F11“.
3. Впоследствие в изскачащия прозорец „Microsoft Visual Basic for Applications“ трябва да отворите неизползван модул или просто да вмъкнете нов.
4. След това можете да копирате следния 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

5. След това можете да излезете от текущия прозорец на редактора на VBA.
6. По -късно трябва да промените настройките на макроса на Outlook, за да активирате всички макроси.
7. Също така е по -добре да добавите този макрос към лентата с инструменти за бърз достъп, което може да се направи в „Опции на Outlook“.
8. Накрая можете да опитате:

• В самото начало отворете или изберете имейл, чиито таблици да бъдат копирани.
• След това натиснете ново добавения макро бутон в лентата с инструменти за бърз достъп.
• След като макросът приключи, ще се появи нов имейл, в който са поставени таблиците на изходния имейл.

Защитавайте Outlook файла срещу корупция

Въпреки че Outlook може да играе добра роля, независимо дали е самостоятелен имейл клиент или частен мениджър на график, той все още не може да бъде имунизиран от грешки и повреди. Следователно несъмнено е трудна и досадна задача да защитите данните си в Outlook. Трябва да следите ежедневното си поведение в Outlook, като например да не щраквате върху подозрителни връзки, да изтегляте опасни прикачени файлове или да затваряте Outlook неправилно и т.н. Разбира се, необходимо е да държите наблизо звезден инструмент за ремонт, като напр DataNumen Outlook Repair в това, че може ремонт на Outlook проблеми като бриз.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf ремонт и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com