Es soll ein Formular (war schon in einer älteren Version vorhanden)
über einen Button verschickt werden
Folgender Fehler:
(http://www.study-board.de/cscw.jpg)
und folgender Code:
Sub Click(Source As Button)
Dim workspace As New notesuiworkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim memo As notesdocument
Dim rtitem As NotesRichTextItem
Dim uidoc As notesuidocument
Dim doc As notesdocument
Dim sendto As String
Dim subject As String
Dim body As String
Dim StartDate As String
Dim DueDate As String
Dim Top As String
Set uidoc = workspace.currentdocument
Set db = session.currentdatabase
'Neues Dokument in der aktuellen Datenbank erzeugen
'Maske = memo
'Feldwerte des neuen Dokuments werden so gesetzt, dass es später versendet werden kann
Set memo = New NotesDocument( db )
Top = uidoc.fieldgettext ("Top_to_order")
memo.form = "memo"
sendto = uidoc.fieldgettext("Verantwortlicher_Char")
memo.Subject = "Aufgabe zu Protokoll vom " + Date +" : " + Top
memo.SendTo = sendto
'Dem neu erzeugten Dokument wird ein DocLink hizugefügt
Set rtitem = New NotesRichTextItem( memo, "Body" )
Set doc = uidoc.document
Call rtitem.AppendDocLink( doc, "" )
Call rtitem.Appendtext(" Hier ist ein Link zum Dokument")
'Nach der Abfrage ob das Dokument gesendet werden soll, wird das Dokument per Mail an den Emfänger gesendet oder nicht
If Messagebox ("Sind Sie sicher, dass Sie diese Aufgabe senden wollen", 4 + 32, "Lotus Notes") = 6 Then
Messagebox "Der Auftrag wurde an " + sendto + " gesendet", 0 + 64, "Lotus Notes"
Continue = True
memo.Send( False )
End If
uidoc.editmode = True
Call uidoc.fieldsettext("sent", "1")
Call uidoc.save
'Call uidoc.close
End Sub
Wo könnte der Fehler liegen?
bin für jeden tip dankbar..
jens