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

Ako želite pretvoriti Outlook e-poštu u pozivnicu za sastanak, možete pogledati ovaj članak. Ovdje ćemo s vama podijeliti dva brza pristupa.

Kada primite e-poštu koja sadrži mnogo informacija o sastanku koji treba zakazati, možda ćete želeti da brzo kreirate sastanak direktno iz ove e-pošte. U ovoj situaciji možete koristiti bilo koju od sljedeće 2 metode prema vašim potrebama.

Metoda 1: Pretvorite bez originalnih priloga e-pošte

1. Za početak odaberite e-poštu koju želite.
2. Zatim kliknite na dugme „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 originalna e-pošta ima priloge, prilozi se neće kopirati na sastanak.
• I, kao što možete vidjeti, tijelo sastanka sadrži originalno zaglavlje e-pošte, kao što su originalni pošiljalac ili primaoci i tako dalje.

Ako želite da se originalni prilozi e-pošte mogu kopirati na sastanak i da se originalno zaglavlje e-pošte može isključiti, možete koristiti metod 2.

Metoda 2: Pretvorite s originalnim prilozima e-pošte

1. Za početak, pritisnite "Alt + F11" da biste pokrenuli Outlook VBA editor.
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 ovaj makro na alatnu traku za brzi pristup (QAT).
4. Na kraju, odaberite ili otvorite e-poštu i kliknite na dugme makro u QAT-u.
5. Odmah će se pojaviti pozivnica za sastanak, kao što je prikazano na slici ispod. Originalni prilozi e-pošte su uključeni i nema originalnog zaglavlja e-pošte u tijelu.

Riješite probleme s Outlookom

Iako je Outlook klijent e-pošte sa svim funkcijama, i dalje se ne može riješiti smrtonosne mane, a to je njegova ranjivost. Drugim riječima, lako se može oštetiti. To također znači da su vaši Outlook podaci uvijek u opasnosti. U ovim okolnostima, najvažnija i najneophodnija radnja je redovno pravljenje sigurnosnih kopija podataka za Outlook. Osim toga, mudro je nabaviti snažan... Outlook popravka alat, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql corruption i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com