あなたの会社があなたの会社の外部の人に電子メールを送ってはならないという正確な方針を持っているなら、あなたはこの記事で紹介された方法を使うことができます。 電子メールが社外に送信された場合に警告を受け取るためにVBAを使用する方法を説明します。
場合によっては、データのセキュリティを保護するために、会社がビジネス用メールアカウントを使用するときは、社内の人にのみメールを送信するように要求することがあります。 つまり、社外の人、つまり外部ドメインのメールアドレスにメールを送信することは許可されていません。 しかし、たぶん時々あなたは少し忘れられます。 この場合、外部の会社に電子メールを送信するときにOutlookが自動的に警告を表示できるようにしたいと思うかもしれません。 ここでは、この問題に焦点を当て、OutlookVBAを介してそれを達成する方法を説明します。
社外の人にメールを送信すると警告が表示される
- そもそも、starOutlookプログラム。
- 次に、「Alt + F11」キーのショートカットを押します。
- 次に、OutlookVBAエディターウィンドウにアクセスします。
- 続いて、「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がクラッシュする傾向があります。 Outlookがクラッシュするたびに、PSTファイルも影響を受けます。 あなたのPSTファイルが危険にさらされると、あなたは取り戻すためにはるかに多くの努力を費やすでしょう 破損したOutlook 毎日の保護よりもデータ。 その場合、scanpst.exeはあまり役に立ちません。 次のようなより強力なツールに戻る以外に選択肢はありません。 DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL Server 修正します と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com