Hallo zusammen.
Ich habe mal das folgende Script genutzt.
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
Ich will dem User die Möglichkeit geben, ein Bild zu importieren, welches dann als Thumbnail angezeigt wird. Das habe ich nun auch mit dem Script geschafft.
Jetzt soll das Bild nur noch eine bestimmte Größe haben (z.B. 90x90) !
Hat jemand einen Tipp für mich !
Danke im voraus.
Gruß
SESE
