Domino 9 und frühere Versionen > ND6: Entwicklung

mehrere Links in einem Dokument?

<< < (2/2)

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

Navigation

[0] Themen-Index

[*] Vorherige Sete