Şirketiniz Dışındaki Kişilere E-posta Gönderirken Nasıl Uyarı Alırsınız?

Şirketinizin, şirketiniz dışındaki kişilere e-posta göndermemeniz konusunda kesin bir politikası varsa, bu makalede açıklanan yolu kullanabilirsiniz. Şirketinizin dışına bir e-posta gönderildiğinde uyarı almak için VBA'yı nasıl kullanacağınızı size öğretecektir.

Bazen, şirketiniz veri güvenliğini korumak için, iş e-posta hesabını kullanırken yalnızca şirket içindeki kişilere e-posta göndermenizi talep edebilir. Başka bir deyişle, şirket dışındaki kişilere, yani harici alanlardaki e-posta adreslerine e-posta göndermenize izin verilmez. Ancak, belki de bazen biraz unutkansınızdır. Bu durumda, dış şirkete e-posta gönderdiğinizde Outlook'un sizi otomatik olarak uyarmasını isteyebilirsiniz. Burada bu konuya odaklanacağız ve bunu Outlook VBA aracılığıyla nasıl başaracağınız konusunda size rehberlik edeceğiz.

Şirketiniz Dışındaki Kişilere E-posta Gönderirken Uyarı Alın

1. Öncelikle Outlook programınızı başlatın.
2. Ardından “Alt + F11” tuş kısayollarına basın.
3. Ardından, Outlook VBA düzenleyici penceresine erişebileceksiniz.
4. Ardından, “ThisOutlookSession” projesini açın.
5. Ardından aşağıdaki VBA kodlarını kopyalayıp bu proje penceresine yapıştırın.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim i As Long
    Dim strRecipientAddress As String
    Dim strPrompt As String
    Dim nWarning As Integer
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
 
       For i = objRecipients.Count To 1 Step -1
           strRecipientAddress = objRecipients.Item(i).Address
           'Change @datanumen.com to your own company domain
           If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
              Exit For
           Else
              Cancel = False
           End If
      Next i
 
      If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
         strPrompt = "Are you sure to send this email to outside your company? "
         nWarning = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirm Email to Outside Organization")
         If nWarning = vbNo Then
            Cancel = True
         End If
      End If
    End If
End Sub

6. Bundan sonra, bu kodu imzalamanız gerekir.
7. Daha sonra imzalı makrolara izin vermek için Outlook makro ayarlarınızı değiştirin.
8. Son olarak artık şirket alan adınızda olmayan e-posta adreslerine her e-posta göndermeyi düşündüğünüzde aşağıdaki ekran görüntüsü gibi bir uyarı alacaksınız:

Outlook'unuzu Düzgün Kapatmaya Devam Edin

Ani elektrik kesintileri nedeniyle kapanmaya zorlamak gibi Outlook'unuzu sık sık yanlış bir şekilde kapatırsanız, Outlook çökme eğilimi gösterir. Outlook'unuz her çöktüğünde, PST dosyanız da zarar görecektir. PST dosyanız tehlikeye girdiğinde, geri almak için çok daha fazla çaba harcarsınız. hasarlı görünüm günlük korumadan daha fazla veri. Bu durumda, scanpst.exe pek yardımcı olmayacaktır. Daha güçlü bir araca dönmekten başka seçeneğiniz yok, örneğin DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. SQL Server düzeltmek ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com