send emails from excel to lotus notes group mailbox

Hi,

Utilizing the below code, do you know how I can alter this to send emails from my group mailbox versus my personal mailbox in Lotus Notes and also be able to categorize the emails based on the drop down list contained within the Lotus notes database and lastly ensure that the email still gets sent for approval?

Code below:

Sub send_email()
Dim sSignature, oWorksheet, oNotesSession, oMailDBName, oNotesMail, bDebug
On Error Goto 0
Set oWorksheet = Application.ActiveWorkbook.Worksheets.Item(1)
Set oNotesSession = CreateObject("Notes.NotesSession")
bDebug=True
Set oMailDB = oNotesSession.GETDATABASE("", "")
If oMailDB.IsOpen = True Then
If bDebug Then MsgBox("Mail database for user " & sUserName & " is already open.")
Else
If bDebug Then MsgBox("Opening mail database for user " & sUserName)
oMailDB.OPENMAIL
End If
sSignature =...