Lotus Notes und VBA(Mailen)

Private Function Mailto(thema As Integer, Empfaenger As String, Optional cc As String)
Dim Maildb As Object 'Die Datenbank
Dim UserName As String 'Der Benutzername
Dim MailDbName As String 'Der Datenbankname
Dim MailDoc As Object 'Das Maildokument selbst
Dim Session As Object 'Die Notes Session
'Die Session starten
Set Session = CreateObject("Notes.NotesSession")
'Den Benutzernamen auslesen und den Dateinamen
'der MailDB errechnen
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) _
- InStr(1, UserName, " "))) & ".nsf"
'Datenbank öffnen
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
Else
Maildb.OpenMail
End If
'Ein neues Maildokument erstellen
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Empfaenger
MailDoc.Subject = Topic(thema)
MailDoc.Body = Body(thema)
MailDoc.SAVEMESSAGEONSEND = True
'Senden
MailDoc.PostedDate = Now()
MailDoc.SEND 1, Empfaenger
'Aufräumen
Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing
End Function