2 простих способи швидко перетворити електронний лист на запрошення на нараду в Outlook

Якщо ви хочете перетворити електронний лист Outlook на запрошення на зустріч, ви можете звернутися до цієї публікації. Тут ми поділимося з вами двома швидкими підходами.

Коли ви отримуєте електронний лист із великою кількістю інформації про заплановану зустріч, ви можете швидко створити зустріч безпосередньо з цього електронного листа. У цій ситуації ви можете скористатися будь-яким із наведених нижче 2 методів відповідно до ваших потреб.

Спосіб 1. Перетворення без оригінальних вкладень електронної пошти

1. Для початку виберіть потрібну електронну адресу.
2. Потім натисніть кнопку «Зустріч» у групі «Відповісти» на вкладці «Головна».
3. Відразу з’явиться запрошення на зустріч, як показано на малюнку нижче.

Примітки:

• Таким чином, якщо оригінальний електронний лист містить вкладення, вкладення не буде скопійовано до зустрічі.
• І, як бачите, тіло наради містить оригінальний заголовок електронної пошти, як-от оригінальний відправник або одержувачі тощо.

Якщо ви бажаєте, щоб оригінальні вкладення електронної пошти можна було скопіювати на нараду, а вихідний заголовок електронної пошти можна було виключити, ви можете скористатися способом 2.

Спосіб 2. Перетворення за допомогою оригінальних вкладень електронної пошти

1. Для початку натисніть «Alt + F11», щоб запустити редактор VBA Outlook.
2. Потім скопіюйте наступний код у проект або модуль.

Sub ConvertEmailtoMeeting()
    Dim objMail As Outlook.MailItem
    Dim objMeeting As Outlook.AppointmentItem
    Dim objAttachment As Outlook.Attachment
    Dim strFilePath As String
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.currentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objMeeting = Outlook.Application.CreateItem(olAppointmentItem)
 
    'Copy Attachments
    If objMail.Attachments.Count > 0 Then
       For Each objAttachment In objMail.Attachments
           strFilePath = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp\" & objAttachment.FileName
           objAttachment.SaveAsFile (strFilePath)
 
           objMeeting.Attachments.Add strFilePath
 
           Kill strFilePath
       Next
    End If
 
    With objMeeting
        .Subject = objMail.Subject
        'Exclude Original Email Header
        .Body = objMail.Body
        .MeetingStatus = olMeeting
        .Display
    End With
End Sub

3. Після цього вийдіть із редактора та додайте цей макрос на панель швидкого доступу (QAT).
4. Нарешті виберіть або відкрийте електронний лист і натисніть кнопку макросу в QAT.
5. Відразу з’явиться запрошення на зустріч, як показано на знімку екрана нижче. Оригінальні вкладення електронної пошти включено, а оригінальний заголовок електронної пошти відсутній у тілі.

Вирішення проблем Outlook

Хоча Outlook є повнофункціональним поштовим клієнтом, він все ще не може позбутися фатальної вади, а саме своєї вразливості. Іншими словами, його можна легко пошкодити. Це також означає, що ваші дані Outlook завжди перебувають у небезпеці. За таких обставин найважливішою та найважливішою дією є регулярне резервне копіювання даних Outlook. Крім того, розумно придбати потужний Виправлення в Outlook інструмент, такий як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql корупція та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com