Fehlermeldung beim Aufruf unserer Faxschablone

[Goofy]

Hi @all,

wir ein Problem. Wir haben bei uns die Faxschablone in Notes angepasst. Diese Faxschablone ist im Prinzip eine mail50.ntf mit einer weiteren Maske für die Faxfunktion.

Die Gestaltung ist soweit in Ordnung. Beim Aufruf über den Button "Neues Fax" erhalte ich allerdings eine Fehlermeldung:

"Variant does not contain an object"

Diese Fehlermeldung kann ich bestätigen und anschließend erhalte ich meine Faxmemomaske.

Kann mir jemand helfen, warum diese Fehlermeldung erscheint

Gruß
Goofy

[Glombi]

Tja, Hellseher sind wir hier (noch) nicht.

Schalte mal den Debugger ein und erstelle ein Fax. Dann siehst Du ja, wo der Fehlerauftritt. Da offenbar kein Error Handling implementiert ist, müsste er an der Stelle stehen bleiben, an der der Fehler auftritt.
Dann prüfe die Variablen und Objekte, die dort verwendet werden. Irgendeins ist nicht gesetzt.

Andreas

[Goofy]

Hi Glombi,

habe den Debugger aktiviert. Da ich aber von der Datenbankentwicklung überhaupt keine Ahnung habe, habe ich dir eine Datei angehängt.

Gruß
Goofy

[Glombi]

Da kann man nicht viel sehen. Evtl. liegt es am CMemoObject. Wer macht denn bei Euch die Notes-Entwicklung bzw. die Mailanpassung. Dem solltest Du das geben.

Andreas

[Goofy]

Hi Glombi,

wir haben keinen Entwickler. Aber was hat es mit der CMemoObject zu tun Wir hatten den Fehler schon einmal gehabt (mein Vorgänger).
Als Notiz hielt er fest:

Abhilfe des Fehlers: CMemoObjedt-Verweise gelöscht.

Wir wissen allerdings nicht, was damit gemeint war und wo er etwas gelöscht hat.

Gruß
Goofy

[Glombi]

Du siehst im QueryOpen ein Aufruf des CMemoObject - nämlich die Methode Init.
Offenbar ist nicht alles gelöscht. Oder es war gelöscht und ist bspw. durch einen DESIGN Update wieder hereingekommen.

Da es sich um die Mailschablone handelt, welche bekanntermassen sehr komplex ist, ist da ein Herumwerkeln ohne die geringsten Programmierkenntnisse nicht ratsam. Hier im Forum können wir auch nur eingeschränkt helfen. Sowas ist aus meiner Sicht mehr ein Fall für einen Auftrag an Externe, die sich damit auskennen. Von denen gibt es hier ein Reihe 

Andreas

[Goofy]

Hi Glombi,

ich selber habe die Schablone nicht angepasst. Sie wurde damals von Externen Mitarbeitern erstellt, der zwischenzeitlich nicht mehr für tätig ist und wurde jetzt durch einen anderen Externen angepasst.
Der wiederum versteht selber nicht, warum dieser Fehler auftaucht.

Gruß
Goofy

[Goofy]

Hi Glombi,

hier der Inhalt des QueryOpen:

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   
   Call cMemoObject.Init(Source,Isnewdoc) 
End Sub


Gruß Goofy

[Glombi]

Hier der originale Code:

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   Set cMemoObject = New UIMemoDocument         
   Call cMemoObject.Init(Source,Isnewdoc) 
End Sub

Ich sage mal: Das ist nicht korrekt umgesetzt. Entweder alles löschen oder nichts! Aber so kann das natürlich nicht gehen.

Andreas

[Goofy]

Hi Glombi,

wir haben jetzt folgenden Zustand:


Queryopen:

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   REM Call cMemoObject.Init(Source,Isnewdoc) 
End Sub


Postopen

Sub Postopen(Source As Notesuidocument)
   
End Sub


Querysave

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   REM Call source.FieldSetText("useApplet", "True")
   REM Call cMemoObject.QuerySave(Continue)
End Sub


Postsave

Sub Postsave(Source As Notesuidocument)
   REM Call cMemoObject.PostSave()
End Sub


Queryclose

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
   REM Call cMemoObject.QueryClose(Continue)
End Sub



Die Fehlermeldung CMemoObject erscheint nicht mehr. Allerdings erhalte ich beim versenden ein Auswahlfenster, ob ich senden und speichern, speichern oder verwerfen will.

Diese Auswahl wollen wir eigentlich nicht, sondern er soll direkt die Nachricht versenden.

Gruß
Goofy

[Glombi]

Sorry, aber ich habe leider nicht die Zeit, dass hier weiterzumachen. Wie gesagt, es erfordert aus meiner Sicht mehr als das hier im Forum durchzukauen.

Andreas

[Goofy]

Hallo Glombi,

schade das dir die Zeit fehlt. Würde es dir etwas bringen, wenn ich die die Datenbank zur Verfügung stelle

Gruß

Goofy

[klaussal]

@Goofy,

wenn du den Thread "richtig" liest, das ist ein Fall für einen Profi (der kostet Geld).

klaus

[MartinG]

...wobei Glombi mit der DL von Lotus Notes seine Brötchen verdient, sprich seine Familie ernährt, und Dir das sicherlich für Geld gern machen würde.