Sende mail fra excel via notes

Jeg har brugt at sende mail fra excel via notes ud i virkeligheden ...

Vi har opgraderet vores notes ... snøft ... og mit script virker ikke længre ...

Her er scriptet

Sub notessend(filnavn, subject, modtager)

Dim i
Dim notesdb As Variant
Dim notesdoc As Variant
Dim subj As Variant
Dim docitem As Variant
Dim emb As Variant
Dim nab As Variant
Dim view As Variant
Dim pdoc As Variant
Dim notes As Object

myUserName = bmsti

           
Set notes = CreateObject("Notes.NotesSession")
Set nab = notes.GetDatabase(notes.CurrentDatabase.Server, "names.nsf")
Set view = nab.GetView("($Users)")
Set pdoc = view.GetDocumentByKey(notes.UserName)
If Not pdoc Is Nothing Then
    Set notesdb = notes.GetDatabase(notes.CurrentDatabase.Server, pdoc.GetItemValue("mailfile")(0))
    Set notesdoc = notesdb.CreateDocument
    Set subj = notesdoc.AppendItemValue("subject", subject)
    notesdoc.AppendItemValue "sendto", modtager
    Set docitem = notesdoc.CreateRichTextItem(0)
    If EMBED_ATTACHMENT = "" Then
        EMBED_ATTACHMENT = 1454
    End If
    Set emb = docitem.EmbedObject(EMBED_ATTACHMENT, "", filnavn)
    notesdoc.SaveMessageOnSend = True
    notesdoc.Send False, modtager
End If

End Sub

Jeg får en fejl i linien
    Set notesdoc = notesdb.CreateDocument

Nogen der kan hjælpe ...

Tak