メーリングリストの各メールの添付ファイルの数をすばやく取得したい場合は、この記事のVBAコードを使用できます。 すべての受信メールの添付ファイルを自動的にカウントし、そのカウントを新しい列に表示します。
一部のユーザーは、電子メールの添付ファイルを頻繁に数える必要があります。 このシナリオでは、添付ファイル数を表示するための専用列を作成して有効にしてみませんか? 以下では、Outlookに電子メールの添付ファイルを自動カウントさせ、そのカウントをそのような新しい列に表示する方法を説明します。

メーリングリストに添付ファイル数を表示する
- まず、Outlookアプリケーションを起動してください。
- 次に、Outlookのメインウィンドウで「Alt + F11」キーボタンを押します。
- 次に、新しいOutlook VBAエディターウィンドウで、使用されていないモジュールを開く必要があります。
- 続いて、次のVBAコードをコピーしてこのモジュールに貼り付けます。
Sub AutoCountAttachments(objMail As Outlook.MailItem)
Dim objAttachments As Outlook.Attachments
Dim objProperties As Outlook.UserProperties
Dim objProperty As Outlook.UserProperty
Dim strPropertyName As String
Set objAttachments = objMail.Attachments
strPropertyName = "Attachment Count"
Set objProperties = objMail.UserProperties
'Check if there is already a column in this name
Set objProperty = objProperties.Find(strPropertyName, True)
If objProperty Is Nothing Then
'If not, add this column
Set objProperty = objProperties.Add(strPropertyName, olText, True)
End If
'Set the column value equal to the count of attachments
objProperty.value = objAttachments.Count
objMail.Save
End Sub
- その後、現在の「Microsoft Visual BasicforApplications」ウィンドウを終了できます。
- 後で、すべての受信メールでこのスクリプトを実行するための新しいルールを作成する必要があります。
- まず、「ファイル」メニューに移動し、「情報」タブの下の「ルールとアラートの管理」ボタンをクリックします。
- 次に、新しいダイアログボックスで、[新しいルール]ボタンを押します。
- 次の「ルールウィザード」画面で、「受信したメッセージにルールを適用する」を選択し、「次へ」をクリックします。
- 次に、「条件の選択」を無視して、「次へ」をクリックします。
- 次に、「スクリプトの実行」アクションを選択し、次のスクリーンショットのように、以前に追加したマクロを選択します。
- その後、最後の「ルール設定の完了」画面が表示されるまで、いくつかの「次へ」をクリックします。
- 後で、このルールに新しい名前を指定し、「すでに「受信トレイ」にあるメッセージに対してこのルールを実行する」オプションと「このルールをオンにする」を有効にする必要があります。
- 最後に、「完了」ボタンをクリックします。
- その後、VBAコードによって作成された「添付ファイル数」列を追加する必要があります。 以下の手順を実行してください。
- まず、メーリングリスト画面の「表示」タブに移動します。
- 次に、「設定の表示」ボタンをクリックします。
- 新しくポップアップしたダイアログボックスで、「列」ボタンを押します。
- 次に、[列の表示]ウィンドウで、[受信トレイのユーザー定義列]の下にある[添付ファイル数]列を見つけて選択し、[追加]ボタンをクリックします。
- 最後に「OK」ボタンをクリックして変更を保存します。
- 最終的に、次の画像に示すように、各電子メールの添付ファイル数を表示する「添付ファイル数」列が電子メールリストに表示されます。
イライラするPSTデータの損失を回避する
誰もPSTデータの損失を受け入れる気はないと考えられています。 同じことがあなたにも当てはまるはずです。 したがって、PSTファイルのデータバックアップを作成したり、次のような信頼できる修正ツールを入手したりするなど、いくつかの予防措置を講じる必要があります。 DataNumen Outlook Repair。 それができる Outlookを修復する 汗をかくことなく問題。
著者紹介:
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL修正 と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com




