Outlook VBA で同時に開く電子メールの数を制限する方法

今すぐ共有:

同時に多数のメールを開いたままにしておくと、Outlookに過負荷がかかり、クラッシュの原因となる可能性があります。そのため、同時に開くメールの数を制限することをお勧めします。この記事では、Outlook VBAを使用してそれを実現する方法を解説します。

Outlook は、同時に多くのメールを開いた場合など、過負荷になるとクラッシュする傾向があります。 したがって、一度に限られたメールだけを開いたほうがよいでしょう。 Outlook はこれをネイティブにサポートしていませんが、次の方法で簡単に実現できます。

Outlook VBA で同時に開く電子メールの数を制限する

同時に開く電子メールの数を制限する

  1. まず最初に、Outlookプログラムを起動してください。
  2. 次に、VBA エディターにアクセスする必要があります。 「開発者」タブに移動し、「Visual Basic」ボタンを押すことができます。 または、メイン画面で「Alt + F11」キーを押すだけです。
  3. 続く「Microsoft Visual Basic for Applications」ウィンドウで、「ThisOutlookSession」プロジェクトを見つけて開くことができます。
  4. 次に、以下の VBA コードをコピーして、この VBA プロジェクトに貼り付ける必要があります。
Public WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal objNewInspector As Inspector)
    Dim objInspector As Outlook.Inspector
    Dim i As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    i = 0
    If objNewInspector.CurrentItem.Class = olMail Then
 
       If objInspectors.count > 5 Then
          For Each objInspector In objInspectors
              If objInspector.CurrentItem.Class = olMail Then
                 i = i + 1
              End If
          Next
 
          If i > 5 Then
             strMsg = "You're allowed to open 5 emails at the same time. The previous email is closed!"
 
             MsgBox strMsg, vbExclamation + vbOKOnly
 
             ActiveInspector.CurrentItem.Close olSave
          End If
 
      End If
    End If
End Sub

VBA コード - 同時に開く電子メールの数を制限する

  1. その後、このマクロに署名する必要があります。
  • ツールバーの「ツール」ボタンをクリックします。
  • 次に、ドロップダウンリストから「デジタル署名」オプションを選択します。
  • ポップアップダイアログボックスで、画面の指示に従って完了します。
  1. 後でマクロ設定を変更して、デジタル署名されたマクロを許可することができます。
  2. 最終的に、Outlookアプリケーションを再起動することでマクロを有効にできます。
  3. これ以降、XNUMX 通目のメールを開くたびに、スクリーンショットのようなメッセージが表示されます。警告
  4. また、前のメールは自動的に閉じられます。

貴重なOutlookデータを取得する

Outlook に多くの注目すべき機能があることは否定できません。 しかし、それは完璧であることを意味するものではありません。 まだまだダメージは免れません。 さまざまな要因が Outlook の破損につながる可能性があります。 したがって、 Outlookを回復する データをより簡単にするには、定期的に PST ファイルをバックアップする必要があります。 また、高品質の修復ツールも必要です。 DataNumen Outlook Repair.

著者紹介:

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを修正 と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有:

コメントは締め切りました。