Outlookの自動仕訳でメールをメモに変換したい

質問

メーラーとしてOutlook2003を使っています。
ノキア製携帯電話との同期のために、Outlookの受信メールの件名や本文をOutlookのメモに変換するような仕組みをつくりたいのですが、自動仕訳で実現するにはどのようなスクリプトにすればよろしいのでしょうか？
（ノキアの同期アプリがメールの同期に対応していないため。。）

宜しくお願いします。

回答No.1

_Kyle

>自動仕訳で実現するにはどのような
>スクリプトにすればよろしいのでしょうか？

既にご承知かもしれませんが、仕訳ルールからスクリプトを起動して
受信メールの本文にアクセスしようとすると、
Outlookは下記URLにあるような警告ダイアログを表示します。
結果、送受信の都度クリックが必要になり「自動」を実現できません。
http://office.microsoft.com/ja-jp/outlook/HA011127891041.aspx

もし「上記警告を回避するには？」というのがご質問の趣旨であれば、
残念ながらお役に立てません。以下の記述は無視してください。
---------------------------------
>ノキア製携帯電話との同期のために

ということなので、
受信と同時に1件ずつリアルタイムで処理するのではなく、
同期する直前に一括処理すれば良いように思うのですがいかがでしょうか。
手動で起動する仕様でよければ比較的簡単に実現できます。
---------------------------------
※※参考※※

以下のサンプルコードは、
現在開いているフォルダの全てのメールについて、
【紫フラグが立っているものがあれば】
--------------
件名
送信者名
送信者アドレス
受信日時

本文
--------------
という形式でメモを作成し、フラグを倒します。

※処理するメールについてあらかじめ仕訳ルールで
　フラグを立てておくことを想定しています。

'--------------------↓　ココカラ　↓--------------------
Sub Sample090615()
　Dim myMail As MailItem
　Dim myNote As NoteItem
　For Each myMail In ActiveExplorer.CurrentFolder.Items
　　With myMail
　　　If .FlagIcon = olPurpleFlagIcon Then
　　　　Set myNote = Application.CreateItem(olNoteItem)
　　　　myNote.Body = Join(Array( _
　　　　　.Subject, _
　　　　　.SenderName, _
　　　　　.SenderEmailAddress, _
　　　　　.ReceivedTime, _
　　　　　vbCrLf, _
　　　　　.Body _
　　　　　), vbCrLf)
　　　　myNote.Save
　　　　.FlagIcon = olNoFlagIcon
　　　　.Save
　　　End If
　　End With
　Next myMail
End Sub
'--------------------↑　ココマデ　↑--------------------

Outlook2003で動作確認。
以上ご参考まで。長乱文陳謝。