Как да получите предупреждение при изпращане на имейл до външен домейн в Outlook?
Докато използвате Outlook, как можете да предотвратите случайно изпращане на имейли до получатели извън вашата компания? Всъщност можете да показвате поле за предупреждение, когато изпращате имейл до външен домейн в Outlook. Тази статия ще представи метод на VBA за постигането му.
Получавайте предупреждение, когато изпращате имейл до външен домейн с VBA код
Получавайте предупреждение, когато изпращате имейл до външен домейн с VBA код
Следният VBA код може да ви помогне да получите предупреждение, когато изпращате имейл до външен домейн в Outlook. Моля, направете следното.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, щракнете два пъти ThisOutlookSession за да отворите ThisOutlookSession (код) прозорец и след това копирайте под VBA кода в прозореца. Вижте екранна снимка:
VBA код: Получавайте предупреждение при изпращане на имейл до външен домейн
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
Забележка: В кода „@addin99.com” е вътрешният имейл домейн, до който ще изпращате имейли. Моля, променете го според нуждите си.
Отсега нататък, когато щракнете върху бутона Изпращане, за да изпратите имейли до външен имейл домейн (а не вътрешния имейл домейн, който сте посочили във VBA кода), ще се появи предупредително поле, както е показано на екранната снимка по-долу.
Още по темата:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!