Notes文書の添付ファイルを取得するLotusScript

Notesマイグレーションでは、Notes文書だけではなく、文書に添付されたファイルも移行する必要があります。Notes文書から添付ファイルを抽出する方法はヘルプに記載がありますが、こちらの記事にあるように正常に動作しません。（doc.EmbeddedObjectsの値がNullとなる）

• NotesdocumentクラスのプロパティEmbeddedObjectsをForallでループする際にエラー

文書の添付ファイルを取得する処理は、文書に単一のリッチテキストフィールドが存在する場合と文書に複数のリッチテキストフィールドが存在する場合を考慮する必要があります。（それぞれのリッチテキストフィールドに、添付ファイルがある場合、ない場合、複数ある場合の組み合わせも考慮する必要があります。）

上記を踏まえて以下の関数を記載しました。

Sub Initialize
	Dim ss As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	
	'Set db = New NotesDatabase("Server","FilePath")
	Set db = ss.CurrentDatabase
	'--データベースの全てのNotes文書を取得
	Set dc = db.AllDocuments
	'--Notes文書を順次に取得
	Set doc = dc.GetFirstDocument
	While Not ( doc Is Nothing )
		'--Notes文書の全フィールド(Item)を順次に取得
		ForAll item In doc.Items
			'--フィールドがリッチテキストであれば
			If (item.Type = RICHTEXT ) Then
				'--リッチテキスト内の全てのオブジェクトを参照
				ForAll object In item.EmbeddedObjects
					If (object.Type = EMBED_ATTACHMENT) Then
						'c:¥Temp以下にオブジェクトを書き出す
						Call object.ExtractFile("c:¥Temp" & object.Source)
					End If
				End ForAll
			End If
		End ForAll
		Set doc = dc.GetNextDocument(doc)
	Wend
End Sub

※ 添付ファイルの出力先フォルダにはアクセス権限の付与が必要。
※ 同名のファイルが作成済の場合は、無条件で上書きされる。

（ここから、さらに添付ファイルの種類を判定することもあったりするのですが、それは別途で記載をする予定です。）