Kako dobiti opozorilo pri pošiljanju e-pošte na zunanjo domeno v Outlooku?
Kako lahko med uporabo Outlooka preprečite nenamerno pošiljanje e-pošte prejemnikom zunaj vašega podjetja? Pravzaprav lahko opozorilno polje prikažete pri pošiljanju e-pošte na zunanjo domeno v Outlooku. Ta članek bo predstavil metodo VBA za njegovo dosego.
Priporočite opozorilo pri pošiljanju e-pošte na zunanjo domeno s kodo VBA
Priporočite opozorilo pri pošiljanju e-pošte na zunanjo domeno s kodo VBA
Naslednja koda VBA vam lahko pomaga pridobiti opozorilo pri pošiljanju e-pošte na zunanjo domeno v Outlooku. Naredite naslednje.
1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession da odprete ThisOutlookSession (koda) okno in nato v okno kopirajte spodnjo kodo VBA. Oglejte si posnetek zaslona:
Koda VBA: Pri pošiljanju e-pošte na zunanjo domeno dobite opozorilo
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 SubOpombe: V kodi je »@ addin99.com"Je notranja e-poštna domena, na katero boste pošiljali e-pošto. Prosimo, spremenite ga, kot ga potrebujete.
Od zdaj naprej se bo ob kliku na gumb Pošlji za pošiljanje e-pošte na zunanjo e-poštno domeno (ne na interno e-poštno domeno, ki ste jo navedli v kodi VBA) prikazalo opozorilno polje, kot je prikazano spodaj na sliki zaslona.
Sorodni članki:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
