Если вы хотите преобразовать электронное письмо 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) 'Копировать вложения, если 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
- После этого выйдите из редактора и добавьте этот макрос на панель быстрого доступа (QAT).
- Наконец, выберите или откройте электронное письмо и нажмите кнопку макроса в QAT.
- Сразу же появится приглашение на встречу, как показано на скриншоте ниже. Оригинальные вложения электронной почты включены, и в теле нет исходного заголовка электронной почты.
Решение проблем с Outlook
Хотя Outlook является полнофункциональным почтовым клиентом, он по-прежнему не может избавиться от смертельной уязвимости. Другими словами, его можно легко испортить. Это также означает, что ваши данные Outlook всегда в опасности. В этом случае мost Важным и обязательным действием является регулярное резервное копирование данных для Outlook. Кроме того, разумно заполучить мощный Исправление Outlook инструмент, такой как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая sql-повреждение и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com