Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase

	Dim dc As NotesDocumentCollection
	'ビューで選択した文書だけ書き出す
	Set dc = db.UnprocessedDocuments

	Dim fn As Integer
	fn = FreeFile()
	Open "c:¥dxl¥NotesData.xml" For Output As #fn Charset = "UTF-8"

	Dim exporter As NotesDXLExporter
	Set exporter = session.CreateDXLExporter( dc )
	REM リッチテキストアイテムに貼り付けられたビットマップをGIF形式に変換
	exporter.Convertnotesbitmapstogif = True

	Dim ns As NotesStream
	Set ns = session.CreateStream
	Call exporter.SetOutput( ns )

	Dim dxl As String
	dxl = exporter.Export( dc )
	Print #fn, dxl
	Close #fn

	MessageBox "出力できました!" , 0
End Sub