2 nemme måder at hurtigt konvertere en e-mail til en mødeinvitation i Outlook

Hvis du gerne vil konvertere en Outlook-e-mail til en mødeinvitation, kan du læse dette indlæg. Her deler vi to hurtige metoder med dig.

Når du modtager en e-mail, der indeholder mange oplysninger om et møde, der skal planlægges, kan du måske hurtigt oprette et møde direkte fra denne e-mail. I denne situation kan du bruge en af ​​følgende to metoder efter dine behov.

Metode 1: Konverter uden originale e-mail-vedhæftede filer

1. Til at begynde med skal du vælge den ønskede e-mail.
2. Klik derefter på knappen "Møde" i gruppen "Svar" på fanen "Hjem".
3. Straks vises en mødeinvitation som vist i følgende figur.

Bemærkninger:

• På denne måde, hvis den originale e-mail har vedhæftede filer, kopieres vedhæftede filer ikke til mødet.
• Og som du kan se, indeholder mødeteksten den originale e-mail-overskrift, såsom den oprindelige afsender eller modtagere og så videre.

Hvis du ønsker, at originale e-mail-vedhæftede filer kan kopieres til mødet, og den originale e-mail-overskrift kunne udelukkes, kan du bruge metode 2.

Metode 2: Konverter med originale e-mail-vedhæftede filer

1. Til at starte med skal du trykke på “Alt + F11” for at aktivere Outlook VBA-editoren.
2. Kopier derefter følgende kode til et projekt eller 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. Derefter skal du afslutte editoren og tilføje denne makro til Quick Access Toolbar (QAT).
4. Endelig skal du vælge eller åbne en e-mail og klikke på makroknappen i QAT.
5. På en gang vises en mødeinvitation som vist i skærmbilledet nedenfor. De originale vedhæftede filer i e-mail er inkluderet, og der er ikke original e-mail-overskrift i kroppen.

Løs Outlook-problemer

Selvom Outlook er en fuldt udstyret e-mailklient, kan den stadig ikke slippe af med den dødelige fejl, den er sårbar. Med andre ord kan den nemt blive beskadiget. Det betyder også, at dine Outlook-data altid er i fare. Under disse omstændigheder er den mest afgørende og bydende handling at lave regelmæssige sikkerhedskopier af data til Outlook. Derudover er det klogt at få fat i en kraftfuld Outlook-rettelse værktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql korruption og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com