Come inserire automaticamente la data o l'ora corrente nell'oggetto o nel corpo dell'e-mail con Outlook VBA

Molti utenti sono abituati a inserire la data o l'ora corrente nell'oggetto o nel corpo dell'e-mail durante la composizione di una nuova e-mail. Questo articolo ti insegnerà come raggiungerlo in tempi rapidi.

Nel post precedente – “Come aggiungere automaticamente la data corrente agli oggetti delle e-mail di OutlookIn quell'articolo si può imparare come aggiungere automaticamente la data o l'ora corrente all'oggetto. Tuttavia, il metodo descritto consiste semplicemente nel creare un modulo di messaggio personalizzato. In questo modo, ogni volta che si desidera creare una nuova email con la data o l'ora corrente nell'oggetto, è necessario scegliere il modulo personalizzato anziché creare una nuova email come di consueto. Ovviamente, questo risulta piuttosto macchinoso.

In realtà, Outlook ci ha già offerto un campo nativo per inserire data o ora. Inoltre, puoi applicare Outlook VBA per inserire automaticamente la data o l'ora corrente nel corpo o nell'oggetto della nuova e-mail. Per quanto riguarda il metodo selezionato, dipende dalla frequenza con cui è necessario inserire la data o l'ora.

Inserimento manuale in base al campo "Data e ora".

1. Per iniziare, avvia Outlook.
2. Quindi crea un nuovo messaggio facendo clic sul pulsante "Nuova email" nel gruppo "Nuovo" nella scheda "Home".
3. Successivamente, nella finestra Nuovo messaggio, puoi fare clic sul corpo dell'e-mail e passare alla scheda "Inserisci".
4. Successivamente puoi trovare e fare clic sul campo "Data e ora" nel gruppo "Testo".
5. Successivamente, verrà visualizzata una nuova finestra di dialogo. È possibile scegliere un formato disponibile e quindi fare clic sul pulsante "OK".
6. Dopo essere tornato alla finestra del messaggio, puoi vedere la data o l'ora corrente nel corpo dell'e-mail. Per impostazione predefinita, Outlook non consente di applicare il campo "Data e ora" all'oggetto.
7. Quindi, infine, se vuoi inserire la data o l'ora dell'oggetto, devi copiarle dal corpo e incollarle manualmente nell'oggetto.

Questo metodo è più consigliato se raramente è necessario inserire la data o l'ora corrente. Ma a condizione che sia necessario inserire frequentemente o sempre, è meglio utilizzare i seguenti codici VBA per ottenerlo automaticamente.

Inserimento automatico con Outlook VBA

1. In primo luogo, premi i pulsanti "Alt + F11" per accedere all'editor VBA.
2. Quindi fare doppio clic sul progetto "ThisOutlookSession" sul lato sinistro per aprirlo.
3. Quindi copia i seguenti codici in esso.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

Attenzione: I codici sopra funzioneranno per inserire automaticamente l'ora corrente nell'oggetto e nel corpo. Se vuoi inserire la data corrente, sostituisci il “objMail_Open” sub con quanto segue:

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

4. Successivamente, firmare questo codice come di consueto.
5. Successivamente, riavvia Outlook per attivare la macro.
6. Finalmente puoi provare.

• Fare clic direttamente sul pulsante "Nuova e-mail" per aprire una nuova e-mail.
• Scoprirai che la nuova email automatica contiene la data o l'ora corrente nell'oggetto e nel corpo, come nell'immagine qui sotto:

Non fidarti prontamente di e-mail sconosciute

Devi aver mai ricevuto email spazzatura. Come ti comporti di solito con loro? È sconsigliato scaricare allegati o aprire collegamenti in questo tipo di mail in quanto potrebbero contenere virus. Una volta che i tuoi dati di Outlook vengono infettati, lo strumento di riparazione della posta in arrivo, Scanpst.exe non produrrà effetti. In questo caso, non hai altra scelta che ricorrere a un più esperto Correzione PST 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 danneggiati SQL Server e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com