2 jednostavna načina za brzo pretvaranje e-pošte u pozivnicu za sastanak u programu Outlook

Ako želite pretvoriti Outlook e-poštu u pozivnicu za sastanak, pogledajte ovu strost. Ovdje ćemo s vama podijeliti 2 brza pristupa.

Kada primite e-poruku koja sadrži mnogo informacija o sastanku koji treba zakazati, možda ćete htjeti brzo stvoriti sastanak izravno iz ove e-pošte. U ovoj situaciji možete upotrijebiti jednu od sljedeće dvije metode prema svojim potrebama.

Metoda 1: Pretvorba bez originalnih privitaka e-pošte

1. Za početak odaberite e-mail koji želite.
2. Zatim kliknite gumb "Sastanak" u grupi "Odgovori" na kartici "Početna".
3. Odmah će se prikazati pozivnica za sastanak, kao što je prikazano na sljedećoj slici.

Napomene:

• Na taj način, ako izvorna e-poruka ima privitke, privitci se neće kopirati na sastanak.
• I, kao što vidite, tijelo sastanka sadrži izvorno zaglavlje e-pošte, kao što su izvorni pošiljatelj ili primatelji i tako dalje.

Ako želite da se izvorni privici e-pošte mogu kopirati na sastanak i da se izvorno zaglavlje e-pošte može izuzeti, možete upotrijebiti metodu 2.

Metoda 2: Pretvorba s izvornim privicima e-pošte

1. Za astart, pritisnite “Alt + F11” za pokretanje Outlook VBA uređivača.
2. Zatim kopirajte sljedeći kod u projekt ili 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. Nakon toga izađite iz uređivača i dodajte ovu makronaredbu na alatnu traku za brzi pristup (QAT).
4. Na kraju odaberite ili otvorite e-poštu i kliknite gumb makronaredbe u QAT-u.
5. Odmah će se pojaviti pozivnica za sastanak, kao što je prikazano na snimci zaslona u nastavku. Uključeni su izvorni privici e-pošte i nema izvornog zaglavlja e-pošte u tijelu.

Riješite probleme s Outlookom

Iako je Outlook potpuno opremljen klijent e-pošte, još uvijek se ne može riješiti smrtonosne mane da je ranjiv. Drugim riječima, može se lako pokvariti. To također znači da su vaši Outlook podaci uvijek u opasnosti. U ovoj okolnosti, most ključna i nužna radnja je izrada redovitih sigurnosnih kopija podataka za Outlook. Osim toga, mudro je dočepati se moćnika Outlook popravak alat, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql korupcija i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com