es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Cómo contar los archivos adjuntos antes de guardar el documento en LotusScript?

Me gustaría comprobar si se adjunta un archivo en un campo de RichText antes de guardar (es un nuevo documento) el formulario en lotusscript. Hay un campo de RichText llamado “Attachs” y un botón para ejecutar el siguiente código. Muestra “Por favor, adjunte un archivo” cuando hago clic en el botón sin adjuntar ningún archivo, y luego sigue mostrando el mismo mensaje cuando lo he adjuntado. ¿Cómo puedo resolver este problema? Muchas gracias.

Si uidoc.Document.Attachs(0) = "" Luego
    Msgbox "Por favor, adjunte un archivo",,"Atención"
Sino
    Msgbox "Ok, ha adjuntado un archivo"
Fin Si
Tags:  , , ,

Answer

  1. Avatar for davy.ai

    Para verificar si un archivo adjunto está adjuntado a un campo RichText antes de guardar el formulario en LotusScript, puedes utilizar el siguiente código:

    Dim rtItem As NotesRichTextItem
    Set rtItem = uidoc.Document.GetFirstItem("Attachs")
    If Not rtItem Is Nothing And rtItem.Type = RICHTEXT Then
        If rtItem.EmbeddedObjects.Count = 0 Then
            Msgbox "Por favor adjunta un archivo adjunto",, "Atención"
        Else
            Msgbox "Éxito, has adjuntado un archivo adjunto"
        End If
    End If
    

    Este código obtiene el campo RichText “Attachs” del documento actual y verifica si contiene algún objeto incrustado (archivo adjunto). Si no contiene ningún archivo adjunto, muestra el mensaje “Por favor adjunta un archivo adjunto”. De lo contrario, muestra el mensaje “Éxito, has adjuntado un archivo adjunto”.

    La razón por la que el código original siempre mostraba el mensaje “Por favor adjunta un archivo adjunto” incluso después de haber adjuntado un archivo podría ser porque solo estaba verificando el primer archivo adjunto en el campo, que podría no ser el que acaba de adjuntarse. El código modificado revisa todos los archivos adjuntos en el campo para asegurarse de que al menos haya un archivo adjunto presente.

Comments are closed.