Outlook-ում էլփոստը հանդիպման հրավերի արագ փոխարկելու 2 հեշտ եղանակ

Եթե ​​ցանկանում եք 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. Դրանից հետո, դուրս եկեք խմբագրից և ավելացրեք այս մակրո Quick Access Toolbar-ում (QAT):
4. Ի վերջո, ընտրեք կամ բացեք նամակ և սեղմեք մակրո կոճակը QAT-ում:
5. Միանգամից կհայտնվի հանդիպման հրավեր, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում: Էլփոստի բնօրինակ կցորդները ներառված են, և բնօրինակ էլփոստի վերնագիր չկա մարմնում:

Լուծել Outlook-ի խնդիրները

Չնայած Outlook-ը լիարժեք գործառույթներով էլ. փոստի հաճախորդ է, այն դեռևս չի կարողանում ազատվել իր խոցելի մահացու թերությունից։ Այլ կերպ ասած, այն կարող է հեշտությամբ վնասվել։ Դա նաև նշանակում է, որ ձեր Outlook տվյալները միշտ վտանգի տակ են։ Այս դեպքում ամենակարևոր և անհրաժեշտ գործողությունը Outlook-ի տվյալների պարբերաբար պահուստավորումն է։ Բացի այդ, խելամիտ է ձեռք բերել հզոր էլ. փոստի հաճախորդ։ Outlook- ի շտկում գործիք, ինչպիսիք են DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql կոռուպցիան և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com