Hogyan kaphat figyelmeztetést, ha e-maileket küld a vállalatán kívüli személyeknek

Ha cége pontos szabályzattal rendelkezik, miszerint ne küldjön e-mailt a cégén kívüli személyeknek, használhatja az ebben a cikkben bemutatott módot. Megtanítja Önnek, hogyan használhatja a VBA-t, hogy figyelmeztetést kapjon, ha e-mailt küldenek a vállalatán kívülre.

Néha az adatbiztonság védelme érdekében cége megkövetelheti Öntől, hogy az üzleti e-mail fiók használatakor csak a cégén belüli személyeknek küldjön e-mailt. Más szóval, nem küldhet e-maileket a vállalaton kívüli személyeknek, nevezetesen a külső domainben lévő e-mail címeknek. Azonban néha talán egy kicsit felejthető vagy. Ebben az esetben azt kívánhatja, hogy az Outlook automatikusan figyelmeztesse Önt, amikor e-maileket küld külső cégnek. Itt erre a problémára összpontosítunk, és végigvezetjük, hogyan érheti el ezt az Outlook VBA-n keresztül.

Figyelmeztetést kap, ha e-mailt küld a vállalatán kívüli személyeknek

1. Elsősorban start az Outlook programban.
2. Ezután nyomja meg az „Alt + F11” billentyűparancsokat.
3. Ezután hozzáférhet az Outlook VBA szerkesztő ablakához.
4. Ezt követően nyissa meg a „ThisOutlookSession” projektet.
5. Ezután másolja és illessze be a következő VBA-kódokat ebbe a projektablakba.

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. Ezt követően alá kell írnia ezt a kódot.
7. Később módosítsa az Outlook makró beállításait, hogy engedélyezze az aláírt makrókat.
8. Végül, mostantól minden alkalommal, amikor olyan e-mail címekre kíván e-mailt küldeni, amelyek nem tartoznak a vállalati domainbe, a következő képernyőképhez hasonló figyelmeztetést kap:

Folytassa az Outlook megfelelő bezárását

Az Outlook összeomlik, ha gyakran helytelenül zárja be az Outlookot, például hirtelen áramkimaradás miatt kényszeríti bezárásra. Minden alkalommal, amikor az Outlook összeomlik, a PST-fájl is szenvedni fog. Ha a PST-fájl veszélybe kerül, sokkal több erőfeszítést kell költenie a fájl visszaszerzésére sérült Outlook adatok, mint a napi védelem. Ebben az esetben a scanpst.exe nem fog sokat segíteni. Nincs más dolgod, mint visszatérni egy erősebb eszközhöz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL Server erősít és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com