Ինչպե՞ս նախազգուշացնել Outlook- ում արտաքին տիրույթին էլ-նամակ ուղարկելիս:
Outlook- ի օգտագործման ընթացքում ինչպե՞ս կարող եք կանխել ձեր ընկերության սահմաններից դուրս ստացողներին պատահաբար էլ-նամակներ ուղարկելը: Իրականում, Outlook- ում արտաքին տիրույթին էլ-նամակ ուղարկելու ժամանակ կարող եք ցուցադրել նախազգուշացման վանդակը: Այս հոդվածը կներկայացնի VBA մեթոդը դրան հասնելու համար:
Նախազգուշացում ստացեք VBA կոդով արտաքին տիրույթին էլ-նամակ ուղարկելիս
Նախազգուշացում ստացեք VBA կոդով արտաքին տիրույթին էլ-նամակ ուղարկելիս
Հաջորդ VBA կոդը կարող է օգնել ձեզ նախազգուշացում ստանալ Outlook- ում արտաքին տիրույթին էլ-նամակ ուղարկելիս: Խնդրում եմ, արեք հետևյալ կերպ.
1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը բացելու համար 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 Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: