Если вы хотите преобразовать электронное письмо 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
Ух ты, фантастический формат блога! Как долго вы ведете блог?
вы сделали ведение блога простым. Полный вид вашего сайта
великолепно, не говоря уже о содержании! Вы можете увидеть подобное:
Miradora.top и здесь Miradora.top