Dokument Reload und ein Edit mit Dialogbox für Attachment

[Scotty67]

Möchte gerne in einem Dokument einen "Attachment einfügen" Dialog anzeigen mit dem der Benutzer ein Attachment
einfügen kann.

Hier ein Script der das aktuelle Dokument kurzzeitig in den Editmode versetzt, einen Wert ändert und ein Reload
des Dokuments durchführt.





Dim db As NotesDatabase
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim user As String
Dim itemA As NotesItem
   
user = session.UserName

Dim boxType As Long
Dim answer As Integer
   
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.Document


boxType& = 4 + 32
answer% = Messagebox("Möchten Sie den Projektabschlussbericht jetzt starten?", boxType&,   "Abschlussbericht eröffnen ?")
   
   
If answer%=7 Then
   Exit Sub
Else
   uidoc.EditMode=True
   Call uidoc.FieldSetText ("DocPjAbschluss","1")
      
End If
   
   
uidoc.AutoReload = True
Call uidoc.Save
Call workspace.ReloadWindow( )
uidoc.EditMode=False
uidoc.AutoReload = True


Ich wollte gleich am Ende von dem uidoc.Autoreload
das hier (nächsten 2 Codezeilen) exekutieren damit schmiert mir aber LN ab.



Set uidoc = workspace.EditDocument( True )
Call uidoc.GotoField( "ProjectClosingReportPM" )


Und wie bereits Eingangs erwähnt eine Dialogfenster für einen Attachment-Upload fehlt mir noch.
Wie gehts das ?


LG/Hannes

[Schnubbel]

Du möchtest dir OpenFileDialog method in der Hilfe durchlesen

Gruß
Thorsten

[Scotty67]

Thorsten, hab ich schon !

Dim uiw As New NotesUIWorkspace
Dim uidoc2 As NotesUIDocument
Dim getfile As Variant
Set uidoc2 = uiw.CurrentDocument
getfile=uiw.openfiledialog( False,"Please select the file", "Excel Spreadsheets|*.xls" ,"c:\Tempdir", "")

Bis zum getfile isses ja noch OK, ab dem EditDocument schmiert LN ab

Set uidoc2 = uiw.EditDocument( True )
Call uidoc2.GoToField("ProjectClosingReportPM")
Set handle = uidoc2.CreateObject("Sheet Name","",getfile(0))

[Schnubbel]

Ich hab hier son Code - Snipsel. Kurze Erklärung: DateiDialog erscheint, Datei(en) wird in RTF (Attachment) geschoben, Dokument wird gespeichert.

Dim ws as New Notesuiworkspace
Dim uidoc as Notesuidocument
Dim RDoc as Notesdocument

set uidoc = ws.currentdocument
set RDoc = uidoc.document


Dim filenames As Variant
Dim object As NotesEmbeddedObject
Dim rtitem As NotesRichTextItem


filenames = ws.OpenFileDialog(True,"Dateien anhängen")
      
   Forall filename In filenames
      Set rtitem = RDoc.GetFirstItem( "Attachment" )
      If (rtitem Is Nothing) Then
         Set rtitem = New NotesRichTextItem( RDoc, "Attachment")
      End If   
      Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", filename )
      Call RDoc.Save(1,1)
   End Forall

Hoffentlich hilft dir das weiter.

Thorsten

[Scotty67]

maaaaa  )))  magst mich heiraten ?  *ggg*  - DANKE - es funktioniert !!!!