2 простых способа быстро преобразовать электронное письмо в приглашение на собрание в Outlook

Перспективные решения 29 сентября, 2025

Если вы хотите преобразовать электронное письмо Outlook в приглашение на собрание, вы можете обратиться к этой статье. Здесь мы поделимся с вами двумя быстрыми способами.

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

Способ 1: конвертировать без исходных вложений электронной почты

Для начала выберите нужную электронную почту.
Затем нажмите кнопку «Встреча» в группе «Ответить» на вкладке «Главная».
Сразу же отобразится приглашение на собрание, как показано на следующем рисунке.

Примечание:

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

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

Способ 2: конвертировать с оригинальными вложениями электронной почты

Для начала нажмите «Alt + F11», чтобы открыть редактор VBA для Outlook.
Затем скопируйте следующий код в проект или модуль.

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

После этого выйдите из редактора и добавьте этот макрос на панель быстрого доступа (QAT).
Наконец, выберите или откройте электронное письмо и нажмите кнопку макроса в QAT.
Сразу же появится приглашение на встречу, как показано на скриншоте ниже. Оригинальные вложения электронной почты включены, и в теле нет исходного заголовка электронной почты.

Решение проблем с Outlook

Несмотря на то, что Outlook — это полнофункциональный почтовый клиент, он всё же не может избавиться от одной смертельно опасной уязвимости. Другими словами, его легко повредить. Это также означает, что ваши данные Outlook всегда находятся под угрозой. В таких обстоятельствах наиболее важным и необходимым действием является регулярное резервное копирование данных Outlook. Кроме того, разумно приобрести мощный облачный накопитель. Исправление Outlook инструмент, такой как DataNumen Outlook Repair.

Об авторе:

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