Ich habe leider einen Filter der ganz schön lang ist. Nach genau 256 Zeichen wird jedoch der Filter nicht mehr angezeigt und es folgt die Pfadangabe zu meinem Notes Data Verzeichnis. Hier der Code:
Dim strFileDialogTitle As String
Dim strFileDialogFilter As String
Dim varFileDialogReturn As Variant
Dim uidocCurrent As NotesUIDocument
Dim docCurrent As NotesDocument
Set uidocCurrent = ispGetCurrentUIDocument
Set docCurrent = ispGetCurrentDocument(uidocCurrent)
strFileDialogTitle = "Datei anhängen"
strFileDialogFilter = "HTML-Dokumente (*.htm, *.html)|*.htm;*.html|Acrobat (*.pdf)|*.pdf|Word-Dokumente (*.doc, *.dot)|*.doc;*.dot|Excel-Dokumente (*.xls)|*.xls|VISIO-Zeichnung (*.vsd)|*.vsd|Bitmap (*.bmp)|*.bmp|Befehlsskript (*.cmd)|*.cmd|GIF Image (*.gif)|*.gif|Zip Archiv (*.zip)|*.zip"
varFileDialogReturn = uiwsCurrent.OpenFileDialog(False, strFileDialogTitle, strFileDialogFilter )