Excel VBA send Mail from OPEN Lotus Notes - Without input

Ok, I have a workbook, which tracks reviews of documentation, as each review is completed it emails the next reviewer to let them know. It uses de Bruins CDO code to do this.

I now have a request to change this to use an open lotus notes session on the users pc to send the mail. As he can't get his IT to allow access to their servers SMTP ports. I think it's daft, but customer is always right..

So I have the following code, but, I am testing this using lotus notes I d/l'd from the net and set up standalone on my pc with a gmail account connected. It doesn't work as it get the database name wrong, it presumes the database name can be calculated from my username, when as it's a gmail account it names the Db imapxxxx.nsf.

Can I get the following code to use the open Lotus Notes application to send a mail, without having the user having to input anything, or hardcoding database names etc in?

Dim Maildb As Object 'The mail database
    Dim UserName As String 'The current users notes name
    Dim MailDbName As String 'THe current users notes mail database name
    Dim MailDoc As Object 'The mail document itself
    Dim AttachME As Object 'The attachment richtextfile object
    Dim Session As Object 'The notes session
    Dim EmbedObj As Object 'The embedded object (Attachment)
    'Start a session to notes
    Set Session = CreateObject("Notes.NotesSession")
    'Next line only works with 5.x and above. Replace password with your password
    Session.Initialize ("password")
    'Get the sessions username and then calculate the mail file name
    'You may or may not need this as for MailDBname with some systems you
    'can pass an empty string or using above password you can use other mailboxes.
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

    'Open the mail database in notes
    Set Maildb = Session.GETDATABASE("", MailDbName)
     If Maildb.IsOpen = True Then
          'Already open for mail
     Else
         Maildb.OPENMAIL
     End If
    'Set up the new mail document
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Distrib
    MailDoc.Subject = Subj
    MailDoc.Body = msg
    MailDoc.SAVEMESSAGEONSEND = True
    'Set up the embedded object and attachment and attach it
' Commented out, there will never be attachments, text only.
   ' If Attachment <> "" Then
   '     Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
   '     Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
   '     MailDoc.CREATERICHTEXTITEM ("Attachment")
    'End If
    'Send the document
    MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
    MailDoc.SEND 0, Distrib
    'Clean Up
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing

Select allOpen in new window

While I have pretty decent experience using EXCEL VBA and CDO methods etc, I have never used Lotus Notes in my life much less accessed it from Excel. It took me 3 hours just to get the damn thing to send and receive from gmail... SO please bear with me If I'm missing something obvious..

Thanks for your help.