Genau,das meine ich.
TMC hat eine Anleitung in der Rubrik "Best Parctise" erstellt, nur die funktioniert nicht so ganz.
Der Button ruft zwar die File-Box auf, nur kannn ich leider keine Dateien mit den entsprechenden Endungen auswählen. Anstatt gif, jpg oder bmp wird mit
%§$&
"!//
"§$(/"
0815
angezeigt.
Zitat:
6. Praxis
Hier ein Beispiel-Script, welches für eine Aktion in einer Maske gedacht ist:
Code:Sub Click(Source As Button)
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim vFilepath As Variant
Dim szFilepath As String
Dim szEndung As String
Set db = session.CurrentDatabase
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document
vFilepath = uiws.OpenFileDialog( True, db.Title, "Supported Images|*.cgm;*.jpg;*.bmp;*.gif;*.jpeg", "D:\")
If Isempty(vFilepath) Then Exit Sub ' Script verlassen falls User keine Datei auswählt
Forall ImageList In vFilepath ' Durch die ausgewählten Dateien loopen
szFilepath = ImageList
'Holt die Dateiendung in den String, dabei mit LowerCase auf Kleinschreibung umgestellt
szEndung = Lcase$(Right$(szFilepath, 3))
Select Case szEndung
Case "gif":
Call uidoc.Import("GIF Image",szFilepath)
Case "jpg":
Call uidoc.Import("JPEG Image",szFilepath)
Case "cgm":
Call uidoc.Import("CGM Image",szFilepath)
Case "peg":
Call uidoc.Import("JPEG Image",szFilepath)
Case "pcx":
Call uidoc.Import("PCX Image",szFilepath)
Case "bmp":
Call uidoc.Import("BMP Image",szFilepath)
End Select
End Forall
End Sub
