Buenas Miguel, gracias por responder.

tengo este codigo en lotus script

Dim ns As New NotesSession
    
    Dim rStyle As NotesRichTextStyle
    
    Dim ndb As NotesDatabase
    
    Dim nd As notesdocument
    
    Dim ndcol As notesdocumentcollection
    
    Dim doccorreo As NotesDocument
    
    Dim rtitem As NotesRichTextItem
    
    Set ndb=ns.currentdatabase
    
    Set ndcol=ndb.unprocesseddocuments
    
    Set nd=ndcol.GetFirstDocument
    
    For i=1 To ndcol.count
        
        Print "Procesando documento nº " & Cstr(i) & " de " & Cstr(ndcol.count)
        
        Set doccorreo = New NotesDocument (ndb)
        
        Set rtitem = New NotesRichTextItem (doccorreo, "Body")
        
        Set rStyle = ns.CreateRichTextStyle
        
        Call rtitem.AppendText ("FECHA : " + nd.fecha(0) )
        
        Call rtitem.AppendStyle(rStyle)
        
        rstyle.Bold=True
        
        rstyle.Italic=True
        
        rStyle.NotesColor = COLOR_DARK_BLUE
        
        Call rtitem.AddNewLine (2)
        
        Call rtitem.AppendText ("AGENTE ADUANAL : " + nd.patente(0) )
        
        Call rtitem.AddNewLine (2)
        
        Call rtitem.AppendText ("PEDIMENTO : " + nd.pedimento(0) )
        
        Call rtitem.AddNewLine (2)
        
        Call rtitem.AppendText ("CONTENEDOR : " + nd.contenedor(0) )
        
        Call rtitem.AddNewLine (2)
        
        Call rtitem.AppendText ("IMPORTADOR : " + nd.importador(0) )
        
        Call rtitem.AddNewLine (2)
        
        Call rtitem.AppendText ("MERCANCIA : " + nd.mercancia(0) )
        
        Call rtitem.AddNewLine (2)
        
        Call rtitem.AppendText ("MANIOBRA REALIZADA : " + nd.maniobra_rea(0) )
        
        Call rtitem.AddNewLine (2)
        
        Call rtitem.AppendText ("DEPENDIENTE : " + nd.tramitador(0) )
        
        Call rtitem.AddNewLine (2)
        
        Call rtitem.AppendText ("OBSERVACIONES : " + nd.observaciones(0) )
        
        Call rtitem.AddNewLine (2)
        
        doccorreo.Subject = "AVISOS ISS 1ER RECONOCIMIENTO"
        
        Call doccorreo.sendto(False,nd.e_mail(0))
        
        Set nd=ndcol.GetNextDocument(nd)
        
    Next

y coloque una boton de accion como me mencionas pero no hace nada.

me podrias echar una manita.

gracias.