Microsoft Outlookでの仕訳設定

質問

ご覧くださりありがとうございます。
ITに詳しい方、教えてください。
Microsoft Outlook 2021を使用しています。
受信トレイに保存されているメールのアドレス、すなわち過去に受信した事がある差出人からのメールは信頼できるのでそのまま受信、それ以外のメールはいったん別のフォルダに受信するという仕訳の設定をしたいのですが方法が分かりません。
信頼できる差出人のリストという機能があり、ここに受信トレイ中のアドレスを自動で登録する事ができれば実現可能となります。

回答No.2

luka3 · ベストアンサー

下記のプログラムをコピーしてメモ帳かテキストエディタに貼り付けて、
『 差出人リスト取得.vbs 』といったファイル名で保存し、
（保存する際は文字コードを『ANSI』または『シフトJIS』で保存してください）
【 Outlookを起動した状態で 】vbsをダブルクリックで実行して下さい。

実行後、『 差出人リスト.txt 』にリストが出力されますので、確認・編集して
『 信頼できる差出人のリスト 』の『 ファイルからインポート 』で登録してください。
（組織ごと信頼する場合は、ドメイン(@domain.com)だけでいいようです）

ちなみに、「信頼できる差出人」を「セーフリスト」で振り分けすると思うのですが、
「それ以外のメールを別のフォルダに受信する」にはどうやるのか
よろしかったら教えて下さい。

Dim str, inbox, mail, addr
str = ""
' 受信トレイを取得
Set inbox = GetObject(, "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
For Each mail In inbox.Items
On Error Resume Next ' SenderEmailAddressの取得でエラーが出たため対応
addr = mail.SenderEmailAddress
If Err.Number = 0 Then
If InStr(str, addr) = 0 Then ' 重複チェック
str = str & addr & vbCrLf
End If
End If
On Error Goto 0
Next
WriteFile "差出人リスト.txt", str
WScript.Echo("終了")

' ファイル書き込み
Sub WriteFile(ByVal FileName, ByVal str)
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.CreateTextFile(FileName, True)
.Write str
.Close
End With
Set fso = Nothing
End Sub

お礼

回答ありがとうございました。

Powered by GRATICA

補足

回答ありがとうございます。
また、コードまで用意していただき感謝です。
しかし、これは私が希望する方法ではありません。
【実現したい事】
1. 新着メールの差出人が現在受信トレイに保存されているどのメールの差出人アドレスとも一致しない場合、別フォルダに受信する。
2.その別フォルダに受信したメールが信頼できる場合、手動で受信トレイに移動する。以降、このアドレスから届いたメールは自動で受信トレイに入る。
3. 1.に戻る　この間、スクリプトやバッチファイルなどの実行はしない。(できない)
今回教えて頂いた方法ですと、新着メールをその都度登録する必要がありますね。

回答No.6

kkkkkm

> 現在、私が質問した設定の通りに動作しているパソコンがあります。

じゃぁそのパソコンの設定を見たらいいのではないですか。

後出しで、ある操作ができないとか条件があるからとか言わないで質問の時にちゃんと記載していた方がいいと思いますよ。

お礼

回答ありがとうございます。

Powered by GRATICA

補足

回答ありがとうございます。
実際に動作しているパソコンがあるのは事実ですが、それは私の手元にはなく、設定を確認する事ができないのでお尋ねしました。

回答No.5

kkkkkm

迷惑メールの設定で「セーフリストのみ・・・・受信トレイに配置する」
のチェックを入れて
あとは手動で都度「受信拒否しない」に設定すれば仕訳ルール使わなくていけそうな気がしますし
該当メールを受信トレイに移動して右クリックで設定するだけですからそれほど手間ではないと思いますが・・・。

補足

回答ありがとうございます。
今回の設定は、一般ユーザー、すなわち必ずしもパソコンに詳しくない方が使いやすいようにする事が目的なので手動で設定を変更するといった操作は一切行う事ができません。
ですので残念ながらこの方法は採用できません。

回答No.4

kkkkkm

> 今回は仕訳ルールの具体的な設定方法をお尋ねしました。

このコンピューターで送受信を行った場合のみ
〇〇フォルダーに移動
差出人が△△の場合を除く

で〇〇と△△に必要な情報を入力すればいいのではないですか
〇〇と△△を自動では無理だと思いますよ。

補足

回答ありがとうございます。
現在、私が質問した設定の通りに動作しているパソコンがあります。
ですので何らかの手段で実現できるようです。

回答No.3

kkkkkm

余計なお世話かもしれませんが

受信トレイには必要のないメールが入るようにして、必要なメールは送信者別などで区分したフォルダを作成してそちらに保存するようにしたほうがいいのではないでしょうか。仕訳ルールでルール毎に送信者や保存先フォルダなど設定できますから細かな区分けができると思います。

補足

回答ありがとうございます。

回答No.1

kkkkkm

メッセージルールで設定してみてください。
細かい設定ができます。

補足

回答ありがとうございます。
今回は仕訳ルールの具体的な設定方法をお尋ねしました。