Hvordan får jeg advarsel, når du sender e-mail til eksternt domæne i Outlook?
Hvordan kan du forhindre, at e-mails ved et uheld sendes til modtagere uden for din virksomhed, mens du bruger Outlook? Faktisk kan du vise advarselsfelt, når du sender e-mail til eksternt domæne i Outlook. Denne artikel introducerer en VBA-metode for at opnå det.
Få advarsel, når du sender e-mail til eksternt domæne med VBA-kode
Få advarsel, når du sender e-mail til eksternt domæne med VBA-kode
Følgende VBA-kode kan hjælpe dig med at få advarsel, når du sender e-mail til eksternt domæne i Outlook. Gør som følger.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession at åbne ThisOutlookSession (kode) vindue, og kopier derefter under VBA-koden ind i vinduet. Se skærmbillede:
VBA-kode: Få advarsel, når du sender e-mail til eksternt domæne
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
Bemærk: I koden, “@ addin99.com”Er det interne e-mail-domæne, som du vil sende e-mails til. Skift det efter behov.
Fra nu af, når du klikker på Send-knappen for at sende e-mails til eksternt e-mail-domæne (ikke det interne e-mail-domæne, du har angivet i VBA-koden), vises et advarselsfelt som vist nedenfor.
Relaterede artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!