2 paprasti būdai greitai konvertuoti el. laišką į kvietimą į susitikimą programoje „Outlook“.

Jei norite konvertuoti „Outlook“ el. laišką į kvietimą į susitikimą, galite peržiūrėti šį įrašą. Čia pasidalinsime su jumis dviem greitais būdais.

Kai gaunate el. laišką, kuriame yra daug informacijos apie planuojamą susitikimą, galbūt norėsite greitai sukurti susitikimą tiesiai iš šio el. laiško. Esant tokiai situacijai, pagal savo poreikius galite naudoti vieną iš šių 2 būdų.

1 būdas: konvertuokite be originalių el. pašto priedų

1. Norėdami pradėti, pasirinkite norimą el.
2. Tada spustelėkite mygtuką „Susitikimas“ skirtuko „Pagrindinis“ grupėje „Atsakyti“.
3. Iš karto bus rodomas kvietimas į susitikimą, kaip parodyta toliau pateiktame paveikslėlyje.

Pastabos:

• Tokiu būdu, jei pradiniame el. laiške yra priedų, priedai nebus nukopijuoti į susitikimą.
• Ir, kaip matote, susitikimo turinyje yra originali el. laiško antraštė, pvz., pradinis siuntėjas ar gavėjai ir pan.

Jei norite, kad į susitikimą būtų galima nukopijuoti originalius el. pašto priedus, o originali el. laiško antraštė būtų neįtraukta, galite naudoti 2 metodą.

2 būdas: konvertuokite naudodami originalius el. pašto priedus

1. Norėdami pradėti, paspauskite „Alt + F11“, kad paleistumėte „Outlook VBA“ redaktorių.
2. Tada nukopijuokite šį kodą į projektą arba modulį.

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. Po to išeikite iš redaktoriaus ir pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos (QAT).
4. Galiausiai pasirinkite arba atidarykite el. laišką ir spustelėkite makrokomandos mygtuką QAT.
5. Iš karto bus rodomas kvietimas susitikti, kaip parodyta toliau esančioje ekrano kopijoje. Originalūs el. laiškų priedai yra įtraukti, o tekste nėra originalios el. laiško antraštės.

Išspręskite „Outlook“ problemas

Nors „Outlook“ yra visavertė el. pašto programa, ji vis tiek negali atsikratyti mirtino trūkumo – pažeidžiamumo. Kitaip tariant, ją galima lengvai sugadinti. Tai taip pat reiškia, kad jūsų „Outlook“ duomenys visada yra pavojuje. Tokiomis aplinkybėmis svarbiausias ir būtinas veiksmas yra reguliariai kurti „Outlook“ duomenų atsargines kopijas. Be to, protinga turėti galingą... Outlook taisymas įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com