Cara Mendapatkan Peringatan Semasa Menghantar Email kepada Orang di Luar Syarikat Anda

Sekiranya syarikat anda mempunyai polisi yang tepat bahawa anda tidak boleh menghantar e-mel kepada orang di luar syarikat anda, anda boleh menggunakan cara yang diperkenalkan dalam artikel ini. Ini akan mengajar anda cara menggunakan VBA untuk mendapatkan amaran sekiranya e-mel dihantar ke luar syarikat anda.

Kadang-kadang, untuk melindungi keselamatan data, syarikat anda mungkin meminta anda bahawa ketika menggunakan akaun e-mel perniagaan, anda hanya harus mengirim e-mel kepada orang-orang di dalam syarikat anda. Dengan kata lain, anda tidak dibenarkan menghantar e-mel kepada orang di luar syarikat, iaitu alamat e-mel di domain luaran. Namun, mungkin ada kalanya anda agak dilupakan. Dalam kes ini, anda mungkin ingin Outlook secara automatik memberi amaran kepada anda ketika anda menghantar e-mel kepada syarikat luar. Di sini kami akan memberi tumpuan kepada masalah ini dan membimbing anda bagaimana mencapainya melalui Outlook VBA.

Dapatkan Amaran Semasa Menghantar E-mel kepada Orang di luar Syarikat Anda

1. Di tempat pertama, start program Outlook anda.
2. Kemudian tekan pintasan kekunci "Alt + F11".
3. Seterusnya anda akan mendapat akses ke tetingkap editor Outlook VBA.
4. Selepas itu, buka projek "ThisOutlookSession".
5. Kemudian salin dan tampal kod VBA berikut ke tetingkap projek ini.

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. Selepas itu, anda harus menandatangani kod ini.
7. Nanti ubah tetapan makro Outlook anda untuk membenarkan makro yang ditandatangani.
8. Akhirnya, mulai sekarang, setiap kali anda berhasrat untuk menghantar e-mel ke alamat e-mel yang bukan dalam domain syarikat anda, anda akan menerima amaran seperti tangkapan skrin berikut:

Terus Tutup Tinjauan Anda Dengan Betul

Outlook cenderung mogok jika anda sering menutup Outlook dengan tidak betul, seperti memaksanya ditutup kerana pemadaman elektrik secara tiba-tiba. Setiap kali Outlook anda crash, fail PST anda juga akan menderita. Setelah fail PST anda dikompromikan, anda akan menghabiskan lebih banyak usaha untuk mendapatkan kembali fail tersebut Outlook yang rosak data daripada perlindungan harian. Sekiranya demikian, scanpst.exe tidak akan banyak membantu. Anda tidak mempunyai pilihan selain menggunakan alat yang lebih kuat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server menetapkan dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com