2 простых метода быстрого создания задачи Outlook для книги Excel

Некоторым пользователям не терпится быстро создать задачу Outlook для книги Excel. Таким образом, в этой статье мы представим 2 простых подхода к его получению.

Иногда вам может понадобиться создать задачу Outlook из файла Excel для последующих действий или по другим причинам. На самом деле Microsoft Excel поставляется со встроенной функцией «Создать задачу Microsoft Outlook», как и метод 1, представленный ниже. Но он только прикрепит книгу Excel к задаче Outlook. Если вы хотите быстро скопировать все содержимое всех рабочих листов в тело задачи Outlook, вы можете вместо этого использовать метод 2. Теперь читайте дальше, чтобы получить 2 средства в деталях.

Способ 1: используйте команду «Создать задачу Microsoft Outlook» в MS Excel

1. Во-первых, откройте конкретную книгу Excel.
2. Затем нажмите кнопку со стрелкой вниз на панели быстрого доступа.
3. Затем выберите «Дополнительные команды» из выпадающего списка.
4. Позже, в новом окне «Параметры Excel», на вкладке «Панель быстрого доступа» добавьте команду «Создать задачу Microsoft Outlook» на панель быстрого доступа.

• Прежде всего, выберите «Команды не на ленте» из списка «Выбрать команды из».
• Затем найдите и включите команду «Создать задачу Microsoft Outlook».
• После этого нажмите кнопку «Добавить >>» в центре.
• Наконец, нажмите кнопку «ОК».

5. В конце концов, вернувшись к книге Excel, нажмите новую кнопку на панели быстрого доступа.
6. Сразу же отобразится новая задача Outlook, которая была прикреплена к текущей книге Excel, как показано на следующем снимке экрана.

Способ 2: копирование книги Excel в тело задачи Outlook с помощью кода VBA

1. Сначала откройте исходный файл Excel.
2. Затем нажмите «Alt + F11», чтобы вызвать редактор Excel VBA.
3. Затем включите «Microsoft Outlook Object Lib».rarу», о котором вы можете обратиться к «Как добавить объектную библиотекуrary Ссылка в VBA».
4. После этого поместите приведенный ниже код VBA в модуль или проект «ThisWorkbook».

Sub CreateOutlookTaskforExcelWorkbook()
    Dim objOutlookApp As Outlook.Application
    Dim objTask As Outlook.TaskItem
    Dim objWorksheet As Excel.Worksheet
    Dim objTempWorkbook As Excel.Workbook
    Dim objTempWorksheet As Excel.Worksheet
    Dim strTempFolder As String
    Dim strHTMLFile As String
    Dim objHTMLFile As Object
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim objTempMail As Outlook.MailItem
 
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objTask = objOutlookApp.CreateItem(oltaskitem)
    objTask.Subject = ActiveWorkbook.Name
    objTask.Display
 
    For Each objWorksheet In ActiveWorkbook.Sheets
        objWorksheet.UsedRange.Copy
 
        Set objTempWorkbook = Excel.Application.Workbooks.Add(1)
        Set objTempWorksheet = objTempWorkbook.Sheets(1)
        With objTempWorksheet.Cells(1)
             .PasteSpecial xlPasteValues
             .PasteSpecial xlPasteColumnWidths
             .PasteSpecial xlPasteFormats
        End With
 
        strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
        strHTMLFile = strTempFolder & "\Temp" & Format(Now, "yyyymmddhhmmss") & ".htm"
        Set objHTMLFile = objTempWorkbook.PublishObjects.Add(xlSourceRange, strHTMLFile, objTempWorksheet.Name, objTempWorksheet.UsedRange.Address)
        objHTMLFile.Publish (True)

        Set objTempMail = objOutlookApp.CreateItem(olMailItem)
 
        Set objFileSystem = CreateObject("Scripting.FileSystemObject")
        Set objTextStream = objFileSystem.OpenTextFile(strHTMLFile)
        objTempMail.HTMLBody = objTextStream.ReadAll
        objTempMail.Display
 
        objTask.Body = objTask.Body & vbCr & "-----------------------" & vbCr & objTempMail.Body

        objTextStream.Close
        objTempWorkbook.Close False
        Kill strHTMLFile
        objTempMail.Close olDiscard
    Next
End Sub

5. В конце концов, нажмите клавиши «F5».
6. Когда макрос завершится, вы получите задачу Outlook, которая содержит содержимое книги Excel в теле, как показано на следующем снимке экрана.

Восстановить данные Outlook из резервных копий

Настоятельно рекомендуется регулярно создавать резервные копии данных вашего компьютера, включая файлы данных Outlook. Таким образом, вам не нужно беспокоиться о потере данных Outlook. Даже если ваш файл Outlook будет поврежден, вы сможете легко извлечь данные из резервных копий. Но, предполагая, что вы не сделали резервную копию данных, в таких случаях вам нужно попытаться восстановить PST с помощью опытной утилиты исправления, такой как DataNumen Outlook Repair. Он может восстановить PST не вспотев.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com