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

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

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

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

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

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

Примечание:

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

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

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

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

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 всегда в опасности. В этом случае мost Важным и обязательным действием является регулярное резервное копирование данных для Outlook. Кроме того, разумно заполучить мощный Исправление Outlook инструмент, такой как DataNumen Outlook Repair.

Об авторе:

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