Lotus Notes Emails

Hi guys, here is my problem.

I am sending emails when the user press a button, but the problem is:

1 - How to check is LNotes is open
2- How to know if the user needs to enter the password.

With the following code an email is sent ONLY if notes is open AND the psw is not required.

Public Sub Sendmailf(Task As String)

Dim nSession As Object
Dim CurrentUser As String
Dim DataBaseName As String
Dim nDatabase As Object
Dim nMailDoc As Object
Dim nSendTo(60) As String 'array for 60 e-mail address
Dim EmbeddedObj As Object

Set nSession = CreateObject("Notes.NotesSession")
CurrentUser = nSession.username
DataBaseName = Left$(CurrentUser, 1) & Right$(CurrentUser, _
(Len(CurrentUser) - InStr(1, CurrentUser, " "))) & ".nsf"
Set nDatabase = nSession.GETDATABASE("", DataBaseName)
Call nDatabase.OPENMAIL
Set nMailDoc = nDatabase.CREATEDOCUMENT
With nMailDoc

nSendTo(0) = vemail
.Form = "Memo"
.Body = Chr(13) & Chr(13) & Chr(13) & Chr(13) & _
"Status: " & Me.status & Chr(13) & _
"Creation Date: " & Me.Open_dt & Chr(13) & _
"Effective Date: " & Me.effective_dt & Chr(13) & _
"Completion Date: " & Me.completion_dt & Chr(13) & _
"Requester: " & vreq & Chr(13) & _
"Actioned By: " & Me.Assignee & Chr(13) & _
"Description: " & Chr(13) & Me.description & Chr(13) & _
Chr(13) & Chr(13) & Chr(13) & Chr(13) & _
Chr(13) & Chr(13) & Chr(13) & Chr(13) & _
"Validation Signature: ................................." & vreq

.sendto = nSendTo
.Subject = "Task: " & Task_Num & " is Ready to be Validated"
.Importance = "0"
.SEND (False)
End With

Set nDatabase = Nothing
Set nMailDoc = Nothing
Set nSession = Nothing
Set EmbeddedObj = Nothing
End Sub

thx for your help