Come ricevere un avviso quando si invia posta elettronica a un dominio esterno in Outlook?
Mentre utilizzi Outlook, come puoi impedire l'invio accidentale di e-mail a destinatari esterni alla tua azienda? In realtà, puoi visualizzare una finestra di avviso quando invii email a un dominio esterno in Outlook. Questo articolo introdurrà un metodo VBA per ottenerlo.
Ricevi un avviso quando invii email a un dominio esterno con codice VBA
Ricevi un avviso quando invii email a un dominio esterno con codice VBA
Il seguente codice VBA può aiutarti a ricevere un avviso quando invii email a un dominio esterno in Outlook. Si prega di fare quanto segue.
1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook per aprire il ThisOutlookSession (codice) finestra, quindi copia sotto il codice VBA nella finestra. Vedi screenshot:
Codice VBA: ricevi un avviso quando invii email a un dominio esterno
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
xRecipientAddress = xRecipients.Item(i).Address
xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
If xPos <= 0 Then Exit For
Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Sub
Note:: Nel codice, "@ addin99.com"È il dominio di posta elettronica interno a cui invierai le email. Si prega di cambiarlo quando necessario.
D'ora in poi, quando si fa clic sul pulsante Invia per inviare e-mail al dominio di posta elettronica esterno (non al dominio di posta elettronica interno specificato nel codice VBA), verrà visualizzata una finestra di avviso come mostrato nell'immagine sottostante.
Articoli correlati:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!