Cum să primiți un avertisment atunci când trimiteți e-mailuri către persoane din afara companiei dvs

Dacă compania dumneavoastră are o politică exactă că nu trebuie să trimiteți e-mailuri către persoanele din afara companiei dumneavoastră, puteți utiliza modul introdus în acest articol. Vă va învăța cum să utilizați VBA pentru a primi un avertisment dacă un e-mail este trimis în afara companiei dvs.

Uneori, pentru a proteja securitatea datelor, compania dumneavoastră vă poate cere ca atunci când utilizați un cont de e-mail de afaceri, să trimiteți e-mailuri doar persoanelor din cadrul companiei dumneavoastră. Cu alte cuvinte, nu aveți voie să trimiteți e-mailuri către persoane din afara companiei, și anume adrese de e-mail din domenii externe. Cu toate acestea, poate că uneori ești puțin uitat. În acest caz, este posibil să doriți ca Outlook să vă avertizeze automat atunci când trimiteți e-mailuri către o companie externă. Aici ne vom concentra asupra acestei probleme și vă vom ghida cum să o realizați prin Outlook VBA.

Primiți un avertisment atunci când trimiteți e-mailuri către persoane din afara companiei dvs

1. În primul rând, porniți programul Outlook.
2. Apoi apăsați comenzile rapide „Alt + F11”.
3. În continuare, veți avea acces la fereastra editorului Outlook VBA.
4. Ulterior, deschideți proiectul „ThisOutlookSession”.
5. Apoi copiați și inserați următoarele coduri VBA în această fereastră de proiect.

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. După aceea, ar trebui să semnați acest cod.
7. Mai târziu, modificați setările macrocomenzilor Outlook pentru a permite macrocomenzile semnate.
8. În sfârșit, de acum înainte, de fiecare dată când intenționați să trimiteți e-mail-uri către adresele de e-mail care nu se află în domeniul companiei dvs., veți primi un avertisment precum următoarea captură de ecran:

Continuați să închideți corect Outlook

Outlook tinde să se blocheze dacă închideți frecvent Outlook-ul necorespunzător, cum ar fi forțarea acestuia să se închidă din cauza întreruperilor bruște de curent. De fiecare dată când Outlook se blochează, și fișierul PST va avea de suferit. Odată ce fișierul dvs. PST este compromis, veți depune mult mai multe eforturi pentru a recupera Outlook deteriorat date decât protecția zilnică. În acest caz, scanpst.exe nu va fi de mare ajutor. Nu aveți de ales decât să recurgeți la un instrument mai puternic, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server stabili și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com