Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Silver am 09.04.03 - 16:56:26
-
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. :o
-
Hi,
wo initialisierst du denn die Variable Profil ?
Schau mal mit dem Debugger, wo genau der Fehler auftritt.
Axel
-
Hallo,
als wir noch die 4.6er Schablone hatten, kam dieser Fehler, wenn im Kalenderprofil "Standarddauer von Termin/Besprechungen" auf "30" stand. Haben wir auf "60" geändert und schon kam dieser Fehler nicht mehr.
Versuche doch mal, in den Kalendervorgaben unter Allgemein "Wenn nicht anders angegeben, werden Termine und Besprechungen für...- 60 - ..." einzutragen. Vielleicht ist es ja das gleiche Phänomen.
Gruß
ashanga
-
Danke!!! Hab´s gefunden! ;D
-
Hi,
kannst du bitte mal die Lösung posten. Ist für andere bestimmt auch interessant.
Axel