mehrere Links in einem Dokument?

[Outbreak]

Hallo zusammen,

tut mir leid, wenn die Überschrift etwas verwirrend klingt, aber ich hab da ein kleines Problem

So, muss nun etwas weiter ausholen...

Ich muss für meine Firma eine Produktanfrage mittels Notes/Domino 6 entwickeln. Das ganze läuft so ab:

-Der Vertrieb bekommt eine Anfrage und gibt die Daten in eine Maske ein.
-Sobald der Mitarbeiter auf Senden clickt wird das Dokument gespeichert. Die Spedition erhält nun eine email mit einem link zu dem Dokument. Die Spedition hat hierfür eine eigene Maske. parallel wird das Dokument aber auch an andere Abteilungen geschickt (alle mit eigener Maske).
-Das ganze funktioniert eigentlich wunderbar. Jede Abteilung kann also seine Daten in das Dokument eintragen und schickt es dann weiter an die nächste Abteilung.

Das Problem ist nun eher optischer Natur und hat auch keinen Einfluss auf den Ablauf. Meinen Chef aber stört es, daß die Links in den Dokumenten quasi bei jedem Weiterverschicken aufsummiert werden.

Wer nett wenn mir jemand helfen kann. Wenn jemand noch weitere Infos braucht... einfach melden

Weis einer Rat? Unten noch ein Bild und Codebeispiele:

mfg
out

Aus Querysave:

If source.FieldGetText ("Retour")="Fortsetzen" Then
         Call rtitem.AppendText( " Produktanfrage! Bitte klicken Sie das Symbol an!" )
         Call rtitem.AddNewLine( 1 )
         Call rtitem.appenddoclink(source.document,"CLICK ME :-)" )
         newDoc.Subject = "Produktanfrage von Kunde: "+source.FieldGetText("Kunde")
         newDoc.SendTo = source.FieldGetText ("Name")
         newDoc.Form = "Memo"
         newDoc.Principal = "Produktanfrage von: "+source.FieldGetText("Name")
         Call newDoc.Send( True )   
         
         Call rtitem.AppendText( " Produktanfrage! Bitte klicken Sie das Symbol an!" )
         Call rtitem.AddNewLine( 1 )
         Call rtitem.appenddoclink(source.document,"CLICK ME :-)" )
         newDoc.Subject = "Produktanfrage von Kunde: "+source.FieldGetText("Kunde")
         newDoc.SendTo = wq
         newDoc.Form = "Memo"
         newDoc.Principal = "Produktanfrage von: "+source.FieldGetText("Name")
         Call newDoc.Send( True )   
         
         Call rtitem.AppendText( " Produktanfrage! Bitte klicken Sie das Symbol an!" )
         Call rtitem.AddNewLine( 1 )
         Call rtitem.appenddoclink(source.document,"CLICK ME :-)" )
         newDoc.Subject = "Produktanfrage von Kunde: "+source.FieldGetText("Kunde")
         newDoc.SendTo = planer
         newDoc.Form = "Memo"
         newDoc.Principal = "Produktanfrage von: "+source.FieldGetText("Name")
         Call newDoc.Send( True )   
         
         Call rtitem.AppendText( " Produktanfrage! Bitte klicken Sie das Symbol an!" )
         Call rtitem.AddNewLine( 1 )
         Call rtitem.appenddoclink(source.document,"CLICK ME :-)" )
         newDoc.Subject = "Produktanfrage von Kunde: "+source.FieldGetText("Kunde")
         newDoc.SendTo = ll
         newDoc.Form = "Memo"
         newDoc.Principal = "Produktanfrage von: "+source.FieldGetText("Name")
         Call newDoc.Send( True )   
         
         Call rtitem.AppendText( " Produktanfrage! Bitte klicken Sie das Symbol an!" )
         Call rtitem.AddNewLine( 1 )
         Call rtitem.appenddoclink(source.document,"CLICK ME :-)" )
         newDoc.Subject = "Produktanfrage von Kunde: "+source.FieldGetText("Kunde")
         newDoc.SendTo = lst
         newDoc.Form = "Memo"
         newDoc.Principal = "Produktanfrage von: "+source.FieldGetText("Name")
         Call newDoc.Send( True )   
         
         Call rtitem.AppendText( " Produktanfrage! Bitte klicken Sie das Symbol an!" )
         Call rtitem.AddNewLine( 1 )
         Call rtitem.appenddoclink(source.document,"CLICK ME :-)" )
         newDoc.Subject = "Produktanfrage von Kunde: "+source.FieldGetText("Kunde")
         newDoc.SendTo = we
         newDoc.Form = "Memo"
         newDoc.Principal = "Produktanfrage von: "+source.FieldGetText("Name")
         Call newDoc.Send( True )   
      End If

Aus Postsave:

If source.FieldGetText ("Retour") = "Fortsetzen" Then
         source.document.form = "ProduktanfrageFINALanfang"
         Call source.document.save(True,True)
      End If

[brixxton]

Holla,

wenn du hin gehst und immer das Richtextfeld vor jedem Sende löschst und wieder erstellst ist das Problem gelöst oder du erstellst immer eine neue Mail mit dem Inhalt.
Weil dein Code ist so Geschrieben das die Einträge aufsummiert werden.
Was du noch machen kannst Schreibst du 6 Agenten die so eingesätzt werden wie die auch gebraucht werden.
Das heist du kannst die Dokumente gesteuert Senden.

MfG

brixxton

[Outbreak]

Danke mal für die Antwort!

Hab schon versucht das alles mit Agenten zu Lösen. Problem war jedoch, das bei der Versendung der Mails häufig was schief gegangen is. Jetzt hab ich wenigstens die Gewissheit, daß die Mails ankommen.

Hab mir überlegt ob man die Abteilungen nicht einfach zusammenfassen kann, da ich aber gerade nicht an die Datenbank rankomme (Server HW wird getauscht) kann ich das schlecht ausprobieren. Dachte da so an folgendes:

Dim empfanger (1 to 6) as Variant
empfaenger(1) = we
empfaenger(2) = wq
empfaenger(3) =  ... usw.

 Call rtitem.AppendText( " Produktanfrage! Bitte klicken Sie das Symbol an!" )
         Call rtitem.AddNewLine( 1 )
         Call rtitem.appenddoclink(source.document,"CLICK ME :-)" )
         newDoc.Subject = "Produktanfrage von Kunde: "+source.FieldGetText("Kunde")
         newDoc.SendTo = empfaenger
         newDoc.Form = "Memo"
         newDoc.Principal = "Produktanfrage von: "+source.FieldGetText("Name")
         Call newDoc.Send( True )  

Bin leider nich so der Crack in LotusScript, aber meint ihr das könnte funktionieren?

cya
out

[brixxton]

Ja so könnte es funktioniern, ich bin mir nicht 100 % sicher müsste es jetzt auch Testen.

Wenn es nicht Funktioniert dann versuch es mit:

Dim empfanger (1 to 6) as Variant
empfaenger(1) = we
empfaenger(2) = wq
empfaenger(3) =  ... usw.

ForAll empfaenger in empfanger
Call rtitem.AppendText( " Produktanfrage! Bitte klicken Sie das Symbol an!" )
        Call rtitem.AddNewLine( 1 )
        Call rtitem.appenddoclink(source.document,"CLICK ME :-)" )
        newDoc.Subject = "Produktanfrage von Kunde: "+source.FieldGetText("Kunde")
        newDoc.SendTo = empfaenger
        newDoc.Form = "Memo"
        newDoc.Principal = "Produktanfrage von: "+source.FieldGetText("Name")
        Call newDoc.Send( True )  
End ForAll

MfG

brixxton

[Outbreak]

Also,

funktioniert leider nicht so ganz
sendTo möchte einen genau definierten Arryblock (also empfaenger(1), empfeanger(2) usw.).
Bin gerade am überlegen, ob ich ne Schleife draus mach.
Dieser sch*** raubt mir echt noch den letzten Nerv. Und das nur, weil die Anwender "verwirrt" sind! grrrr...

cya
out

[brixxton]

Wenn es nicht Funktioniert dann versuch es hiermit:

   Dim se As New NotesSession
   Dim doc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim newdoc As NotesDocument
   Dim db As NotesDatabase
   
   Set db = se.CurrentDatabase
   Set doc = se.DocumentContext
   Set newdoc = New NotesDocument( db )
   Dim empfaenger (1 To 2) As Variant
   empfaenger(1) = "we"
   empfaenger(2) = "wq"
   
   Forall empfaeng In empfaenger
      Set rtitem = newdoc.CreateRichTextItem("Body")
      Call rtitem.AppendText( " Produktanfrage! Bitte klicken Sie das Symbol an!" )
      Call rtitem.AddNewLine( 1 )
      Call rtitem.appenddoclink(doc,"CLICK ME :-)" )
      newDoc.Subject = "Produktanfrage von Kunde: "
      newDoc.SendTo = empfaeng
      newDoc.Form = "Memo"
      newDoc.Principal = "Produktanfrage von: "
      Call newDoc.Send( True )  
      Call rtitem.Remove
   End Forall

Dieser Agent hat bei mir Funktioniert du muss in jetzt nur für dich anpassen!

MfG

brixxton

[Outbreak]

jup, das wars

dein Tip hat wunder gewirkt! Hab wohl den Wald vor lauter Bäumen nicht gesehen (was array betrifft).
Danke!

cya
out

[brixxton]

bitte bitte!

so eine schöne rückmeldung hört man gern.

ich helfe immer gern wenn ich kann!

MfG

brixxton