2 lihtsat viisi e-kirja kiireks muutmiseks Outlookis koosolekukutseks

Outlooki lahendused September 29, 2025

Kui soovite Outlooki e-kirja koosolekukutseks teisendada, saate vaadata seda postitust. Siin jagame teiega kahte kiiret lähenemisviisi.

Kui saate meili, mis sisaldab palju teavet kavandatava koosoleku kohta, võite soovida kiiresti koosoleku luua otse sellest meilist. Sellises olukorras saate vastavalt oma vajadustele kasutada ühte kahest järgmisest meetodist.

1. meetod: teisendage ilma algsete meilimanusteta

  1. Alustuseks valige soovitud meil.
  2. Seejärel klõpsake vahekaardi "Kodu" rühmas "Vasta" nuppu "Koosolek".Klõpsake nuppu "Koosolek".
  3. Kohe kuvatakse koosolekukutse, nagu on näidatud järgmisel joonisel.Kohtumine algse meili päisega

Märkused:

  • See tähendab, et kui algsel meilil on manuseid, ei kopeerita manuseid koosolekule.
  • Ja nagu näete, sisaldab koosoleku sisu algset meilipäist, nagu algne saatja või saajad jne.

Kui soovite, et algsed meilimanused saaks koosolekule kopeerida ja algse meili päise välistada, võite kasutada 2. meetodit.

2. meetod: teisendage algsete meilimanustega

  1. Alustamiseks vajutage Outlook VBA redaktori käivitamiseks klahvikombinatsiooni „Alt + F11”.
  2. Seejärel kopeerige järgmine kood projekti või moodulisse.
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

VBA kood – teisendage meil koosolekukutseks

  1. Pärast seda väljuge redaktorist ja lisage see makro kiirpääsu tööriistaribale (QAT).
  2. Lõpuks valige või avage meil ja klõpsake QATis makronuppu.
  3. Kohe kuvatakse koosolekukutse, nagu on näidatud alloleval ekraanipildil. Algsed e-kirja manused on kaasas ja selle sisus pole algset meilipäist.Koosolek teisendati meilist

Outlooki probleemide lahendamine

Kuigi Outlook on täisfunktsionaalne e-posti klient, ei saa see siiski lahti surmavast puudusest – selle haavatavusest. Teisisõnu, seda saab kergesti rikkuda. See tähendab ka seda, et teie Outlooki andmed on alati ohus. Sellises olukorras on kõige olulisem ja hädavajalikum toiming Outlooki andmete regulaarne varukoopiate tegemine. Lisaks on tark hankida võimas... Outlooki parandus tööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql korruptsioon ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.