Qualche giorno fa a lavoro è capitata una delle cose più antipatiche che possono succedere quando sei preso dallo scrivere un’email.
L’ho scritta con cura, evidenziando in grassetto alcuni passaggi. L’ho letta e riletta più volte correggendo qua e la.
Ho aggiunto i destinatari e l’ho riletta nuovamente.
Tutto contento, decido di inviarla e pam! Che nervoso, ho dimenticato l’oggetto!
Un’email perfetta rovinata da una banalità che però può capitare, specie se si ha fretta e si è molto concentrati sul contenuto del messaggio.
Ecco allora una soluzione che ho implementato (ma non è farina del mio sacco) su
Attraverso un semplice script vba da applicare al programma di posta elettronica Outlook, è possibile implementare una serie di avvisi o notifiche in mancanza o presenza di qualche elemento, nel mio caso l’oggetto appunto.
Qui di seguito gli elementi e la guida da seguire per raggiungere lo scopo, divisi in step:
Indice
Attivare le Macro su Outlook
Di base le macro sono disattive su Outlook per ragioni di sicurezza, occorre quindi abilitarle:
FILE –> Opzioni –> Centro protezione –> Impostazioni Centro protezione –> Impostazioni macro
quindi spuntare la casella come visualizzato nell’immagine sottostante e premere OK:
evitare invio email senza oggetto outlook – attivare-macro-outlook
Se si vuole mantenere comunque un buon grado di sicurezza e controllo è possibile scegliere l’opzione Visualizza notifiche per tutte le macro, ma in questo caso ad ogni avvio di Outlook verrà chiesto con una notifica se attivare o meno le macro.
Il tab SVILUPPO, contenente macro, moduli e Visual Basic, di default non è mostrato.
Per renderlo visibile e quindi utilizzabile allo scopo, seguire questi passaggi:
FILE –> Opzioni –> Personalizzazione barra multifuzione
Nella colonna a destra (Schede Principali) spuntare la casella Sviluppo e premere OK.
evitare invio email senza oggetto outlook – menu-sviluppo-outlook
SCRIPT VBA
Da prelevare e copiare:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
‘
If InStr(1, Item.Body, “attach”, vbTextCompare) > 0 Then
If Item.Attachments.Count = 0 Then
ans = MsgBox(“There’s no attachment, send anyway?”, vbYesNo)
If ans = vbNo Then Cancel = True
End If
End If
End Sub
Applicare lo script
Una volta copiato lo script, sarà sufficiente copiarlo all’interno della Sessione di Outlook (ThisOutlookSession):
SVILUPPO –> Visual Basic –> Progetto1 –> Microsoft Outlook Oggetti
fare quindi doppio click su ThisOutlookSession e incollare e salvare il codice precedentemente copiato:
evitare invio email senza oggetto outlook – ThisOutlookSession-script-no-oggetto-outlook
Risultato
Ora provate a scrivere un’email senza indicare un oggetto e a premere Invia.
Comparirà certamente la notifica con il seguente messaggio: Inviare l’elemento messaggio senza indicare l’oggetto?
Con possibilità di scegliere se Non Inviare o Invia Comunque:
evitare invio email senza oggetto outlook – notifica-email-senza-oggetto-outlook
Nota: una volta applicato il codice è possibile disattivare il tab Sviluppo, lo script ovviamente continuerà a funzionare.