Domino 9 und frühere Versionen > ND6: Entwicklung

Datei anhängen per Button??

(1/3) > >>

Tibo:
Hallo zusammen!

Ich habe folgendes Problem: Um es den Anwendern einfacher zu gestallten, soll es möglich sein, durch die Betätigung eines Buttons ein Dialogfenster des Explorers anzuzeigen, um sich dann eine Datei auszuwählen.

Ich habe bereits folgenden Code geschrieben:


--- Code: ---Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim newuidoc As NotesUIDocument
Dim doc As NotesDocument
Dim anhang As NotesRichTextItem
Dim datei As Variant

'Für Fehlerbehandlung: Name des aktuellen Objektes
Const constrObjectName = "frmEingabe"

'Aufruf der Fehlerbehandlung
On Error Goto ErrHandler


Set uidoc = ws.CurrentDocument
Set db = s.CurrentDatabase
Set doc = uidoc.Document


'Anhang vorhanden?
If doc.HasEmbedded Then
Msgbox "Sie haben bereits ein PDF ausgewählt", 48, "Fehler"
Exit Sub
End If

'neues Dokument?
If doc.IsNewNote Then
Set anhang = New NotesRichTextItem(doc, "posAhang")
Else
Set anhang = doc.GetFirstItem("posAnhang")
End If


'Dateidialog öffnen
datei = ws.OpenFileDialog(False)
'Abbruch, falls keine Datei ausgewählt wurde
If Isempty(datei) Then
Exit Sub
End If

Call uidoc.GotoField("posAnhang")

If anhang.type = 1 Then
Call anhang.EmbedObject(EMBED_ATTACHMENT, "", datei(0))
Call anhang.Update
doc.SaveOptions = "0"
Call uidoc.Close(True)
Set NewUIDoc = ws.EditDocument(True, doc)
Delete uidoc 'Referenz auf das alte Frontend-Dokument löschen
Set Doc = NewUIDoc.Document
Call doc.RemoveItem("SaveOptions")
End If


Ende:
Exit Sub

ErrHandler:
Call pdfOutputError(constrObjectName, Err, Erl(), Error())
Resume Ende

End Sub
--- Ende Code ---

Doch leider funktioniert der leider nicht. Kann mir da jemand weiterhelfen?

Gruß Tibo

DerAndre:
Wie immer die gleiche Frage.
Was funktioniert nicht.
Ohne Fehlerbeschreibung bringt das nicht viel...

Tibo:
Sorry  ;)

Im Code läuft er bis zu der Stelle:


--- Code: ---If anhang.type = 1 Then
--- Ende Code ---

Ab:


--- Code: ---Call anhang.EmbedObject(EMBED_ATTACHMENT, "", datei(0))

--- Ende Code ---

mach er nichts mehr.

MadMetzger:
Was heißt macht nichts mehr? Kommt eine Fehlermeldung, oder wie? Schonmal mit dem Debugger geschaut?

Axel:
Auf die Schnelle ist mir ein Schreibfehler aufgefallen:

...
'neues Dokument?
   If doc.IsNewNote Then
      Set anhang = New NotesRichTextItem(doc, "posAhang")
   Else
      Set anhang = doc.GetFirstItem("posAnhang")
   End If
...


Tritt der Fehler nur bei neuen Dokumenten oder auch bei bestehenden auf? RTF-Felder reagieren manchmal etwas seltsam wenn das Dokument noch nicht gespeichert wurde.

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite