2 preprosta načina za hitro pretvorbo e-pošte v povabilo na sestanek v Outlooku

Če želite pretvoriti Outlookovo e-poštno sporočilo v povabilo na sestanek, si lahko ogledate to objavo. Tukaj bomo z vami delili dva hitra pristopa.

Ko prejmete e-poštno sporočilo, ki vsebuje veliko informacij o sestanku, ki ga nameravate načrtovati, boste morda želeli hitro ustvariti sestanek neposredno iz tega e-poštnega sporočila. V tem primeru lahko glede na vaše potrebe uporabite eno od naslednjih dveh metod.

1. način: pretvorba brez izvirnih e-poštnih prilog

1. Za začetek izberite želeno e-pošto.
2. Nato kliknite gumb »Sestanek« v skupini »Odgovori« na zavihku »Domov«.
3. Takoj se prikaže povabilo na sestanek, kot je prikazano na naslednji sliki.

Opombe:

• Na ta način, če izvirno e-poštno sporočilo vsebuje priloge, priloge ne bodo kopirane v sestanek.
• In kot lahko vidite, telo sestanka vsebuje izvirno glavo e-pošte, kot so izvirni pošiljatelj ali prejemniki in tako naprej.

Če želite, da je izvirne e-poštne priloge mogoče kopirati v sestanek in da je izvirna glava e-poštnega sporočila izključena, lahko uporabite 2. metodo.

2. način: pretvorba z izvirnimi e-poštnimi prilogami

1. Za začetek pritisnite »Alt + F11«, da zaženete urejevalnik VBA v Outlooku.
2. Nato kopirajte naslednjo kodo v projekt ali 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 tem zapustite urejevalnik in dodajte ta makro v orodno vrstico za hitri dostop (QAT).
4. Na koncu izberite ali odprite e-pošto in kliknite gumb makra v QAT.
5. Takoj se prikaže povabilo na sestanek, kot je prikazano na spodnjem posnetku zaslona. Izvirne e-poštne priloge so vključene in v telesu ni izvirne glave e-pošte.

Rešite težave z Outlookom

Čeprav je Outlook polno opremljen e-poštni odjemalec, se še vedno ne more znebiti smrtonosne napake, ki jo predstavlja ranljivost. Z drugimi besedami, zlahka se poškoduje. To pomeni tudi, da so vaši Outlookovi podatki vedno v nevarnosti. V takšnih okoliščinah je najpomembnejši in nujni ukrep redno varnostno kopiranje podatkov za Outlook. Poleg tega je pametno, da si priskrbite zmogljiv e-poštni odjemalec. Outlook popravek orodje, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z sql korupcije in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com