Outlook'ta harici etki alanına e-posta gönderirken nasıl uyarı alınır?
Outlook kullanırken, şirketinizin dışındaki alıcılara yanlışlıkla e-posta göndermeyi nasıl önleyebilirsiniz? Aslında, Outlook'ta harici etki alanına e-posta gönderirken uyarı kutusu görüntüleyebilirsiniz. Bu makale, bunu başarmak için bir VBA yöntemi tanıtacaktır.
VBA kodu ile harici etki alanına e-posta gönderirken uyarı alın
VBA kodu ile harici etki alanına e-posta gönderirken uyarı alın
Aşağıdaki VBA kodu, Outlook'ta harici etki alanına e-posta gönderirken uyarı almanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu açmak için ThisOutlookSession (Kod) penceresini açın ve ardından pencereye VBA kodunu kopyalayın. Ekran görüntüsüne bakın:
VBA kodu: Harici etki alanına e-posta gönderirken uyarı alın
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
not: Kodda, "@ addin99.com", E-postaları göndereceğiniz dahili e-posta alanıdır. Lütfen ihtiyacınız olduğu gibi değiştirin.
Şu andan itibaren, e-postaları harici e-posta etki alanına (VBA kodunda belirttiğiniz dahili e-posta etki alanına değil) göndermek için Gönder düğmesine tıkladığınızda, aşağıda gösterilen ekran görüntüsü gibi bir uyarı kutusu açılacaktır.
İlgili yazılar:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!