Lotus notes e-mail 1

[44nato44]

Hi

My code below is working fine, but my problem is when lotus notes is locked and it wants to send a mail, in the background the password input box opens to request the password, but the user cannot see it so the user thinks something is wrong and closes the DB.

I want to move the password input box (or what you call it) up front so the user can see it, any ideas how I do that ?


Function NotesMailSend(strRecipient As String, strSubj As String, strBody As String)

On Error GoTo Err_NotesMailSend

Dim objNotes As Object
Dim objNotesDB As Object
Dim objNotesMailDoc As Object
Dim lotusWindow

Set objNotes = GetObject("", "Notes.Notessession")
Set objNotesDB = objNotes.getdatabase("", "")

Call objNotesDB.openmail

Set objNotesMailDoc = objNotesDB.CreateDocument

Call objNotesMailDoc.replaceitemvalue("SendTo", strRecipient)
Call objNotesMailDoc.replaceitemvalue("Subject", strSubj)
Call objNotesMailDoc.replaceitemvalue("Body", strBody)

Call objNotesMailDoc.Send(False)
MsgBox "E-Mail Send to Admin and manager", vbInformation, "ABN Amro"
Set objNotes = Nothing

Exit_NotesMailSend:
Exit Function

Err_NotesMailSend:
Select Case Err.Number
Case 429, 7063
MsgBox "A e-mail was not send to the Manager or approver, please make sure that you send a mail manually", vbInformation, "ABN Amro"
Case Else
MsgBox Err.Number & Chr(13) & Err.Description
Resume Exit_NotesMailSend
End Select

End Function

 

[PHV]

I'd try to play with RunCommand acCmdAppMinimize

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[44nato44]

Thanks PHV, not as elegant as I wanted but this will work.