Cara Mendapatkan Konfirmasi sebelum Mengirim Email dengan Informasi Pribadi Anda di Outlook

Mengirim email yang berisi informasi pribadi bisa sangat berbahaya dan tidak aman. Oleh karena itu, postingan ini akan memperkenalkan metode yang memungkinkan Outlook untuk meminta persetujuan Anda sebelum mengirim email tersebut.

Saat ini, potensi ancaman keamanan ada di sekitar. Jadi, kita harus melakukan banyak upaya untuk melindungi informasi pribadi kita sendiri, seperti kartu kredit, berbagai kata sandi akun dan info sensitif lainnya, dll. Oleh karena itu, Anda harus memperhatikan perilaku online harian Anda, termasuk komunikasi di MS Outlook.

Lebih khusus lagi, Anda harus tetap berhati-hati saat mengirim email untuk mencegah informasi pribadi Anda bocor melalui email. Dalam hal ini, mungkin Anda ingin agar Outlook dapat secara otomatis meminta Anda sebelum Anda mengirim email yang berisi informasi pribadi Anda. Berikut ini kami akan memandu Anda bagaimana mewujudkannya melalui VBA.

Dapatkan Konfirmasi sebelum Mengirim Email dengan Informasi Pribadi Anda

1. Pada awalnya, Anda harus menentukan informasi pribadi Anda. Karena saya biasanya menyimpan semua informasi pribadi saya dalam file Excel, saya akan mengambil contoh, seperti tangkapan layar berikut:
2. Jika Anda menyimpan file Excel tersebut, Anda dapat memulai aplikasi Outlook Anda.
3. Kemudian tekan tombol "Alt + F11" di jendela utama Outlook.
4. Selanjutnya temukan dan buka proyek "ThisOutlookSession" di editor Outlook VBA.
5. Selanjutnya, salin kode VBA berikut ke dalam jendela proyek ini.

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. Setelah itu, tanda tangani kode ini dan ubah pengaturan makro Outlook Anda.
7. Mulai sekarang, setiap kali Anda mengirim email, Outlook akan otomatis memeriksa apakah isinya berisi informasi file Excel.
8. Jika berisi, Anda akan mendapatkan konfirmasi seperti gambar di bawah ini:
9. Jika Anda memilih "Ya", email akan dikirim seperti biasa. Jika tidak, pengiriman akan dibatalkan.

Lindungi Data PST Anda yang Berharga

Karena fakta bahwa Outlook rentan, ini adalah tugas yang sulit untuk mempertahankan data PST Anda. Pertama, Anda harus tetap membuat cadangan reguler untuk file PST Anda. Selain itu, Anda perlu menyimpan yang kuat dan sudah terbukti Perbaikan PST alat yang berguna, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com