Come convertire una riunione in un appuntamento con Outlook VBA

Molti utenti desiderano ardentemente un metodo per convertire una riunione di Outlook in un appuntamento comune. Questo articolo introdurrà un metodo rapido per eseguirlo rapidamente tramite Outlook VBA.

In realtà anche una riunione di Outlook è un appuntamento. La differenza principale tra loro è che la riunione contiene partecipanti ma l'appuntamento no. Quindi è abbastanza facile convertire un appuntamento comune in una riunione. Basta aprire l'appuntamento e fare clic sul pulsante "Invita partecipanti" nella scheda "Appuntamento".

Tuttavia, Outlook non ci supporta per trasformare facilmente una riunione in un appuntamento. Non ha supporto nativo per noi per rimuovere i partecipanti. Quindi, in generale, se vuoi realizzarlo, la soluzione alternativa è creare manualmente un nuovo appuntamento con gli stessi dettagli della riunione. Richiederà molto tempo. Fortunatamente, tramite Outlook VBA, puoi ottenerlo con utmost sollievo. Continua a leggere per ottenere i codici VBA e i passaggi elaborati.

Converti una riunione in un appuntamento con Outlook VBA

1. A start con, vai alla scheda "Sviluppatore" e premi il pulsante "Visual Basic".
2. Quindi nella nuova finestra "Microsoft Visual Basic for Applications", è necessario inserire un nuovo modulo.
3. Quindi copia e incolla i seguenti codici VBA al suo interno.

Sub ConvertMeetingtoAppt()
    Dim olSel As Selection
    Dim obj As Object
    Dim olMeeting As AppointmentItem
    Dim Recips As Recipients
    Dim Recip As Recipient
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each obj In olSel
        If TypeName(obj) = "AppointmentItem" Then
           Set olMeeting = obj
           If olMeeting.MeetingStatus <> olNonMeeting Then
              If MsgBox("Are you sure to convert the selected meeting into an appointment?", vbYesNo + vbQuestion, "Confirm Convert") = vbYes Then
                 Set Recips = olMeeting.Recipients
                 For Each Recip In Recips
                     Recip.Delete
                 Next
                 olMeeting.MeetingStatus = olNonMeeting
                 olMeeting.Save
              End If
           End If
        End If
    Next
End Sub

4. Successivamente, puoi tornare alla finestra principale di Outlook e continuare ad aggiungere la nuova macro alla barra di accesso rapido.
5. Alla fine puoi provare questo codice.

• Per prima cosa apri la cartella Calendario corretta e presenta la riunione di origine.
• Quindi premere il pulsante macro nella barra di accesso rapido.
• Successivamente riceverai una finestra di messaggio, chiedi se sei sicuro di convertire.
• Quando si seleziona "Sì", la riunione verrà immediatamente trasformata in un appuntamento.

Non guardare dall'alto in basso il backup dei dati di Outlook

Outlook è vulnerabile a vari fattori, inclusi virus, malware, interruzioni di corrente e così via. In tal modo, al fine di prevenire Danni ai dati PST di Outlook, devi persistere nell'effettuare backup regolari per i tuoi dati di Outlook. È di grande importanza. Non aggirarlo mai. Inoltre, si consiglia di procurarsi un potente strumento di riparazione, che ti tornerà utile, 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 riparare corrotto SQL Server e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com