Dim ss As New NotesSession
Dim db as NotesDatabase
Set db = ss.CurrentDatabase
print db.FileName '取得名稱