Hur får jag en varning när du skickar e-post till en extern domän i Outlook?
Medan du använder Outlook, hur kan du förhindra att du av misstag skickar e-post till mottagare utanför ditt företag? Egentligen kan du visa varningsrutan när du skickar e-post till extern domän i Outlook. Denna artikel kommer att introducera en VBA-metod för att uppnå det.
Få varning när du skickar e-post till extern domän med VBA-kod
Få varning när du skickar e-post till extern domän med VBA-kod
Följande VBA-kod kan hjälpa dig att få en varning när du skickar e-post till extern domän i Outlook. Gör så här.
1. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession att öppna ThisOutlookSession (kod) och kopiera sedan VBA-koden nedan till fönstret. Se skärmdump:
VBA-kod: Få varning när du skickar e-post till extern domän
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
Anmärkningar: I koden, “@ addin99.com”Är den interna e-postdomänen som du skickar e-post till. Ändra det efter behov.
Från och med nu, när du klickar på Skicka-knappen för att skicka e-post till en extern e-postdomän (inte den interna e-postdomänen som du angav i VBA-koden), dyker en varningsruta upp som bilden nedan visas.
Relaterade artiklar:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!