Come aprire automaticamente le e-mail ricevute/inviate in modalità "Modifica" con Outlook VBA

Per modificare il corpo di un'email ricevuta o inviata in Outlook, è necessario aprirla e quindi attivare la modalità "Modifica". Se si ha spesso bisogno di apportare modifiche a questo tipo di email, potrebbe essere utile aprirle automaticamente in modalità "Modifica". Questo articolo vi aiuterà a farlo.

A volte potrebbe essere necessario modificare il contenuto di un'e-mail ricevuta o inviata in Outlook. In questo scenario, come introdotto nel post precedente – “Come modificare l'oggetto e il corpo delle e-mail ricevute in Outlook“, devi aprire l'e-mail e fare clic sul pulsante “Azioni” e scegliere “Modifica messaggio” per convertire l'e-mail in modalità “Modifica”. Tuttavia, potresti pensare che sia ancora un po 'problematico. Pertanto, si desidera che Outlook apra sempre le e-mail ricevute/inviate in modalità "Modifica". Successivamente, introdurremo come utilizzare il codice VBA per ottenere questa funzione. Ora continua a leggere per ottenere passaggi dettagliati.

Apri automaticamente le e-mail ricevute/inviate in modalità "Modifica".

1. Preliminarmente, con riferimento a “Come eseguire il codice VBA in Outlook“, accedi all'editor VBA di Outlook.
2. Quindi, copia e incolla il seguente codice VBA nel progetto "ThisOutlookSession".

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

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

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

3. Dopodiché, fai clic sulla macro "Application_Startup" e premi il tasto "F5".
4. Al momento, chiudi l'editor VBA.
5. Finalmente puoi provare. Basta fare doppio clic su una mail ricevuta o inviata per aprirla. Sarà sicuramente nella modalità "Modifica".

Immune dalla perdita di dati di Outlook

Il tuo file PST è mai diventato inaccessibile? In realtà, il file PST di Outlook può essere corrotto facilmente. Ad esempio, i virus trasmessi tramite posta elettronica possono facilmente causare l'arresto anomalo di Outlook e quindi provocare il danneggiamento dei dati di Outlook. In questi casi, la prima soluzione che ti viene in mente potrebbe essere strumento di riparazione della posta in arrivo. Tuttavia, in generale, non è in grado di affrontare situazioni così gravi. Pertanto, si consiglia sempre di eseguire il backup dei file PST a intervalli regolari, in modo tale da poter ripristinare i dati PST dai backup come un tappo di sughero. Altrimenti, devi ricorrere a uno strumento esterno specializzato, 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 recupero mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com