Come impostare il carattere predefinito per il corpo del contatto, dell'appuntamento e dell'attività tramite VBA

Outlook non ha funzionalità native per impostare il carattere predefinito per il corpo del contatto, dell'appuntamento e dell'attività. Pertanto, se desideri specificare il carattere, puoi ricorrere al metodo introdotto in questo articolo.

Come l'e-mail, anche l'appuntamento, l'attività e il contatto di Outlook hanno il campo del corpo, in cui possiamo inserire i dettagli dell'elemento. Tuttavia, Outlook consente solo agli utenti di impostare il carattere predefinito utilizzato nel corpo dell'e-mail. Se desideri specificare il carattere nel corpo del contatto, dell'appuntamento o dell'attività, devi cercare altri mezzi, come componenti aggiuntivi di terze parti o VBA di Outlook. Qui ti insegneremo in modo elaborato come utilizzare VBA per ottenerlo. Continua a leggere per apprendere i passaggi dettagliati e i corrispondenti codici VBA.

Impostare il carattere predefinito per il corpo dell'appuntamento, dell'attività e del contatto

1. All'inizio, start il tuo programma Outlook.
2. Quindi premere i pulsanti "Alt + F11" per avviare l'editor VBA di Outlook.
3. Nella finestra popup, devi aprire il progetto "ThisOutlookSession".
4. Successivamente, copia i seguenti codici VBA in questa finestra del progetto.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objInspector As Outlook.Inspector

Public Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Public Sub objInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    Set objInspector = Inspector
End Sub

Public Sub objInspector_Activate()
    Dim objCurrentItem As Object
    Dim objCurrentInspector As Outlook.Inspector
    Dim objWordDocument As Word.Document
    Dim objWordSelection As Word.Selection
 
    Set objCurrentItem = objInspector.CurrentItem
    Set objCurrentInspector = objCurrentItem.GetInspector
    Set objWordDocument = objCurrentInspector.WordEditor
    Set objWordSelection = objWordDocument.Application.Selection
 
    'You change the font as per your preference
    Select Case objCurrentItem.Class
           Case olContact
                With objWordSelection.Font
                     .Name = "Segoe Script"
                     .ColorIndex = wdRed
                     .Size = 8
                     .Bold = True
                End With
           Case olAppointment
                With objWordSelection.Font
                     .Name = "Comic Sans MS"
                     .ColorIndex = wdBlue
                     .Size = 9
                     .Bold = False
                End With
           Case olTask
                With objWordSelection.Font
                     .Name = "MV Boli"
                     .ColorIndex = wdGreen
                     .Size = 10
                     .Bold = True
                End With
   End Select
End Sub

5. Successivamente, devi firmare questo codice.

• Innanzitutto, crea un certificato digitale tramite Certificati digitali per i progetti VBA.
• Quindi assegna questo certificato alla nuova macro.

6. Successivamente, è possibile modificare le impostazioni delle macro di Outlook per consentire le macro firmate digitalmente.
7. Finalmente tu start il tuo Outlook per attivare il nuovo progetto VBA. D'ora in poi, quando crei un nuovo contatto, appuntamento o attività, il corpo utilizzerà il carattere predefinito, come nella seguente schermata:

Proteggi i tuoi dati PST dalla corruzione

A causa del fatto che il file PST di Outlook è soggetto a errori e corruzione, è necessario prestare molta attenzione alle protezioni PST. Ad esempio, dovresti fare attenzione alle e-mail provenienti da fonti sconosciute in quanto potrebbero essere e-mail dannose con virus. Una volta che il tuo file PST viene infettato, devi ricorrere a uno strumento di correzione affidabile e collaudato, come DataNumen Outlook Repair, Che può riparare PST file come un gioco da ragazzi.

Introduzione dell'autore:

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