2 лесни начина за бързо конвертиране на имейл в покана за среща в Outlook

Ако искате да конвертирате имейл от Outlook в покана за среща, можете да се обърнете към тази публикация. Тук ще споделим с вас 2 бързи подхода.

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

Метод 1: Конвертиране без оригинални прикачени файлове към имейл

1. Като начало изберете желания имейл.
2. След това щракнете върху бутона „Среща“ в групата „Отговор“ в раздела „Начало“.
3. Веднага ще се покаже покана за събрание, както е показано на следващата фигура.

Забележки:

• По този начин, ако оригиналният имейл има прикачени файлове, прикачените файлове няма да бъдат копирани в събранието.
• И, както можете да видите, тялото на събранието съдържа оригинална заглавка на имейл, като оригинален подател или получатели и т.н.

Ако желаете оригиналните прикачени файлове към имейл да могат да бъдат копирани на събранието и оригиналният заглавен имейл да бъде изключен, можете да използвате Метод 2

Метод 2: Конвертиране с оригинални прикачени файлове към имейл

1. За начало натиснете „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)
 
    '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

3. След това излезте от редактора и добавете този макрос към лентата с инструменти за бърз достъп (QAT).
4. Накрая изберете или отворете имейл и щракнете върху бутона за макрос в QAT.
5. Веднага ще се покаже покана за среща, както е показано на екранната снимка по-долу. Оригиналните прикачени файлове към имейла са включени и в тялото няма оригинална заглавка на имейл.

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

Въпреки че Outlook е пълнофункционален имейл клиент, той все още не може да се отърве от смъртоносен недостатък, а именно уязвимостта си. С други думи, той може лесно да бъде повреден. Това също означава, че вашите данни в Outlook са винаги в опасност. При тези обстоятелства най-важното и наложително действие е да правите редовни резервни копия на данните за Outlook. Освен това е разумно да се сдобиете с мощен... Поправка на Outlook инструмент, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com