Domino 9 und frühere Versionen > ND6: Entwicklung

Serienmail aus VB6 mit Notes versenden

<< < (2/3) > >>

Strossi:
Hallo leute habe es geschaft. Mehrere E-Mailadressen mit einem VB Script in das Feld  BlindCopyTo zu schreiben. Das mit NotesItem oder so war gut hat aber nicht geklappt. Hier die Lösung:

Ein dynamisches Array Dimensionieren.
Dim Emailadressen() as string

Die Anzahl der Adressen im Listenfeld zuordnen
AnZahl=Listbox1.ListCount

max.Größe des Array bestimmen
ReDim Emailadressen(Anzahl)

mit einer For schleife die Emailadressen aus der Listbox in das Array schreiben.
For i=listbox1.ListCount-1 to 0 step-1
      Lesen=listbox1.List(i)
      Emailadressen(i)=Lesen
next i

Nun das Array übergeben
z.B. MailDoc.BlindCopyTo=Emailadressen

Jetzt werden alle Emailadressen untereinander Aufgelistet.
Habs mit 147 Stück probiert funktioniert tadellos.

Danke nochmals für eure Tipps
Gruß Strossi
 ;D

Semeaphoros:
Das war die andere Variante, die ich gemeint habe, allerdings sollte das ohne Umkopieren funktionieren, etwa so:

MailDoc.BlindCopyTo=listbox1.List

koehlerbv:
Da Jens der String-Variante noch nicht explizit widersprochen hat:
Und mehrere Addressaten müssen immer in einem Array stehen - sie in einem String zu verketten, wird von Notes im Backend nicht akzeptiert (bzw. nicht aufgelöst).

HTH,
Bernhard

Strossi:

--- Zitat von: Semeaphoros am 16.09.04 - 09:29:17 ---Das war die andere Variante, die ich gemeint habe, allerdings sollte das ohne Umkopieren funktionieren, etwa so:

MailDoc.BlindCopyTo=listbox1.List

--- Ende Zitat ---

Semeaphoros:
Und je nach Implementation kommt die Listbox als Array oder als List daher, normalerweise - wie hier zu sehen - als Array

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete