Einfache Frage zu Lotus Script: Erstelltes Dokument bearbeiten

[sinus]

ich versteh nur bahnhof  

[doliman]

Hi,

man gehe auf Seite 1 und schaue sich Dein Posting an:

Hi,

ich starte das Script in einer Maildatenbank von einem Button aus.

Es sieht jetzt so aus:

Sub Click(Source As Button)
   
   Dim uiws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set view = db.GetView("draft")
   Set doc = view.getfirstdocument
   If Not doc Is Nothing Then
      Call uiws.EditDocument(doc)
   End If
-----   Call uiws.EditDocument(doc)
   
End Sub

Leider öffnet er jetzt einfach nur das Dokument auf dem der Cursor gerade steht, und nichtmal im Bearbeiten Modus sondern im Lesen Modus.

Hast Du noch eine Idee?

Gruss, Sven  
 
 

[sinus]

ja, aber das ist doch gar nicht mehr das aktuelle script, das script sieht doch jetzt so aus:

   Dim uiws As New NotesUIWorkspace
   Dim session2 As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc2 As NotesDocument
   
   Set db = session2.CurrentDatabase
   Set view = db.GetView("draft")
   Set doc2 = view.getfirstdocument
   
   doc2.sendto="bla"
   
   Call doc2.save(True, False)   
   
   
   Call uiws.EditDocument(True , doc2)

[ata]

... hast du es schon mit

uiws.CurrentDocument.Autoreload = True probiert?

ata

[sinus]

ja, hat nichts gebracht, ich bekomme die änderung einfach nich
in das dokument rein  

[sinus]

bzw. ich bekomme das

uiws.CurrentDocument.Autoreload = True

nicht vernünftig ist mein script:

Dim uiws As New NotesUIWorkspace
Dim session2 As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc2 As NotesDocument
   
Set db = session2.CurrentDatabase
Set view = db.GetView("draft")
   
Set doc2 = view.getfirstdocument
   
doc2.sendto="bla"
   
Call doc2.save(True, False)   
   
Call uiws.EditDocument(True , doc2)

..rein...kommt immer objekt variable not set...

lieg es vielleicht daran, dass ich mit nem normalen

NotesDocument und nicht mit nem notesUIDocument arbeite???

[ata]

... Object variable not set bezieht sich auf uiws oder dein doc2 - was sagt der Debugger?

ata

[sinus]

Hallo ata,

mit dem Debugger komme ich irgendwie nicht klar/weiter...

Wenn ich das Script:

   Dim uiws As New NotesUIWorkspace
   Dim session2 As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc2 As NotesDocument
   
   Set db = session2.CurrentDatabase
   Set view = db.GetView("draft")
   
   Set doc2 = view.getfirstdocument
   
   doc2.sendto="bla"
   
   Call doc2.save(True, False)   
   
   uiws.CurrentDocument.Autoreload = True
   
   Call uiws.EditDocument(True , doc2)
   
   
benutze kommt  OBEJCT VARIABLE NOT SET

Wenn ich das selbe Script benutze nur das "uiws.CurrentDocument.Autoreload = True " rausnehme gibt es keine Fehlermeldung, aber mein "bla" steht nicht im
sendto feld drin...

Hast Du noch einen Tip?

Gruss, Sven

[doliman]

Hi,

beziehst Du Dich auf den "Entwürfe" Ordner der Maildatenbank oder hast Du Dir das was eigenens gestrickt, Ansicht/Ordner "draft".
Wenn Du Dich auf den "Entwürfe" Ordner der Maildatenbank beziehst, der heißt "($Drafts)". Das Script arbeitet ohne zu murren, wenn Du DIch auf diesen ordner beziehst.

[sinus]

Hi,

ich beziehe mich auf einen angelegten Ordner mit dem Namen draft.

Das klappt ja auch soweit alles prima, er nimmt sich ja das dokument aus dem ordner raus, aber

doc2.sendto="bla"

wird nicht beachtet, das feld behält den wert den es vorher hatte, anstatt den wert "bla" anzunehmen.

daraufhin hat ata mir den tip mit dem

uiws.CurrentDocument.Autoreload = True

gegeben, das problem ist nur, dass ich gar nicht testen kann ob es dann damit
geht, sondern sobald ich dieses

uiws.CurrentDocument.Autoreload = True

ins script einbaue kommt halt immer die fehlermeldung

OBEJCT VARIABLE NOT SET

Sorry wenn das alles so kompliziert klingt, ist es aber eigentlich gar nicht, ich denke das kann sich nur um eine kleinigkeit handeln die noch fehlt, damit das

doc2.sendto="bla"

auch gespeichert wird und angenommen wird wenn ich

Call uiws.EditDocument(True , doc2)

mache...

Gruss, Sven

[doliman]

Hi,

versuchs mal mit dem hier:

   Dim uiws As New NotesUIWorkspace
   Dim session2 As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc2 As NotesDocument
   
   Set db = session2.CurrentDatabase
   Set view = db.GetView("draft")
   
   Set doc2 = view.getfirstdocument
   
   doc2.EnterSendTo="bla"
   
   Call uiws.EditDocument(True , doc2)   

statt doc2.sentto verwende doc2.EnterSendTo, den autoreload lass weg der wird nicht benötigt.

[sinus]

 


TAUSEND DANK!!!

Auch an ata usw. ihr habt mir (mal wieder) SUPER GEHOLFEN!!!

VIELEN LIEBEN DANK!!

Gruss, Sven