회사에 회사 외부 사람에게 이메일을 보내지 말아야한다는 정확한 정책이있는 경우이 기사에서 소개 한 방법을 사용할 수 있습니다. 이메일이 회사 외부로 전송되는 경우 VBA를 사용하여 경고를받는 방법을 알려줍니다.
때로는 데이터 보안을 보호하기 위해 회사에서 비즈니스 이메일 계정을 사용할 때 회사 내부 사람에게만 이메일을 보내야한다고 요구할 수 있습니다. 즉, 회사 외부의 사람, 즉 외부 도메인의 이메일 주소에게 이메일을 보낼 수 없습니다. 그러나 때때로 당신은 약간 잊을 수 있습니다. 이 경우 외부 회사에 전자 메일을 보낼 때 Outlook에서 자동으로 경고를 표시하도록 할 수 있습니다. 여기서는이 문제에 중점을두고 Outlook VBA를 통해이를 달성하는 방법을 안내합니다.
회사 외부의 사람에게 이메일을 보낼 때 경고 받기
- 우선, start Outlook 프로그램.
- 그런 다음 "Alt + F11"키 단축키를 누릅니다.
- 다음으로 Outlook VBA 편집기 창에 액세스 할 수 있습니다.
- 그런 다음 "ThisOutlookSession"프로젝트를 엽니 다.
- 그런 다음이 프로젝트 창에 다음 VBA 코드를 복사하여 붙여 넣습니다.
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
- 그 후에이 코드에 서명해야합니다.
- 나중에 서명 된 매크로를 허용하도록 Outlook 매크로 설정을 변경합니다.
- 마지막으로 지금부터 회사 도메인에없는 이메일 주소로 이메일을 보내려고 할 때마다 다음 스크린 샷과 같은 경고를 받게됩니다.
Outlook을 올바르게 닫으십시오.
갑작스러운 정전으로 인해 강제로 닫는 등 Outlook을 자주 부적절하게 닫으면 Outlook이 충돌하는 경향이 있습니다. Outlook이 충돌 할 때마다 PST 파일도 손상됩니다. PST 파일이 손상되면 복구에 더 많은 노력을 기울일 것입니다. 손상된 Outlook 일일 보호보다 데이터. 이 경우 scanpst.exe는 많은 도움이되지 않습니다. 다음과 같은 더 강력한 도구로 되풀이 할 수밖에 없습니다. DataNumen Outlook Repair.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL Server 고정 된 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM