Comment joindre des documents avec LotusScript

Instructions

1. Cliquez sur "Démarrer" de Windows et puis cliquez sur "Editor LotusScript."

2. Entrez le code suivant dans la fenêtre ouverte pour joindre le document "test.txt" à la base de données Notes:

   Sous Initialisation

   SES Dim en tant que nouveau NotesSession

   Dim db Comme NotesDatabase

   Collection Dim Comme NotesDocumentCollection

   Doc Dim Comme NotesDocument

   Dim rtitem As Variant

   Object Dim Comme NotesEmbeddedObject

   Set db = ses.CurrentDatabase

   Définissez collection = db.AllDocuments

   Réglez doc = collection.GetFirstDocument

   Réglez rtitem = doc.GetFirstItem ("Body")

   Appelez rtitem.EmbedObject (EMBED_ATTACHMENT "", "test.txt",)

   Appelez doc.Save (True, True)

   End Sub

3. Cliquez sur "Fichier" puis cliquez sur «Enregistrer» pour appliquer la modification à la base de données Notes.