Domino 9 und frühere Versionen > ND7: Entwicklung

Hilfe bei Listenverarbeitung via Script

<< < (2/2)

Demian:
Moin, moin,

hatte mal was ähnliches und hab das über ein Array gelöst. Allerdings stand jede Adresse in einem eigenen Dok. Aber das PRinzip ist das selbe.


--- Code: ---
...
Redim Preserve Adressaten(view.AllEntries.count) As String

While Not (doc Is Nothing)
   i = i + 1

   VerteilerArt = doc.MailverteilerArt(0)

   If VerteilerArt = "Geburtstagsliste" Then
      Adressaten(i) = Mid$(doc.EnterSendTo(0),4,Instr(1,doc.EnterSendTo(0),"/")-4) & ","
   End If

   Set doc = view.GetNextDocument(doc)
Wend

'Mail starten
mail.SendTo = Adressaten
mail.Subject = "Geburtstagsliste"
mail.Form = "Memo"
mail.Logo = MailProfil.DefaultLogo(0)
mail.Principal = MailProfil.Owner(0)
--- Ende Code ---


Hoffe du kannst da was mit anfangen.

Gruß
Demian

Axel:
Hast du es denn schon mal mit Split versucht? Martin hat das ja in der ersten Antwort schon angesprochen.


Axel

Lancelot:
Ich habe es  mit Split versucht ging bei mir nicht so wirklich, liegt aber daran, dass
ich es nicht richtig verstanden habe damit um zu gehen.

Der Tipp mit der Tabelle von Demian hat funktioniert udn so habe ich es gelöst.

Listen in Formelsprache sind wirklich einfach, aber das sich Notes in Script so einen Abbricht.
Etwas komplizierteres als das gib es doch nicht.

Axel:
Was gibt's denn daran nicht zu verstehen?

Dim retValue As Variant

retValue = Split(doc.senden_an, ", ")


Das sollte es gewesen sein. retValue enthält nun eine Liste von Namen aus dem Feld senden_an. Die kannst du dann einfach in das Feld SendTo packen.


--- Zitat von: Lancelot am 28.09.07 - 08:23:04 ---Listen in Formelsprache sind wirklich einfach, aber das sich Notes in Script so einen Abbricht.
Etwas komplizierteres als das gib es doch nicht.

--- Ende Zitat ---

Du hast aber auch noch mit Evalute einige Möglichkeiten. Die sind u.U. performanter als die Script-Lösungen.


Axel

Lancelot:
Weil ich danach die variabele "retValue" in das Feld memo.SenTo geschoben habe und dann beim senden immer noch der Fehler gekommen ist.

Mit der Tabelle geht es jetzt und die Lösung reicht mir völlig aus.
Die Performance wird davon nicht wirklich betroffen und ich bin froh das es nun endlich klappt.

Manchmal denke ich mir geht es ohen Script eben nicht.

Egal wie es ist, es klappt und ich bin froh drüber, ddenn es hat mich schon eingie Nerven gekostet.

Wenn ich etwas mehr Zeit habe schaue ich mir diese Split nochmals genauer an. ;-)

Danke an ALLE!!!!

Navigation

[0] Themen-Index

[*] Vorherige Sete