Agent vil ikke køre

Umiddelbart gætter jeg på, at du har brugt Simple Action: Send mail.

Jeg kan prøve listen med de nemme spørgsmål (for jeg har tidligere stødt ind i og lokaliseret fejl-meddelelsen, men kan ikke huske, hvad det var for et objekt):

Er du sikker på, at der kører en mail-task, der hvor agenten kører ?-)

Findes alle mulige (husk de umulige (?)) ting, som refereres via agenten ?-)

Hvis det ikke giver noget, så prøv at se, om du kan få lov til at se noget med @function-debuggeren (ikke dokumenteret fra Lotus): Files->Tools->[Ctrl]+[Shift]+Debug Lotusscript

hth
jes

>> roenving Du har ret i, at jeg har brugt Simple Actions. Det er måske ikke en god ide?

Joeh ...

hvis en simple action kan gøre præcis hvad du vil have, så burde den være den anelse hurtigere !-)

Det helt store problem med den slags er, at det er stort set umuligt at debugge -- det er system-tasks, som fuldstændigt kører inden i notes/domino-tasken.

Men en hel anden indgangsvinkel:

Navnet: \'Ny bestilling | nybestil\' tyder på, at du har gang i et eller andet e-handelssystem, kunne du ikke med fordel flytte din handling over i en WebQuerySave-agent ?~]

hth
jes

>>roenving Så avanceret er det nu ikke.
Jeg har en notesdatabase, som en bestemt kunde har adgang til via Internet. Her kan der oprettes bestilling på noget kursusmateriale, der skal printes og indbindes. Det eneste, der skal ske er, at jeg modtager en mail med link til dokumentet, når der ankommer en ny bestilling.

JEG ER HELT LOST!!!!!

Så lav en (ret) simpel WebQuerySave-agent:

sub Initialize
  Dim s as New NotesSession
  Dim db as NotesDatabase
  Dim doc as NotesDocument
  Dim mail as NotesDocument
  Dim rtitem as NotesRichTextItem

  Set db = s.CurrentDatabase
  Set doc = s.DocumentContext

  If doc is nothing then Exit sub

  Set mail = db.CreateDocument

  With mail
      .Form = \"Memo\"
      .SendTo = \"Din@MailAdresse\"
      .Subject = \"Ny bestilling fra XXX\"
      .SaveOptions = \"0\"

      Set rtitem = new NotesRichTextItem(mail, \"Body\")
      call rtitem.AppendText(\"Link til bestillingen --> \")
      call rtitem.AppendDocLink(doc, \"Bestilling fra XXX\")
      call rtitem.AddNewline(2)
      \'Her kunne man måske også tilføje bare det allermindste af oplysning fra dokumentet
      \'Således:
      \'call rtitem.AppendText(\"Varenummer: \" & doc.Varenummer(0))
      \'call rtitem.AddNewline(1) <-- PS. ingen linieskift uden denneher
      call rtitem.AppendText(Format$(Now, \"Oprettet dd-mm-yyyy hh:nn\"))
      call .Send(false)
  end with

End Sub

<<<Ingen garantier, jeg har bare lige siddet og skrevet det på skærmen, men debuggeren kan give dig ideer, hvis du får fejl !~]

hth
jes

>>roenving Jeg tror du er inde på noget, men den eneste WebQuerySave jeg kan finde er på formularen, og den kræver Formula-script.

Du skal oprette en agent med den ovenstående kode -- Kald den f.eks. SendMail

Så skal du i WebQuerySave på formen skrive (som der også næsten står i forvejen:

@Command([ToolsRunMacro]; \"SendMail\")

for det er det eneste som kan ske i en Web-action på formen!=}

Øeh ...

Er du gået død ;-)

>>roenving Jeg har godtnok ligget et stykke tid, men jeg kan stadig sprælle lidt.

Uanset hvad jeg gør, får jeg følgende:
\"Special database object cannot be located\"

Hva\' f... betyder det?

Har du et default view?

>>djarnisdrengse
Lige hvad der manglede. Deværre har du kun kommenteret, så jeg kan ikke give dig point

svar fra mig selv