Array für Doclink

[robertpp]

Ich hab mir eine View gemacht die mir doc's anzeigt für die ein Mail versendet werden soll.

Per Agent fülle ich mir ein Array mit allen Subjects von einer person:

         If ci =0 Then
            Redim checkentry ( ci )
            checkentry ( ci ) = doc.Subjects(0)
            ci = ci + 1
         Else
            Redim Preserve checkentry ( ci )
            checkentry ( ci ) = doc.Subjects(0)
            ci = ci + 1
         End If

Wenn ich alle Subjects einer Person habe öffnen ich mir eine Function die mir das mail an die Person versendet und in das Body Field wird aus dem Array die einzelnen Subjects geschrieben!!

Mein problem ist jetzt wie kann ich einen doclink in mein Body Field einfügen?
Ich hätte mir das gedacht das ich irgendwie die doc's in eine Array schreibe und mit dennen dann den doclink einfüge!! Nur wie kann ich mir die einzelnen doc's in ein Array schreiben das ich dann mit:

Forall i In array       
Call rtitem.AppendDocLink( i , i.Projekt(0) )
Call rtitem.AddNewLine(1)
End Forall

einen link erzeugen kann?
Oder hat jemand eine andere lösung?

danke robert

[Driri]

Hi,

ich habe das mal so gelöst, daß ich einfach bei jedem Treffer direkt den Doclink erzeugt und das zugehörige Subject dahintergeschrieben habe.

Also so :

While Not (doc Is Nothing)
titel = doc.Subject
Call RTItem.AppendDocLink(doc, titel(0))
Call RTItem.AddTab(1)
Call RTItem.AppendText(titel(0))
Call RTItem.AddNewLine(1)
Set doc = dc.GetNextDocument(doc)      
Wend

[robertpp]

Nein das geht aber leider nicht weil ich ja zuerst alle doc's suchen muss.
d.h: ich gehe die viewentrycollection durch schaue ob das nächste doc schon wem anderen gehört wenn nicht dann subject in array schreiben nächsten entry und wieder kontrollieren wenn gleicher user dann subject in array wenn anderer user dann function sendmail ( --> array auslesen und in Body field schreiben und mail versenden. und da will ich für jedes subject den doclink haben) und array neu erzeugen. dann geht das ganze wieder von vorne los.

robert

[Driri]

Aber Du könntest doch die in Frage kommenden Docs in eine zweite DocumentCollection packen. Aus der kannst Du dann wie oben beschrieben verfahren.

D.h. Du hast ein doc aus DocCollection1 und packst das so

Call collection2.AddDocument(doc)

in die zweite DocCollection.

[robertpp]

danke für den tipp so müsste das funktionieren ich werde das gleich mal testen

robert

[robertpp]

Hat geklappt!
Danke nochmals für die Hilfe!!

Robert

[Driri]

Gerne