Visual Basic - Error .GOTOFIELD ("Body") al mandar email a lotus. AYUDA

Sub lotus()

Dim NSession As Object

    Dim NDatabase As Object

    Dim NUIWorkSpace As Object

    Dim NDoc As Object

    Dim NUIdoc As Object

    Dim WordApp As Object

    Dim subject As String

    Dim Recipient As Variant

        Debug.Print subject

    Set NSession = CreateObject("Notes.NotesSession")

    Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")

    Set NDatabase = NSession.GETDATABASE("", "")

    If Not NDatabase.IsOpen Then NDatabase.OPENMAIL

       'Create a new Lotus Notes document

    Set NDoc = NDatabase.CREATEDOCUMENT

    Recipient = Array("hercy.lejeune@zodiacaerospace.com", "")

    With NDoc

        .sendto = Recipient             'CHANGE RECIPIENT EMAIL ADDRESS

        .CopyTo = ("hercy.lejeune@zodiacaerospace.com")

        .subject = "Revues De Commandes à Compléter et Signer" & Chr(10) & Now

'Email body text, including marker text which will be replaced by the Excel cells

.body = "Merci d'avance pour vos actions"

.Save True, False

End With

'Edit the just-created document to copy and paste the Excel cells into it via Word

Set NUIdoc = NUIWorkSpace.EDITDocument(True, NDoc)

With NUIdoc

'Find the marker text in the Body item

.GOTOFIELD ("Body")

'.FINDSTRING "A3:F16"

'.DESELECTALL 'Uncomment to leave the marker text in place (cells are inserted immediately before)

'Copy Excel cells to clipboard

Sheets("àsigner").Range("A3:F15").Copy

'Create a temporary Word Document

Set WordApp = CreateObject("Word.Application")

WordApp.Visible = False                                'True to aid debugging

WordApp.Documents.Add

'Paste into Word document and copy to clipboard

With WordApp.Selection

.PasteSpecial DataType:=10      'Enum WdPasteDataType: 10 = HTML; 2 = Text; 1 = RTF

.WholeStory

.Copy

End With

.Paste

'Paste from clipboard (Word) to Lotus Notes document

Application.CutCopyMode = False

  Sheets("Missing pos").Range("A2:B39").Copy

Set WordApp = CreateObject("Word.Application")

WordApp.Visible = False

WordApp.Documents.Add

With WordApp.Selection

.PasteSpecial DataType:=10      'Enum WdPasteDataType: 10 = HTML; 2 = Text; 1 = RTF

.WholeStory

.Copy

End With

.Paste

WordApp.Quit SaveChanges:=False

Set WordApp = Nothing

.SEND (False)

.Close

End With

Set NSession = Nothing

End Sub