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

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

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

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

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

Ноты:

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

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

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

1. Для насtart, нажмите «Alt + F11», чтобы запустить редактор Outlook VBA.
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) 'Копировать вложения, если objMail.Attachments.Count > 0, то для каждого objAttachment в 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 'Исключить исходный заголовок электронной почты .Body = objMail.Body . MeetingStatus = olMeeting .Display End With End Sub

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

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

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

Об авторе:

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