Hoe krijg ik een waarschuwing bij het verzenden van e-mail naar een extern domein in Outlook?
Hoe kunt u tijdens het gebruik van Outlook voorkomen dat u per ongeluk e-mails verzendt naar ontvangers buiten uw bedrijf? Eigenlijk kunt u een waarschuwingsvenster weergeven wanneer u e-mail naar een extern domein in Outlook verzendt. Dit artikel introduceert een VBA-methode om dit te bereiken.
Ontvang een waarschuwing bij het verzenden van e-mail naar een extern domein met VBA-code
Ontvang een waarschuwing bij het verzenden van e-mail naar een extern domein met VBA-code
De volgende VBA-code kan u helpen een waarschuwing te krijgen wanneer u e-mail naar een extern domein in Outlook verzendt. Ga als volgt te werk.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie om de te openen ThisOutlookSession (code) venster en kopieer vervolgens onderstaande VBA-code naar het venster. Zie screenshot:
VBA-code: ontvang een waarschuwing bij het verzenden van e-mail naar een extern domein
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 SubNote: In de code, "@ addin99.com鈥滻s het interne e-maildomein waarnaar u e-mails stuurt. Wijzig het indien nodig.
Vanaf nu, wanneer u op de knop Verzenden klikt om e-mails naar een extern e-maildomein te sturen (niet het interne e-maildomein dat u in de VBA-code hebt opgegeven), verschijnt er een waarschuwingsvenster zoals onderstaand screenshot.
Gerelateerde artikelen:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
