Olvida el tema de los permisos, ahi tienes la respuesta, hay algo que falla en la linea 20 de tu script

Probablemente venga porque Memo no sabe que es,, y no localiza los campos.

    Set Body = New NotesRichTextItem( Memo, "Body" ) 

Prueba a meterle el formulario

Set Memo = db.CreateDocument                                         
    addsubject = doc.GetItemValue("Subject")

Memo.form="Memo"

A ver que pasa, al final lo sacaremos jejeje