Kann mir jemand sagen, was hier die Fehlermeldung "Type mismatch" verursacht??? Es handelt sich hier um die Buchung eines Termins auf ein Seminar mit Mailversand an den Seminarleiter (Mitteilung über Buchung).
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim session As New Notessession
Dim uidoc As NotesUIDocument
Dim view As Notesview
Dim Doc As Notesdocument
Dim Maildoc As Notesdocument
Dim db As Notesdatabase
Dim UID As String
Dim DocID As String
Dim ritem As NotesRichTextitem
Set db = Session.Currentdatabase
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.document
doc.Terminstonierung= Inputbox ("Geben Sie das Datum der Stonierung ein")
doc.Grundstonierung=Inputbox("Geben Sie einen Grund für die Stonierung ein")
doc.Status="2"
Call Doc.Save(1,0)
UID=uidoc.fieldgettext("DocUID")
Call ModifyAktUser(uidoc,-1)
' Mail absenden
Set MailDoc = New NotesDocument( db )
MailDoc.Form = "Memo"
' Empfänger aus Profil auslesen
MailDoc.SendTo = Profil.Getitemvalue("Autor")
' Thema Mail
MailDoc.Subject = "Terminstonierung von " + doc.Teilnehmer(0)
' DocLink einfügen
Set rtitem = New NotesRichTextItem( MailDoc, "Body" )
Call rtitem.AppendDocLink( doc, "Buchung" )
Call Maildoc.Send( False )
Call uidoc.close
Call workspace.viewrefresh
End Sub
Hoffe jemand kann mir helfen - Die Bezüge (Namen) auf Felder sind alle richtig geschrieben.
