Problem mit dem versenden einer e-Mail

[Darkface]

Hallo zusammen,
ich führe in meinem Agenten folgendende Schritte durch um die Empänger der Mail festzulegen, doch Notes sagt mir das der entsprechende Eintrag nicht im Adressbuch gefunden wurde. Danke für jedes Feedback.

Code

sSendTo = "Dummy User" &","
sSendTo = sSendTo & sVerantwortlicher
docMemo.SendTo = sSendTo
docMemo.Subject = "Testmail"
docMemo.Send( False )

Gruß
  Darkface

[Rob Green]

hm...

"Dummy User, Ich bin der Nächste" kann so Notes nicht checken...das ist keine Formelsprache...Du mußt schon die einzelnen Werte für das sendto korrekt deklarieren...hier machst Du lediglich für Lotus Script einen längeren String draus = 1 Wert für Notes.

Geh mal in die Help und schau Dir das Bsp. zur Send Methode an.

[Darkface]

Aber wie deklariere ich dann das String Array für die beiden Personen?

[doliman]

Hi,

dim sSendTo(1) as string

sSendTo(0) = "Empfänger 1"
sSendTo(1) = "Empfänger 2"

docMemo.SendTo = sSendTo

[Darkface]

Geht es nicht einfach dynamischer? Was ist wenn ich dann  auf einmal die Mail 7x senden muss?

[doliman]

Hi,

dim i as integer
dim sSendTo() as string

i=0
for i= 1 to DeineAnzahl
  redim preserve sSendTo(i)
  sSendTo(i) = "Empfänger " + i

next

docMemo.SendTo = sSendTo

[Darkface]

Ja danke das geht super.

Gruß
   Darkface