OUTLOOK2003で仕訳ルールを編集する方法

質問

OUTLOOK2003の仕訳ルールを大量に編集する必要があります。
いちいちOUTLOOK2003で編集するのは面倒です。
何か良い方法はありませんでしょうか

フリーソフトやEXCELで編集できるとありがたいのですが
目的はスパムで使用されるようなキーワードを使って迷惑メールの振り分けです。

なお、スパムフィルタやウイルス対策ソフトの機能を使用して振り分けるというような回答でない回答を希望します。
会社では個人では勝手にソフトを導入できず、また当面導入の予定はないそうです。
会社のメールサーバはExchangeServerを使用しています。

一日の迷惑メールの数は100通から300通程度です。
日本語が半分外国語が半分です。

OUTLOOK2003の設定では、迷惑メールを拒否するトップドメインはすべてチェックをいれてあります。
エンコードは日本語以外はすべてチェックがいれてあります。
皆様なにか良い方法はありませんでしょうかよろしくお願いします。

回答No.1

noname#70958 · ベストアンサー

Outlookの質問は回答がつきにくいですね。
以下、ご質問の趣旨に沿っているかどうか心もとないのですが…。

まず、Outlookの仕訳ルールを編集・生成するフリーウェアについては
あまり聞きませんし、今回もざっと探してみましたが見当たりませんでした。

目的は「スパムで使用されるようなキーワードを使って迷惑メールの振り分け」で
「いちいちOUTLOOK2003で編集するのは面倒」とのことですが、
仕訳ルールに頼らず、「キーワードに応じてメールを処理するマクロ」を
OutlookVBAを用いて【自作して】処理するという対策があります。
（マクロを自作するのも"ソフトの導入"にあたる場合はだめですが）

例えば、下記のマクロは、Outlookの[メモ]に記載されたキーワード群を使って処理するので、
[メモ]にExcel等で編集したキーワード群をコピペすればキーワードを追加・変更できます。

あくまでサンプルコードですから、そのままで実用に耐える代物ではありませんが、
「原理的にはこういったこともできます」というニュアンスでご参考ください。

動作の概要
　[メモ]フォルダの"NGワード"という件名の[メモ]に記載されているキーワードを読み込んで
　[受信トレイ]にあるメールのうち、それらのキーワードを件名または本文に含むメールを
　[迷惑メール]フォルダに移動する

　あらかじめ、下記のように1行目に"NGワード"と記入し、
　2行目以下の各行に実際のキーワードを記載した[メモ]を
　Outlookの[メモ]フォルダに保存しておく。
　---------
　NGワード
　honya
　hoge
　piyo
　ほにゃ
　ほげ
　ぴよ
　---------

'--------------------↓　ココカラ　↓--------------------
Sub Sample()
　With Application.GetNamespace("MAPI")
　　Set myIFl = .GetDefaultFolder(olFolderInbox)
　　Set myNFl = .GetDefaultFolder(olFolderNotes)
　　Set myJFl = .GetDefaultFolder(olFolderJunk)
　End With
　myAry = Split(myNFl.Items("NGワード").Body, vbCrLf)
　For Each myMail In myIFl.Items
　　myStr = myMail.Subject & myMail.Body
　　For i = 1 To UBound(myAry)
　　　If InStr(1, myStr, myAry(i)) <> 0 Then
　　　　myMail.Move myJFl
　　　　Exit For
　　　End If
　　Next i
　Next myMail
End Sub
'--------------------↑　ココマデ　↑--------------------

ボタンに登録すればワンクリックで起動できますし、
フルオートにするとなると、セキュリティ警告をクリアするのが面倒なので、
手動で起動する仕様です。

ちなみに、
　キーワード総数：1000
　検査対象メール：400
　スパム率：95%
の場合、私の環境で処理時間は10秒弱でした。

以上ご参考まで。長乱文陳謝。

お礼

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