2 helppoa tapaa muuntaa sähköposti nopeasti kokouskutsuksi Outlookissa

Jos haluat muuntaa Outlook-sähköpostin kokouskutsukseksi, voit tutustua tähän viestiin. Tässä jaamme kaksi nopeaa lähestymistapaa kanssasi.

Kun saat sähköpostin, joka sisältää paljon tietoa suunnitellusta kokouksesta, kannattaa ehkä luoda kokous nopeasti tästä sähköpostista. Tässä tilanteessa voit käyttää jompaa kumpaa seuraavista tavoista tarpeidesi mukaan.

Tapa 1: Muunna ilman alkuperäisiä sähköpostiliitteitä

1. Aluksi valitse haluamasi sähköpostiosoite.
2. Napsauta sitten Koti-välilehden Vastaa-ryhmän Kokous-painiketta.
3. Kokouskutsu tulee heti näkyviin seuraavan kuvan mukaisesti.

Huomautuksia:

• Tällä tavalla, jos alkuperäisessä sähköpostissa on liitteitä, liitteitä ei kopioida kokoukseen.
• Ja kuten näette, kokouksen runko sisältää alkuperäisen sähköpostiotsikon, kuten alkuperäisen lähettäjän tai vastaanottajat jne.

Jos haluat, että alkuperäiset sähköpostiliitteet voidaan kopioida kokoukseen ja alkuperäinen sähköpostiotsikko voidaan sulkea pois, voit käyttää tapaa 2.

Tapa 2: Muunna alkuperäisillä sähköpostiliitteillä

1. Aloita painamalla "Alt + F11" käynnistääksesi Outlook VBA -editorin.
2. Kopioi sitten seuraava koodi projektiin tai moduuliin.

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. Tämän jälkeen poistu editorista ja lisää tämä makro Quick Access Toolbariin (QAT).
4. Valitse lopuksi sähköposti tai avaa se ja napsauta makropainiketta QAT: ssa.
5. Kokouskutsu ilmestyy kerralla, kuten alla olevassa kuvakaappauksessa näkyy. Alkuperäiset sähköpostiliitteet ovat mukana, eikä tekstissä ole alkuperäistä sähköpostin otsikkoa.

Ratkaise Outlook-ongelmat

Vaikka Outlook on täysiverinen sähköpostiohjelma, se ei silti pääse eroon vakavasta heikkoudesta eli sen haavoittuvuudesta. Toisin sanoen se voi vioittua helposti. Tämä tarkoittaa myös sitä, että Outlook-tietosi ovat aina vaarassa. Tässä tilanteessa tärkein ja välttämättömin toimenpide on tehdä säännöllisiä varmuuskopioita Outlookista. Lisäksi on viisasta hankkia tehokas... Outlook-korjaus työkalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com