Frage an die Profis - brauche Hilfe für SetFiueld:=...

[pur_berger]

Hallo!

Ich kämpf mich gerade durch scripting und Co durch (schreibe an eine Inventurdatenbank - und da ist man mit normalen Notes Formeln bald am Ende der Möglichkeiten ...) allerdings - finde ich keine vernünftige Möglichkeit das Folgende in Lotus Script umzuschreiben:

@Command( [FileSave] );
oprincipal:=Principal;
ofrom:=From;
osendto:=SendTo;
osubject:=Subject;
FIELD From:=@V3UserName;
FIELD SendTo:=oprincipal;
FIELD Principal:="";
FIELD Subject:=Z_Status;
@Command( [ToolsRefreshSelectedDocs] );
@Command( [FileSave] );
@MailSend;
FIELD From:=ofrom;
FIELD SendTo:=osendto;
FIELD Subject:=osubject;
FIELD Principal:=oprincipal;
FIELD SaveOptions:="0";
@Command( [ToolsRefreshSelectedDocs] );
@Command( [FileSave] );
@Command( [FileCloseWindow] )

Ich find nur leider absolut keine Funktion die dieser Logik entsprechen würde ....

Besten Dank im voraus!

[botschi]

Du suchst ja hoffentlich keine Funktion, die das alles macht? 
Das sind ja viele verschiedene Dinge bei... Mail senden, Speichern, Refresh, Fenster schließen usw.

Matthias

[klaussal]

Ich find nur leider absolut keine Funktion die dieser Logik entsprechen würde ....

Ich auch nicht......









Was willst Du überhaupt machen ?


PS:

Am liebsten ist es uns, wenn Du Deinen richtigen Namen, oder wenigstens Deinen richtigen Vornamen verwendest.
Wenn Du einen Phantasienamen gewählt hast, wäre es schön, wenn Du in Deiner Signatur Deinen (Vor-)Namen angibst. Dein Phantasiename muss neutral sein.

[pur_berger]

OK - also - schön langsam ...

Sichern und senden und schliesen sind ja nicht wirklich das Problem - das hab ich und das efunzt auch.

oprincipal:=Principal;
ofrom:=From;
osendto:=SendTo;
osubject:=Subject;
FIELD From:=@V3UserName;
FIELD SendTo:=oprincipal;
FIELD Principal:="";
FIELD Subject:=Z_Status;

Dieser Teil dient dazu ein bissal was zu faken. Hintergrund: Der User erhält ein Confirmationamail welches er bestätigen oder ablehnen kann. dannach sendet er über eine Button (der eben diese Funktionen enthält) das Mail retour. Sprich - Die vorhandenen Felder From, SendTo, Principal und Subject wedren ersetzt. Die drei Funtionen davor (ofrom:=From) dienen nur dazu das der orginalinhalt nicht verloren geht.

So - weiter

@Command( [ToolsRefreshSelectedDocs] );
@Command( [FileSave] );
@MailSend;

Refreshen und verschicken - eh klar

FIELD From:=ofrom;
FIELD SendTo:=osendto;
FIELD Subject:=osubject;
FIELD Principal:=oprincipal;

Und jetzt geben wir den Feldern die Orginalwerte zurück

FIELD SaveOptions:="0";

Ändern den Status

@Command( [ToolsRefreshSelectedDocs] );
@Command( [FileSave] );
@Command( [FileCloseWindow] )

Rfreshen alles nochmals, speichern und schließen.

So - jetzt hat der User in seiner Inbox in Blatt mit den INfos welche er zurückgeschickt hat, keine Editfunktion und keine Sendoption. Sprich - "Das hab ich doch garnicht geschickt" gibts ned.

Prinzipiell brauche ich im Script einerseits die Möglichkeit

ofrom:=From

abzubilden und weiters

FIELD SendTo:=osendto

durchzuführen ... und da find ich aber garnichts was mir hilft.

Set item=doc.ReplaceItemValue( "Subject","Z_Status1") hab ich's versucht - aber das haut irgendwie nicht hin ...

[DerAndre]

Was haut nicht hin?

Kommt eine Fehlermeldung, steht der falsche Text im Subject?

Haut irgendwie nicht hin ist keine Aussage.

[pur_berger]

der fehler den ich bekomm ist

Variant does not contain an object.

[m3]

Die Meldung hat aber nix mit dem geposteten Formelcode zu tun.

[klaussal]

Bitte den ganzen Code, sonst bringt das nix.

[pur_berger]

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   
   Dim WarningMessage As String
   Dim YesOrNo As Integer
   
   If uidoc.FieldGetText( "Z_Status" ) = "Handout has been declined by " And uidoc.FieldGetText( "CMRemarks" ) = "" Then
      Messagebox( "*** You have to provide a reason for Declination ***" ), 0 + 16
      Call uidoc.GotoField( "CMRemarks" )
      Continue = False
      Exit Sub
   End If
   Call uidoc.Save
   Dim doc As NotesDocument
   Dim item As NotesItem   
        Dim user As String
        user = session.UserName
   Set item=doc.ReplaceItemValue( "From",user)

Und da steigt mir das script mit diesem Fehler aus. Sprich - die eigentlich Frage ist nach wie vor - wie kann ich im Lotus Script einem Feld den Wert eines anderen Feldes zuweisen. Bzw, kann man im Script ähnlich wie indet Formularlanguage temporäre Felder erzeugen um Werte zwischenzuspeichern ...

Also so sieht das script aus bis zu dem Wert wo der Fehler kommt -

und da requested - hier der ganze Code:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   
   Dim WarningMessage As String
   Dim YesOrNo As Integer
   
   If uidoc.FieldGetText( "Z_Status" ) = "Handout has been declined by " And uidoc.FieldGetText( "CMRemarks" ) = "" Then
      Messagebox( "*** You have to provide a reason for Declination ***" ), 0 + 16
      Call uidoc.GotoField( "CMRemarks" )
      Continue = False
      Exit Sub
   End If
   Call uidoc.Save
   Dim doc As NotesDocument
   Dim item As NotesItem
   Dim user As String
   user = session.UserName
   Set item=doc.ReplaceItemValue( "From",user)
   Set item=doc.ReplaceItemValue( "SendTo","Principal")
   Set item=doc.ReplaceItemValue( "Principal","")
   Set item=doc.ReplaceItemValue( "Subject","Z_Status1")
   Call uidoc.Refresh
   Call uidoc.Send
   Set item=doc.ReplaceItemValue( "From","OFrom")
   Set item=doc.ReplaceItemValue( "SendTo","OSendTo")
   Set item=doc.ReplaceItemValue( "Principal","OPrincipal")
   Set item=doc.ReplaceItemValue( "Subject","OSubject")
   Set item=doc.ReplaceItemValue( "SaveOptions",0)
   Call uidoc.Refresh
   Call uidoc.save
   Call uidoc.close(True)
End Sub
   

[dirk_2909]

Hallo

Wo wird doc initialisiert?

Ersetze Set item=doc.ReplaceItemValue( "From",user)
durch call doc.ReplaceItemValue( "From", session.UserName )

[DerAndre]

Und ein Fehlerhandling wäre auch nicht schlecht

[klaussal]

... und hätte man das mal im Debugger laufen lassen, dann hätte man auch gesehen, das "doc" nicht initialisiert wird......

Aber wir wollen ja jetzt mal nicht kleinlich sein.... 

[dirk_2909]

Und ein Fehlerhandling wäre auch nicht schlecht

Sowieso 

und evtl. Fehler vorher abfangen ala:

if doc is Nothing Then
  Msgbox "Uuups, da ist mir was passiert..." , 16 , "Abbruch"
  goto EXIT_ME
end if

[DerAndre]

Ein Option Declare ist manchmal aus sehr hilfreich.

Hilft aber nur gegen nichtdeklarieren und nicht gegen nichtinitialisieren...

[pur_berger]

Ahm - Freunde - wenn ich so gut wäre würde ich hier nicht fragen ...

[klaussal]

Is schon klar, wir geben ja nur Tipps für die Zukunft bzw, wie man es besser machen kann. Das ist nicht persönlich gemeint.

[dirk_2909]

Darum geben wir ja die Hinweise
 

[DerAndre]

Das ganze dient nur der zukünftigen Fehlerminimierung 

Und ist wie Klaus sagt nicht persönlich gemeint.

[pur_berger]

So - dann stell ich mal witer blöde Fragen und laß mich nacher "Hinweisen" - Ich dachte eigentlich

Dim doc As NotesDocument

wäre die Initiailiserung?

Ahm - und bevor ich wieder mit kryptischen Hinweisen knofrontiert werde - ich beherrsche keine höherer Programmiersprache ... und die Lotus Hilfe ist nur mäßig hilfreich ....

[dirk_2909]

Dim "definiert" eine Variable

Du musst ein Set verwenden:

Set doc = uidoc.Document '(Als Beispiel)

...