Hallo zusammen,
ich habe die Klasse 'UIMemoDocument' (Mailschablone, R.6.5.2) um die folgenden Zeilen erweitert:
Im Deklarationsteil:Private m_strFooter As String
Im Konstruktor:Sub New
...
Me.m_strFooter = "Zeile 1" +_
"Zeile 2"+_
"Zeile 3"
End Sub
In der Funktion 'PostOpen'Function PostOpen(uidoc As notesuidocument)
If Not Me.m_noteMemo.IsNewNote Then
...
Else
Call InsertFooter()
...
End If
End Function
eine neue Funktion:Sub InsertFooter()
Select Case Me.m_noteMemo.GetItemValue("Form")(0)
Case "Bookmark", "Phone Message"
Exit Sub
End Select
Call Me.m_noteUIMemo.GotoField("Body")
Call Me.m_noteUIMemo.inserttext(Chr(10) + Me.m_strFooter + Chr(10))
Call Me.m_noteUIMemo.GotoField("Body")
End Sub
Wenn die Klasse während des Öffnens eines Dokumentes in der Maildatenbank instanziiert werden soll, kommt die Fehlermeldung: 'Type Mismatch'.
Womöglich habe ich Tomaten auf den Augen, ich sehe jedenfalls keinen Type Mismatch. Wenn ich die eigenen Zeilen aus dem Code lösche, funktioniert alles einwandfrei. Was mache ich nur falsch?
Viele Grüße
Harry