UI-Befehle ..... Laufziel keines.....

[mgeidl]

Hallo,

ich hab ein Problem, daß ich erst seit der Umstellung auf 6.5 aufgetan hat. Ich hab unsere Mailschablone angepaßt - unter anderem damit, daß Mails aus der Mail-Db in eine Applikations-DB kopiert werden können. Jetzt kommt aber die Fehlermeldung: @Befehle und andere UI-Funktionen sind in diesem Suchtyp nicht zulässig, wählen Sie "Keines" als Laufzeitziel.

Ich hab das Forum schon durchsucht, bin aber net schlauer geworden, vielleicht kann mir bitte bitte jemand helfen.

Hier die zwei Agenten:

Skript ZuordnenPAMail
Sub Initialize
   Dim WS As New NotesUIWorkspace
   Dim s As New NotesSession
   Dim IUDoc As NotesUIDocument
   Dim Doc As NotesDocument
   Dim UNID As String
   Dim DB,DBPA As NotesDatabase
   Dim View As NotesView
   Dim DocN As NotesDocument, DocG As NotesDocument
   Dim Item As NotesItem
   Dim ServerName As String
   Dim Col As NotesdocumentCollection
   
   
   'Set UIDoc=WS.CurrentDocument
   Set DB=s.CurrentDatabase
   
   Set col=db.unprocesseddocuments
   'Set Doc=UIDoc.Document
   Set Doc=Col.GetFirstDocument
   
   UNID=s.GetEnvironmentString( "G_UNID" )
   ' UNID=Doc.G_UNID(0)
   
   ServerName="RFLESRV1/RFLE/ROTO_FRANK"
   Set DBPA=New NotesDatabase(ServerName,s.GetEnvironmentString( "PA_DB" ))
   If(DBPA Is Nothing) Then
      Messagebox "Datenbank konnte nicht geöffnet werden !"
      Exit Sub
   End If
   
   Set view=DBPA.GetView("(UID)")
   Set DocG=view.GetDocumentByKey(UNID)
   
   If(DocG Is Nothing) Then
      Messagebox "Eintrag konnte nicht gefunden werden !"
      Exit Sub
      
   Else
      While Not (Doc Is Nothing)
         Set DocN = New NotesDocument(DBPA)
         Call Doc.CopyAllItems (DocN, True)
         Call DocN.MakeResponse(DocG)
         DocN.Doc_Subject=Doc.Subject
         DocN.Doc_PostedDate=Doc.PostedDate
         DocN.form="Memo"
        '<Axels Code wegen Autoren/Leser>
         Call DocN.Save(True, False, True)
         
         Set Doc=col.GetnextDocument(doc)
      Wend
      
      
   End If
   
   
   'Set Item=Doc.GetFirstItem("G_UNID")
   'Call Item.Remove
   'Set Item=Doc.GetFirstItem("PROJ_DB")
   'Call Item.Remove
   
   'Call Doc.Save(True,False)
   Messagebox "Das Dokument wurde erfolgreich übertragen !"
   
End Sub


Agent -> Mail in PA-DB kopieren:
Servername:="RFLESRV1/RFLE/ROTO_FRANK";
FName:="roto//rfkp//PA_Konzern.nsf";

UNID:=@PickList([Custom]:[Single];ServerName:FName;"plookup";"Zuordnung wählen";"Bitte wählen Sie das Projekt aus, dem das Mail zugeordnet werden soll:";1);

@If(UNID="";@Return(@Prompt([Ok];"Fehler";"Ungültige Auswahl"));"");
ENVIRONMENT G_UNID:=UNID;
ENVIRONMENT PA_DB:=FName;
@PostedCommand([ToolsRunMacro];"ZuordnenPAMail");"";@All;
SELECT @All

[Axel]

Was steht denn bei dir bei diesen Agenten in den Eigenschaften? Bei Agent "Mail in PA-DB" kopieren muss dort "Keines" stehen.


Axel

[mgeidl]

ups, hab gesucht und nix gefunden. jetzt ist´s eingestellt und es läuft wie am schnürchen.

D A N K E

[emadowo]

 
Danke an alle, die dieses Forum füllen, "I love you all"!

Konkret: Dieser Eintrag hat mir heute sehr geholfen

Grüsse
Earchy