AppleScriptを使用してLotus Notesから電子メールアドレス、アカウント情報を取得する方法を教えてください。

Question

私たちは約6万の電子メールを含むメールボックスを持っており、名前、アカウント番号、電子メールアドレスをそれぞれの本体から取り出し、スプレッドシートに適した形式にエクスポートすることに挑戦してきました。

私はAppleScriptとNotes 8.5を使用することを考えていましたが、Notesの個々のメッセージと対話する方法に関するドキュメントは見つかりませんでした。

誰でも手助けできますか？

Answer 1

スクリプト言語に詳しい方は、代わりにLotusScriptを使用することをおすすめします。 Applescript and the Notes C APIではなくNotesオブジェクトに直接アクセスできます。

Notes Designerアプリケーションを使用して、メールボックス内にNotes Agentを作成できます。コードはおおよそ次のようになります。

Dim s as New NotesSession 
Dim db as NotesDatabase 
Dim dc as NotesDocumentCollection 
Dim doc as NotesDocument 

Set db = s.CurrentDatabase 
Set dc = db.Search(|Form="Memo"|, Nothing, 0) 
Set doc = dc.GetFirstDocument 

While Not (doc Is Nothing) 

    'Process each document here... 

    Set doc = dc.GetNextDocument(doc) 
End While 

各メールの本文にはどのようにメールアドレス、アカウント番号、および名前が格納されていますか？

電子メールの本文からすべてのテキストを大きなテキストファイルにプルすると、そのをApplescriptで処理することができます。

または、NotesRichTextItemメソッドを使用して、本文から特定のデータをナビゲートして抽出することができます。 NotesRichTextItemメソッドを使用すると、テーブル要素を見つけてセルをナビゲートすることができます（これはむしろ難しいことですが、2番目の質問を投稿する価値があるかもしれませんが、データが電子メールの本文内のテーブルに格納されている場合など） StackOverflowでこれについての助けを得るために）。

電子メールのTo：またはFrom：フィールドから電子メールアドレスと名前を取得する場合は、電子メールごとにNotesDocumentのプロパティにアクセスして、簡単に行うことができます。フィールドは次のように抽出することができます：

Dim ToEmail as String 
Dim FromEmail as String 

ToEmail = doc.SendTo(0) 'a document's item properties are zero-based arrays 
FromEmail = doc.From(0)