2 enkle måter å raskt konvertere en e-post til en møteinvitasjon i Outlook

Hvis du ønsker å konvertere en Outlook-e-post til en møteinvitasjon, kan du se dette innlegget. Her deler vi to raske fremgangsmåter med deg.

Når du mottar en e-post som inneholder mye informasjon om et møte som skal planlegges, vil du kanskje raskt opprette et møte direkte fra denne e-posten. I denne situasjonen kan du bruke en av de følgende 2 metodene i henhold til dine behov.

Metode 1: Konverter uten originale e-postvedlegg

1. Til å begynne med, velg e-posten du ønsker.
2. Klikk deretter på "Møte"-knappen i "Svar"-gruppen på "Hjem"-fanen.
3. En møteinvitasjon vises med en gang, som vist i følgende figur.

Merknader:

• På denne måten, hvis den opprinnelige e-posten har vedlegg, vil ikke vedleggene bli kopiert til møtet.
• Og som du kan se, inneholder møteteksten original e-postoverskrift, for eksempel original avsender eller mottakere og så videre.

Hvis du ønsker at originale e-postvedlegg kan kopieres til møtet og den originale e-postoverskriften kan ekskluderes, kan du bruke metode 2.

Metode 2: Konverter med originale e-postvedlegg

1. For å starte, trykk «Alt + F11» for å aktivere Outlook VBA-editoren.
2. Deretter kopierer du følgende kode inn i et prosjekt 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. Deretter går du ut av redigeringsprogrammet og legger til denne makroen i Quick Access Toolbar (QAT).
4. Til slutt, velg eller åpne en e-post og klikk på makroknappen i QAT.
5. Med en gang vil en møteinvitasjon vises, som vist på skjermbildet nedenfor. De originale e-postvedleggene er inkludert, og det er ikke original e-postoverskrift i brødteksten.

Løs Outlook-problemer

Selv om Outlook er en fullfunksjonell e-postklient, kan den fortsatt ikke kvitte seg med den dødelige feilen den er sårbar. Med andre ord kan den lett bli ødelagt. Det betyr også at Outlook-dataene dine alltid er i fare. Under slike omstendigheter er det viktigste og mest nødvendige å ta regelmessige sikkerhetskopier av data for Outlook. Dessuten er det lurt å skaffe seg et kraftig program. Outlook-fiks verktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med