Ich hab hier ein script ich glaub von eknori
Declare Function NEMGetFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String ) As Integer
Sub Click(Source As Button)
'Declare variables...
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim szFileName As String*256
Dim szTitle As String
Dim szFilter As String
Dim szSelectedFile As String
'Set values...
szFilename = Chr(0)
szTitle = "Open File"
szFilter = "All Files |*.*|Word Document |*.doc|Text Files|*.txt|"
If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
szSelectedFile = szFileName
Set uidoc = workspace.CurrentDocument
uidoc.GotoField( "BidsOS" )
Call uidoc.Import("JPEG Image",szSelectedFile)
End If
End Sub
Dieses Script fügt das Bild ein. Und ich hab dann das Script mit dem fettgedruckten erweitert:
Sub Click(Source As Button)
'Declare variables...
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim obj As NotesembeddedObject
Dim rti As NotesRichTextItem
Dim szFileName As String*256
Dim szTitle As String
Dim szFilter As String
Dim szSelectedFile As String
'Set values...
szFilename = Chr(0)
szTitle = "Open File"
szFilter = "All Files |*.*|Word Document |*.doc|Text Files|*.txt|"
If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
szSelectedFile = szFileName
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
uidoc.GotoField( "Bild" )
Call uidoc.Import("JPEG Image",szSelectedFile)
End If
TEST$ = szSelectedFile
Set rti = New NotesRichTextItem( doc, "Picture" )
Set obj = rti.EmbedObject(EMBED_ATTACHMENT, "", TEST$)
' Call doc.save (True,True)
End Sub
Nur erstellt er mir dann im doc ein neues Feld Picture ich hab aber ein bestehendes!! Aber der Anhang hängt ganz unten am doc unter einer durchgezogenen linie aber das Feld Picture ist ganz wo anders?
