Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Disclaimer und Grußformel in ext. Mails

<< < (3/6) > >>

Silver:
Ja... im Debugger bringt er den Fehler bei der Abarbeitung von
Set profiledoc = db.GetProfileDocument("CalendarProfile")

Wo muss ich davor noch eine Deklarierung vornehmen.

Sorry... aber noch bin ich nicht so fit in Lotus Script. Eher bei der @-Formel.

Sorry...  :-\

klaussal:

--- Code: ---Dim session As New notessession
Dim db As notesdatabase
Set db = session.currentdatabase
--- Ende Code ---

Silver:
Vielen Dank! Die Fehlermeldung erscheint jetzt nicht mehr.
Aber ich bekomme lediglich als Vorgabe für meine Signatur eine "8"?!

Kann mir nicht erklären woran das liegt o. wo die her kommt. Wird das Feld in der Memo-Maske evtl. erst später erstellt o. gefüllt als der Postopen-Event?

Oder muss ich evtl. irgendwie irgendwas noch in Text umwandeln?

Silver:
Habe jetzt im Postopen-Event folgenden Befehl:

Sub Postopen(Source As Notesuidocument)
   Call cMemoObject.PostOpen(source)
   
   
   If source.editmode And Not (source.isnewdoc) Then
      Call cMemoObject.querymodechange(source)
      Call cMemoObject.postmodechange()
   End If
   
   Dim session As New notessession
   Dim db As notesdatabase
   Set db = session.currentdatabase
   
   Set profiledoc = db.GetProfileDocument("CalendarProfile")
   profiledoc.SignatureOption="1"
   signaturvorgabe = uidoc.FieldGetText( signature )
   profiledoc.Signature_1 = signaturvorgabe
   profiledoc.Signature = signaturvorgabe
   Call profiledoc.Save(True,False)
   
End Sub

Im Feld signature wird nachdem ich mir ein neues Memo aufmache meine Signatur richtig angezeigt (unter den Eigenschaften von Dokument).

Aber bekomme immer noch die 8 angezeigt (wird auch in den werkzeug-vorgaben so neu hinterlegt - das passt also schon mal  ;)) und erhalte jetzt den fehler:

Variant does not contain an object.

 ??? Kann nochmal jemand helfen?

Silver:
Hab jetzt folgende Formel, die zwar keine Fehlermeldung mehr verursacht, bekomme aber immer noch als Signatur eine "8" angezeigt:

Sub Postopen(Source As Notesuidocument)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim docCurrent As NotesDocument
   Dim docNew As Notesdocument   
   
   Call cMemoObject.PostOpen(source)
   
   If source.editmode And Not (source.isnewdoc) Then
      Call cMemoObject.querymodechange(source)
      Call cMemoObject.postmodechange()
   End If
   
   Set db = session.currentdatabase
   
   Set profiledoc = db.GetProfileDocument("CalendarProfile")
   profiledoc.SignatureOption="1"
   profiledoc.Signature_1 = signature
   profiledoc.Signature = signature
   Call profiledoc.Save(True,False)
   
End Sub

Hmmmm... hat wohl irgendwas mit der Felddefinition zu tun. Länge 8?!? Wie müsste ich das richtig definieren, dass ich auch den Text im Feld signature angezeigt bekomme. Muss ich noch irgendwie in Text formatieren?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete