Come controllare automaticamente gli allegati in e-mail in uscita specifiche con Outlook VBA

A volte, potresti dimenticare di aggiungere gli allegati richiesti a e-mail specifiche, come le e-mail per segnalare i tuoi lavori settimanali. Questo articolo ti insegnerà ad attivare un avviso popup per impedirti di inviare e-mail specifiche senza allegati.

A differenza di Outlook 2010 e versioni precedenti, Outlook 2013 ha un supporto nativo per ricordarti quando non hai allegato alcun file nelle e-mail in uscita. Puoi abilitare questa funzione nelle Opzioni di Outlook come il seguente screenshot:

Se si abilita l'avviso automatico per gli allegati mancanti, ogni volta che si invia un'e-mail verrà visualizzato un avviso. Tuttavia, nella maggior parte dei casi non è necessario allegare file. In queste situazioni, l'avviso può risultare fastidioso. Qui spiegheremo come abilitare un avviso automatico per gli allegati mancanti in specifiche e-mail in uscita tramite Outlook VBA.

Controllo automatico degli allegati in e-mail in uscita specifiche

1. All'inizio, avvia Outlook e passa alla scheda "Sviluppatore".
2. Fare clic sul pulsante "Visual Basic" nel gruppo "Codice".
3. Quindi, nella nuova finestra popup "Microsoft Visual Basic for Applications", è necessario fare doppio clic sul progetto "ThisOutlookSession" per aprirlo.
4. Successivamente, è necessario copiare i seguenti codici nel progetto "ThisOutlookSession".

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

5. Quindi fai clic sull'icona di salvataggio nella barra degli strumenti.
6. Successivamente, dovresti procedere a firmare questo codice.

• Innanzitutto, è necessario creare un certificato digitale. Microsoft Office include un'utilità integrata chiamata "Certificato digitale per progetti VBA". È possibile trovarla cercando "vba" nel "Menu Start".
• Successivamente, torna alla finestra "visual basic" per firmare il codice.

7. Successivamente, esci da "Visual Basic" e fai clic sul pulsante "Impostazioni macro" nella scheda "Sviluppatore". Nella finestra di dialogo "Centro protezione", selezionare di abilitare solo le macro firmate digitalmente. Ricordarsi di fare clic su "OK" infine.
8. Finalmente puoi provare. Crea un nuovo messaggio con destinatario e oggetto specifici, ma senza allegati. Quando fai clic sul pulsante "Invia", riceverai un avviso popup, mostrato come l'immagine seguente:

Mantieni i tuoi dati di Outlook protetti

Poiché Outlook è soggetto a corruzioni, dovresti fare sforzi per proteggere i tuoi dati di Outlook. Il modo migliore è eseguire un backup coerente e aggiornato. Quindi, puoi facilmente recuperare i dati corrotti di Outlook dai backup anche se subisce un arresto imprevisto di Outlook. Inoltre, se sfortunatamente il backup fallisce, non hai altra scelta che ricorrere all'aiuto di uno strumento di riparazione esperto, 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 l'errore del db SQL e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com