Sut i gael rhybudd wrth anfon e-bost i barth allanol yn Outlook?
Wrth ddefnyddio Outlook, sut allwch chi atal anfon e-byst yn ddamweiniol at dderbynwyr y tu allan i'ch cwmni? Mewn gwirionedd, gallwch arddangos blwch rhybuddio wrth anfon e-bost i barth allanol yn Outlook. Bydd yr erthygl hon yn cyflwyno dull VBA i'w gyflawni.
Sicrhewch rybudd wrth anfon e-bost i barth allanol gyda chod VBA
Sicrhewch rybudd wrth anfon e-bost i barth allanol gyda chod VBA
Gall y cod VBA canlynol eich helpu i gael rhybudd wrth anfon e-bost i barth allanol yn Outlook. Gwnewch fel a ganlyn.
1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook i agor y ThisOutlookSession (Cod) ffenestr, ac yna copïwch isod god VBA i'r ffenestr. Gweler y screenshot:
Cod VBA: Sicrhewch rybudd wrth anfon e-bost i barth allanol
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
Nodyn: Yn y cod, “@ addin99.com”Yw'r parth e-bost mewnol y byddwch chi'n anfon e-byst ato. Newidiwch ef yn ôl yr angen.
O hyn ymlaen, wrth glicio Anfon botwm i anfon e-byst i barth e-bost allanol (nid y parth e-bost mewnol a nodwyd gennych yn y cod VBA), bydd blwch rhybuddio yn ymddangos fel islaw'r screenshot a ddangosir.
Erthyglau cysylltiedig:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!