Jeśli Twoja firma ma dokładne zasady, że nie powinieneś wysyłać e-maili do osób spoza firmy, możesz skorzystać ze sposobu przedstawionego w tym artykule. Nauczy Cię, jak używać VBA, aby uzyskać ostrzeżenie, jeśli wiadomość e-mail zostanie wysłana poza Twoją firmę.
Czasami, aby chronić bezpieczeństwo danych, Twoja firma może zażądać, aby podczas korzystania z firmowego konta e-mail wysyłać e-maile tylko do osób wewnątrz firmy. Innymi słowy, nie możesz wysyłać wiadomości e-mail do osób spoza firmy, a mianowicie adresów e-mail w domenach zewnętrznych. Jednak być może czasami jesteś trochę zapomniany. W takim przypadku możesz chcieć, aby program Outlook mógł automatycznie ostrzegać Cię, gdy wysyłasz e-maile do firmy zewnętrznej. Tutaj skupimy się na tym problemie i poprowadzimy Cię, jak to osiągnąć za pomocą programu Outlook VBA.
Otrzymuj ostrzeżenie podczas wysyłania wiadomości e-mail do osób spoza Twojej firmy
- Najpierw uruchom program Outlook.
- Następnie naciśnij skróty klawiszowe „Alt + F11”.
- Następnie uzyskasz dostęp do okna edytora VBA programu Outlook.
- Następnie otwórz projekt „ThisOutlookSession”.
- Następnie skopiuj i wklej następujące kody VBA do tego okna projektu.
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
- Następnie należy podpisać ten kod.
- Później zmień ustawienia makr programu Outlook, aby zezwolić na podpisane makra.
- Wreszcie, od teraz za każdym razem, gdy zamierzasz wysyłać wiadomości e-mail na adresy e-mail spoza domeny Twojej firmy, otrzymasz ostrzeżenie takie jak na poniższym zrzucie ekranu:
Kontynuuj prawidłowe zamykanie programu Outlook
Program Outlook ma tendencję do awarii, jeśli często zamykasz program Outlook w nieprawidłowy sposób, na przykład wymuszając jego zamknięcie z powodu nagłej przerwy w zasilaniu. Za każdym razem, gdy wystąpi awaria programu Outlook, ucierpi również plik PST. Gdy plik PST zostanie naruszony, poświęcisz znacznie więcej wysiłku, aby odzyskać plik uszkodzony Outlook danych niż ochrona codzienna. W takim przypadku scanpst.exe nie będzie zbyt pomocny. Nie masz innego wyboru, jak tylko powrócić do silniejszego narzędzia, takiego jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server stały i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com