Outlook'ta Özel Bilgilerinizi İçeren E-postaları Göndermeden Önce Onay Nasıl Alınır?

Kişisel bilgilerinizi içeren e-postalar göndermek oldukça tehlikeli ve güvensiz olabilir. Bu nedenle, bu yazıda Outlook'un bu tür e-postaları göndermeden önce sizi uyarmasını sağlayacak bir yöntem tanıtılacaktır.

Günümüzde, potansiyel güvenlik tehditleri her yerdedir. Bu nedenle, kredi kartları, çeşitli hesap parolaları ve diğer hassas bilgiler gibi kendi özel bilgilerimizi korumak için çok çaba sarf etmeliyiz. Bu nedenle, MS Outlook'taki iletişimler dahil olmak üzere günlük çevrimiçi davranışlarınıza dikkat etmelisiniz.

Daha spesifik olarak, özel bilgilerinizin e-posta yoluyla sızmasını önlemek için e-posta gönderirken dikkatli olmalısınız. Bu durumda, özel bilgilerinizi içeren postaları göndermeden önce Outlook'un size otomatik olarak sormasını isteyebilirsiniz. Aşağıda, bunu VBA aracılığıyla nasıl gerçekleştireceğiniz konusunda size rehberlik edeceğiz.

Özel Bilgilerinizi İçeren E-postaları Göndermeden Önce Onay Alın

1. En başta, özel bilgilerinizi belirtmeniz gerekir. Genelde tüm özel bilgilerimi bir Excel dosyasında sakladığım için, bunu aşağıdaki ekran görüntüsü gibi bir örnek olarak ele alacağım:
2. Eğer böyle bir Excel dosyası oluşturduysanız, Outlook uygulamanızı başlatabilirsiniz.
3. Ardından ana Outlook penceresindeki “Alt + F11” tuşlarına basın.
4. Ardından, Outlook VBA düzenleyicisinde “ThisOutlookSession” projesini bulun ve açın.
5. Ardından, aşağıdaki VBA kodlarını bu proje penceresine kopyalayın.

Private Sub Application_ItemSend(ByVal objItem As Object, Cancel As Boolean)
    Dim strItemBody As String
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nRow, nColumn As Integer
    Dim strSensitiveInfo As String
    Dim strMsg As String
    Dim nResponse As Integer
 
    strItemBody = objItem.Body
 
    'Specify the source Excel file
    strExcelFile = "E:\MyPrivacy.xlsx"
    On Error Resume Next
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Privacy")
 
    nRow = 1
    nColumn = 1
    Do While objExcelWorksheet.Cells(nRow, nColumn) <> ""
       strSensitiveInfo = objExcelWorksheet.Cells(nRow, nColumn)
 
       'Check if the email body contains the private information
       If InStr(strItemBody, strSensitiveInfo) > 0 Then
          strMsg = "The current item contains sensitive information. Do you still want to send it?"
          nResponse = MsgBox(strMsg, vbExclamation + vbYesNo, "Check Sensitive Information")
          If nResponse = vbYes Then
             Cancel = False
          Else
             Cancel = True
          End If
          Exit Do
      End If
      nRow = nRow + 1
      nColumn = nColumn + 1
    Loop
End Sub

6. Ardından bu kodu imzalayın ve Outlook makro ayarlarınızı değiştirin.
7. Bundan sonra, her e-posta gönderdiğinizde, Outlook, gövdesinin Excel dosyasına ait herhangi bir bilgi içerip içermediğini otomatik olarak kontrol edecektir.
8. İçerirse, aşağıdaki resimdeki gibi bir onay alacaksınız:
9. "Evet"i seçerseniz, e-posta her zamanki gibi gönderilecektir. Aksi takdirde gönderim iptal edilecektir.

Değerli PST Verilerinizi Koruyun

Outlook'un savunmasız olması nedeniyle, PST verilerinizi savunmak zorlu bir görevdir. Öncelikle, PST dosyanız için düzenli yedeklemeler yapmaya devam etmelisiniz. Ek olarak, güçlü ve kanıtlanmış bir belgeye sahip olmanız gerekir. PST onarımı araç kullanışlı, gibi 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. mdf düzeltme ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com