Ciao a tutti ,
Il codice che vedrete in seguito é inserito all\'interno del pulsante che vedete
nell\'immagine allegata.
Il problema é che viene creato un documento nuovo
e visualizzato tramite una dialogbox. Quando poi nel
campo rich Text del documento visualizzato viene
inserito un allegato e poi
salvato, il campo rich Text non viene
valorizzato e l\'allegato viene messo in fondo al di là
di una linea orizzontale.(vedi allegato)
é possibile fare in modo che l\'allegato venga
salvato nel campo correttamente.
Grazie
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docBox As NotesDocument
Set uidoc = ws.CurrentDocument
If uidoc.EditMode = False Then uidoc.editmode = True
Set db = s.CurrentDatabase
Set docBox = db.CreateDocument
box = ws.DialogBox("BOX", False, False, False, False, False, False, "Lotus Notes", docBox)
If box = False Then Exit Sub
docBox.form = "BOX"
docBox.Save True, True
|