取得資料庫名稱

Dim ss As New NotesSession

Dim db as NotesDatabase

Set db = ss.CurrentDatabase

print db.FileName '取得名稱