Slik får du en advarsel når du sender e-post til personer utenfor selskapet ditt

Outlook-løsninger September 29, 2025

Hvis bedriften din har en nøyaktig policy om at du ikke skal sende e-post til personer utenfor bedriften din, kan du bruke måten som er introdusert i denne artikkelen. Den vil lære deg hvordan du bruker VBA for å få en advarsel hvis en e-post sendes til utenfor bedriften din.

Noen ganger, for å beskytte datasikkerheten, kan bedriften din kreve at du når du bruker en bedrifts-e-postkonto, kun skal sende e-post til personene i bedriften din. Du har med andre ord ikke lov til å sende e-post til personer utenfor selskapet, nemlig e-postadresser i eksterne domener. Imidlertid er du kanskje til tider litt forglemmelig. I dette tilfellet vil du kanskje ønske at Outlook automatisk kan varsle deg når du sender e-post til et eksternt selskap. Her vil vi fokusere på dette problemet og veilede deg hvordan du oppnår det via Outlook VBA.

Få en advarsel når du sender e-post til personer utenfor selskapet ditt

Få en advarsel når du sender e-post til personer utenfor selskapet ditt

  1. Først og fremst, start Outlook-programmet ditt.
  2. Deretter trykker du på "Alt + F11" snarveier.
  3. Deretter får du tilgang til Outlook VBA-redigeringsvinduet.
  4. Deretter åpner du prosjektet "ThisOutlookSession".
  5. Deretter kopierer og limer du inn følgende VBA-koder i dette prosjektvinduet.
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

VBA-koder - Få en advarsel når du sender e-post til personer utenfor selskapet ditt

  1. Etter det bør du signere denne koden.
  2. Endre senere Outlook-makroinnstillingene for å tillate de signerte makroene.
  3. Til slutt, fra nå av, hver gang du har tenkt å sende e-post til e-postadressene som ikke er i firmaets domene, vil du motta en advarsel som følgende skjermbilde:Advarsel

Fortsett å lukke Outlook på riktig måte

Outlook har en tendens til å krasje hvis du ofte lukker Outlook på feil måte, for eksempel å tvinge den til å lukke på grunn av plutselige strømbrudd. Hver gang Outlook krasjer, vil PST-filen også lide. Når PST-filen din blir kompromittert, vil du bruke mye mer innsats på å få tilbake skadet Outlook data enn daglig beskyttelse. I så fall vil ikke scanpst.exe være mye hjelp. Du har ikke noe annet valg enn å gå tilbake til et mer potent verktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server fastsette og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.