2 eenvoudige manieren om een ​​e-mail snel om te zetten in een uitnodiging voor een vergadering in Outlook

Als je een Outlook-e-mail wilt omzetten in een uitnodiging voor een vergadering, kun je dit artikel raadplegen. We delen hier twee snelle methoden met je.

Als u een e-mail ontvangt met veel informatie over een in te plannen vergadering, wilt u misschien snel een vergadering maken, rechtstreeks vanuit deze e-mail. In deze situatie kunt u een van de volgende 2 methoden gebruiken, afhankelijk van uw behoeften.

Methode 1: converteren zonder originele e-mailbijlagen

1. Selecteer om te beginnen de e-mail die u wilt.
2. Klik vervolgens op de knop "Vergadering" in de groep "Reageren" op het tabblad "Home".
3. Er wordt meteen een uitnodiging voor een vergadering weergegeven, zoals weergegeven in de volgende afbeelding.

Opmerkingen:

• Dit betekent dat als de originele e-mail bijlagen heeft, de bijlagen niet naar de vergadering worden gekopieerd.
• En, zoals u kunt zien, bevat de hoofdtekst van de vergadering de originele e-mailheader, zoals de originele afzender of ontvangers, enzovoort.

Als u wilt dat originele e-mailbijlagen naar de vergadering kunnen worden gekopieerd en de oorspronkelijke e-mailheader kan worden uitgesloten, kunt u methode 2 gebruiken.

Methode 2: converteren met originele e-mailbijlagen

1. Druk om te beginnen op "Alt + F11" om de VBA-editor van Outlook te openen.
2. Kopieer vervolgens de volgende code naar een project of module.

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. Verlaat daarna de editor en voeg deze macro toe aan de Quick Access Toolbar (QAT).
4. Selecteer of open ten slotte een e-mail en klik op de macroknop in QAT.
5. Er verschijnt onmiddellijk een uitnodiging voor een vergadering, zoals weergegeven in de onderstaande schermafbeelding. De originele e-mailbijlagen zijn inbegrepen en er is geen originele e-mailheader in de hoofdtekst.

Los Outlook-problemen op

Hoewel Outlook een volwaardige e-mailclient is, kan het een ernstig probleem niet oplossen: het is kwetsbaar. Met andere woorden, het kan gemakkelijk beschadigd raken. Dit betekent ook dat uw Outlook-gegevens altijd gevaar lopen. In deze omstandigheden is het van cruciaal belang om regelmatig back-ups van uw Outlook-gegevens te maken. Daarnaast is het verstandig om een ​​krachtige back-upsoftware aan te schaffen. Outlook-oplossing tool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com