Hallo zusammen,
ich hab das folgende Problem:
Ich habe eine Rahmengruppe, in der ein agent aufgerufen wird, da ich Lotus Script ausführen will.
Nun soll aus einem Profildokument ein Anhang in eine Maske kopiert werden, damit die Maske den Anhang startet. (Option Autostart -> Erster Anhang in Maske öffnen)
Nun habe ich das Phänomen, dass das alles nur dann klappt, wenn der "verlinkte" Anhang als letztes im profildokument hinzugefügt wurde. andernfalls gibt es eine Fehlermeldung (siehe Unten)
Hat da jemand eine Idee?
-== Quellcode ==-
Agent:
Code
Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim hdoc As NotesDocument Dim ws As New NotesUIWorkspace Dim anhang As String Dim itm As NotesItem Set db = s.CurrentDatabase Set doc = New NotesDocument( db ) Set hdoc = db.GetProfileDocument("(EinsatzorteAzubis)") anhang = s.GetEnvironmentString("_azubiplan_anhang") 'Set itm = doc.GetFirstItem(anhang) Forall i In hdoc.Items If i.Name = anhang Then Set itm = i Exit Forall End If End Forall doc.Form = "Anhang" 'Call doc.CopyItem(itm, "rtf_attachment") Call itm.CopyItemToDocument(doc, "rtf_attachment") Call ws.EditDocument(False, doc)End Sub
Code Gliederung: