2 εύκολοι τρόποι για γρήγορη μετατροπή ενός email σε πρόσκληση σε σύσκεψη στο Outlook

Αν θέλετε να μετατρέψετε ένα email του Outlook σε πρόσκληση σε σύσκεψη, μπορείτε να ανατρέξετε σε αυτήν την ανάρτηση. Εδώ θα μοιραστούμε μαζί σας 2 γρήγορες προσεγγίσεις.

Όταν λάβετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου που περιέχει πολλές πληροφορίες σχετικά με μια σύσκεψη που πρόκειται να προγραμματιστεί, ίσως θελήσετε να δημιουργήσετε γρήγορα μια σύσκεψη απευθείας από αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου. Σε αυτήν την περίπτωση, μπορείτε να χρησιμοποιήσετε οποιαδήποτε από τις ακόλουθες 2 μεθόδους σύμφωνα με τις ανάγκες σας.

Μέθοδος 1: Μετατροπή χωρίς πρωτότυπα συνημμένα email

1. Αρχικά, επιλέξτε το email που θέλετε.
2. Στη συνέχεια, κάντε κλικ στο κουμπί "Συνάντηση" στην ομάδα "Απάντηση" στην καρτέλα "Αρχική σελίδα".
3. Αμέσως, θα εμφανιστεί μια πρόσκληση σε σύσκεψη, όπως φαίνεται στο παρακάτω σχήμα.

:

• Αυτό σημαίνει ότι, εάν το αρχικό μήνυμα ηλεκτρονικού ταχυδρομείου έχει συνημμένα, τα συνημμένα δεν θα αντιγραφούν στη σύσκεψη.
• Και, όπως μπορείτε να δείτε, το σώμα της σύσκεψης περιέχει την αρχική κεφαλίδα email, όπως τον αρχικό αποστολέα ή τους παραλήπτες και ούτω καθεξής.

Εάν επιθυμείτε να μπορούν να αντιγραφούν τα πρωτότυπα συνημμένα email στη σύσκεψη και να αποκλειστεί η αρχική κεφαλίδα email, μπορείτε να χρησιμοποιήσετε τη Μέθοδο 2.

Μέθοδος 2: Μετατροπή με πρωτότυπα συνημμένα email

1. Για αρχή, πατήστε "Alt + F11" για να ενεργοποιήσετε τον επεξεργαστή VBA του Outlook.
2. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα σε ένα έργο ή ενότητα.

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. Μετά από αυτό, βγείτε από τον επεξεργαστή και προσθέστε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης (QAT).
4. Τέλος, επιλέξτε ή ανοίξτε ένα email και κάντε κλικ στο κουμπί μακροεντολής στο QAT.
5. Αμέσως, θα εμφανιστεί μια πρόσκληση σε σύσκεψη, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Τα πρωτότυπα συνημμένα email περιλαμβάνονται και δεν υπάρχει αρχική κεφαλίδα email στο σώμα.

Επίλυση προβλημάτων του Outlook

Παρόλο που το Outlook είναι ένα πλήρως λειτουργικό πρόγραμμα-πελάτης ηλεκτρονικού ταχυδρομείου, εξακολουθεί να μην μπορεί να απαλλαγεί από ένα θανατηφόρο ελάττωμα στο οποίο είναι ευάλωτο. Με άλλα λόγια, μπορεί να καταστραφεί εύκολα. Αυτό σημαίνει επίσης ότι τα δεδομένα του Outlook σας βρίσκονται πάντα σε κίνδυνο. Υπό αυτές τις συνθήκες, η πιο κρίσιμη και επιτακτική ενέργεια είναι η τακτική δημιουργία αντιγράφων ασφαλείας των δεδομένων για το Outlook. Επιπλέον, είναι συνετό να αποκτήσετε ένα ισχυρό... Επιδιόρθωση του Outlook εργαλείο, όπως DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων sql διαφθορά και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com