Hogyan lehet figyelmeztetést kapni, ha e-mailt küldenek egy külső tartományba az Outlookban?
Az Outlook használata közben hogyan lehet megakadályozni, hogy véletlenül küldjön e-maileket a vállalaton kívüli címzetteknek? Valójában megjelenítheti a figyelmeztető négyzetet, amikor e-mailt küld egy külső tartományba az Outlook programban. Ez a cikk egy VBA módszert mutat be annak elérésére.
Figyelmeztetés kérhető, ha e-mailt küldenek VBA kóddal külső tartományba
Figyelmeztetés kérhető, ha e-mailt küldenek VBA kóddal külső tartományba
A következő VBA-kód segíthet abban, hogy figyelmeztetést kapjon, amikor e-mailt küld egy külső tartományba az Outlook programban. Kérjük, tegye a következőket.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession megnyitni ThisOutlookSession (kód) ablakot, majd másolja a VBA kód alatt az ablakba. Lásd a képernyőképet:
VBA-kód: Figyelmeztetés érkezik, amikor e-mailt küldenek egy külső tartományba
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
Megjegyzések: A kódban:@ addin99.com”A belső e-mail domain, amelyre e-maileket fog küldeni. Kérjük, változtassa meg, ha szükséges.
Mostantól, amikor a Küldés gombra kattint, hogy e-maileket küldjön külső e-mail tartományba (nem a VBA-kódban megadott belső e-mail tartományba), megjelenik egy figyelmeztető mező, az alábbi képernyőképen.
Kapcsolódó cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!