2 semplici modi per convertire rapidamente un'e-mail in un invito a una riunione in Outlook

Se desideri convertire un'email di Outlook in un invito a una riunione, puoi consultare questo articolo. Qui ti illustreremo due metodi rapidi.

Quando ricevi un'e-mail che contiene molte informazioni su una riunione da programmare, potresti voler creare rapidamente una riunione direttamente da questa e-mail. In questa situazione, puoi utilizzare uno dei seguenti 2 metodi in base alle tue esigenze.

Metodo 1: conversione senza allegati e-mail originali

1. Per cominciare, seleziona l'e-mail che desideri.
2. Quindi, fai clic sul pulsante "Riunione" nel gruppo "Rispondi" nella scheda "Home".
3. Immediatamente, verrà visualizzato un invito alla riunione, come mostrato nella figura seguente.

Note:

• In questo modo, se l'e-mail originale contiene allegati, gli allegati non verranno copiati nella riunione.
• E, come puoi vedere, il corpo della riunione contiene l'intestazione dell'e-mail originale, come il mittente o i destinatari originali e così via.

Se si desidera che gli allegati e-mail originali possano essere copiati nella riunione e che l'intestazione dell'e-mail originale possa essere esclusa, è possibile utilizzare il Metodo 2.

Metodo 2: conversione con allegati e-mail originali

1. Innanzitutto, premi “Alt + F11” per avviare l’editor VBA di Outlook.
2. Quindi, copia il codice seguente in un progetto o in un modulo.

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. Successivamente, esci dall'editor e aggiungi questa macro alla barra di accesso rapido (QAT).
4. Infine, seleziona o apri un'e-mail e fai clic sul pulsante macro in QAT.
5. Immediatamente, verrà visualizzato un invito alla riunione, come mostrato nello screenshot qui sotto. Gli allegati e-mail originali sono inclusi e non è presente l'intestazione dell'e-mail originale nel corpo.

Risolvere i problemi di Outlook

Sebbene Outlook sia un client di posta elettronica completo, non può ancora liberarsi di un difetto fatale: è vulnerabile. In altre parole, può essere facilmente danneggiato. Ciò significa anche che i dati di Outlook sono sempre a rischio. In questa circostanza, l'azione più cruciale e imprescindibile è eseguire backup regolari dei dati di Outlook. Inoltre, è saggio procurarsi un potente Correzione di Outlook strumento, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corruzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com