Newsgroup: it.comp.appl.notes-domino
Titolo: come inserire un attachment

in un database notes, di nome pippo.nsf, vorrei inserire in un nuovo
documento un attachment.
ho letto la documentazione in merito, e tutto fa riferimento al fatto che
nel modulo ci deve essere previsto un campo di tipo RichTextFile
ma ipotizziamo che non ci sia un campo RTF e io volessi comunque poter
inserire un attachment, come posso fare?
dovrei scrivere il tutto da vbasic, e questo e' il codice che ho provato a
scrivere:
Private Sub start_Click()
'definizione variabili
    Const EMBED_ATTACHMENT = 1454
    Dim Session As Object
    Dim DataBase As Object
    Dim Documento As Object
    Dim RichBody As Object
'settaggio degli oggetti
    Set Session = CreateObject("Notes.NotesSession")
    Set DataBase = Session.GETDATABASE("", "pippo.nsf")   'setta il dbase
lotus con il quale lavorare
    Set Documento = DataBase.CREATEDOCUMENT()   'crea un nuovo documento
        RichBody = Documento.EmbedObject(EMBED_OBJECT, "",
"c:\00kalos\fiufiu.txt")
    'utilizza il modulo che si chiama FlussoUpLoad per riempire il documento
    Documento.Form = "modulo1"
    'ora metto dei valori ad cazzus nei campi del modulo lotus
    Documento.item001 = "ciao"
'--------------------------------------------------'
'-----chiude la sessione sul dbase notes-----------'
    Call doc.Save(False, False)
    Set Documento = Nothing
    Set DataBase = Nothing
    Set Session = Nothing
End Sub
--------------------------------------------
kalos

Perchè non lo fai con LotusScript? Anche se non esiste nel modulo il RTF
l'attachment viene accodato alla fine del modulo stesso.
Ciao
Massimo
--
______________________________________________________________
                                       ****** ATTENZIONE ******
                  RIMUOVI "NOSPAM" dall'indirizzo di posta elettronica
                        REMOVE "NOSPAM" from the e-mail address
______________________________________________________________

si con lotus script ci sono riuscito, ma il problema e' che si deve
estendere una funzione di un prg esterno, in vbasic, che entra nel dbase
notes ed esegue questa modifica.
quindi lo devo tradurre in visual basic.
quando passo il parametro, settando un oggetto, ad esempio
set itm=doc.getfirstitem("body")
itm=doc.createrichtextitem("body")
il vbasic mi da errore... come se non esistesse il comando
createrichtextitem. ne sai di piu'?
kalos

Premetto che non ho esperienza con VB ma prova con queste modifiche:
**   =   riga modificata da me
*** =   riga aggiunta da me
Private Sub start_Click()
'definizione variabili
    Const EMBED_ATTACHMENT = 1454
    Dim Session As Object
    Dim DataBase As Object
    Dim Documento As Object
    Dim rtitem As Object                     '***
    Dim RichBody As Object
'settaggio degli oggetti
    Set Session = CreateObject("Notes.NotesSession")
    Set DataBase = Session.GETDATABASE("", "pippo.nsf")   'setta il dbase
lotus con il quale lavorare
    Set Documento = DataBase.CREATEDOCUMENT()   'crea un nuovo documento
    Set rtitem = Documento.CreateRichTextItem("Prova")
'***
    Set RichBody = rtitem.EmbedObject(EMBED_ATTACHMENT,
"","c:\00kalos\fiufiu.txt","esperimento")    '**
        'ho premesso "Set" sostituito "documento" con "rtitem"
        'e EMBED_OBJECT con EMBED_ATTACHMENT
        'utilizza il modulo che si chiama FlussoUpLoad per riempire il
documento
''' da qui continua il tuo listato con qualche altra modifica
    Documento.Form = "modulo1"
    'ora metto dei valori ad cazzus nei campi del modulo lotus
    Documento.item001 = "ciao"
'--------------------------------------------------'
'-----chiude la sessione sul dbase notes-----------'
    Call doc(umento).Save(False, False)                    '**
    Set Documento = Nothing
    Set DataBase = Nothing
    Set Session = Nothing
    Set rtitem = Nothing                   '***
    Set RichBody = Nothing            '***
End Sub
--------------------------------------------
Fammi sapere come è andata a finire.
Spero di esserti stato utile.
Ciao
Massimo
