2 enkla sätt att snabbt konvertera ett e-postmeddelande till en mötesinbjudan i Outlook

Om du vill konvertera ett Outlook-e-postmeddelande till en mötesinbjudan kan du hänvisa till den här sidanost. Här delar vi två snabba metoder med dig.

När du får ett e-postmeddelande som innehåller mycket information om ett möte som ska planeras kan du snabbt skapa ett möte direkt från det här e-postmeddelandet. I den här situationen kan du använda någon av följande två metoder enligt dina behov.

Metod 1: Konvertera utan original e-postbilagor

1. Till att börja med väljer du det e-postmeddelande du vill ha.
2. Klicka sedan på knappen "Möte" i gruppen "Svara" på fliken "Hem".
3. På en gång visas en mötesinbjudan, som visas i följande bild.

Anmärkningar:

• Om det ursprungliga e-postmeddelandet har bilagor kopieras inte bilagorna till mötet.
• Och, som du kan se, innehåller mötestrukturen original e-postrubrik, som original avsändare eller mottagare och så vidare.

Om du önskar att original e-postbilagor kan kopieras till mötet och den ursprungliga e-postrubriken kan uteslutas kan du använda metod 2.

Metod 2: Konvertera med original e-postbilagor

1. För somtart, tryck på “Alt + F11” för att utlösa Outlook VBA-redigeraren.
2. Kopiera sedan följande kod till ett projekt eller en 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. Stäng sedan redigeraren och lägg till detta makro i snabbåtkomstverktygsfältet (QAT).
4. Slutligen, välj eller öppna ett e-postmeddelande och klicka på makroknappen i QAT.
5. Omedelbart kommer en mötesinbjudan att visas, som visas på skärmdumpen nedan. De ursprungliga e-postbilagorna ingår och det finns inte original e-postrubrik i kroppen.

Lös Outlook-problem

Även om Outlook är en komplett e-postklient kan den fortfarande inte bli av med en dödlig brist att den är sårbar. Med andra ord kan det lätt skadas. Det betyder också att dina Outlook-data alltid är i fara. Under denna omständighet är most avgörande och tvingande åtgärd är att regelbundet säkerhetskopiera data för Outlook. Dessutom är det klokt att få tag på en kraftfull Outlook-fix verktyg, såsom DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql korruption och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com