Problem mit Schleife

[ManuelPf]

Hallo @all

Ich habe irgendein Problem mit einer Schleife...

Als Fehler bekomm ich folgendes...

>>>ERROR: Subscript out of range in INITIALIZE in line 396

meine Script sieht so aus:


If ( answer = 6) Then
      j = 0   
      While Not(docsend Is Nothing)
         recipients = docsend.GetItemValue( "MailAddress" )(j)
         If recipients = "" Then
            Goto EndSub
         Else
            Messagebox "Das sind die Mailaddressen " & recipients
            tmpMsg = tmpMsg & "~" & docsend.GetItemValue( "MailAddress" )( j )      
         End If   
         Call doc.Send(False, Split(recipients, ","))         
         tmpMsg = tmpMsg & "~" & Cstr( j ) & " Mails have been sent"                  
         j = j + 1
      Wend         
      tellit = ws.Prompt(PROMPT_OK, "ENDE", j & " Mails have been sent")
      Call LogMessage( tmpMsg )      
   End If


Kann mit jemand sagen was hier passiert bzw. was ich machen muss das die Schleife nicht in einen Fehler läuft?
Die Fett markierte Zeile im Code ist die uminöse Zeile 396 

Danke schon mal im Voraus

Gruß
ManuelPf

[tks]

Also die fette Zeile zu erkennen war nicht so einfach. Die hab' ich erst gesehen, nachdem ich auf Antworten geklickt hatte.

GetItemValue liefert ein Array zurück. Wenn Du nur einen Wert haben willst, dann

reciptients = docsend.MailAddress(0)

[MadMetzger]

Ich denke mal, dass das Script auf die Bretter geht, sobald du über die Anzahl der Einträge in dem Item Mailaddress hinaus kommst mit dem j. Du musst die Obergrenze für j bestimmen und nur bis dahin auch iterieren.

Insgesamt ist mir aber nicht ganz klar, was dieser Scriptschnipsel macht.

[robertpp]

Ich denke der Code hat so einige Fehler.

Du willst doc.Send machen obwohl doc nicht gesetzt ist! es gibt nur docsend
Wie lange soll er die While Schleife machen??? Endlosschleife?

Was willst du genau machen?

robert

[ManuelPf]

Im Feld "MailAddress" Stehen mehrere E-Mail-Addis an die jeweils einzeln eine E-Mail versendet werden soll...

@tks:
Danke für deine Antwort, aber ich wusste bereits das GetItemValue ein Arry zurückliefert...

@MadMetzger:
Ich glaub bei deiner Antwort bin ich auf dem richtigen Weg... Das Problem ist allerdings das im Feld "MailAddress" mal 2, mal 3, oder mal viel mehr Adressen stehen können... Also kann ich keine feste Obergrenze definieren... kann ich nicht vorher irgendwie schauen wie viele Werte in dem Feld "MailAddress" stehen und diesen Wert als Obergrenze definieren?

 

[ManuelPf]

@robertpp:
es ist nur ein Auszug aus dem gesamtscript...

doc ist schon gesetzt als NotesDocument genauso wie docsend...

Ich möchte einfach nur eine Möglichkeit haben, jeden einzlnen Werte aus dem Feld "MailAddress" auszulesen (das geht ja schon) und sofort ne Mail zu senden an diesen Adresse...

Das Problem ist eben das er nicht aus der Schleife geht sobald er an den letzten Wert eine Mail gesendet hat sondern wieder an den Schleifenanfang und dann den Fehler bringt...

[koehlerbv]

Dafür gibt es Ubound.

Bernhard

[m3]

@Manuel:  UBound(docsend.GetItemValue( "MailAddress" )) und Du weißt, wie wieviele Einträge MailAddress hat.

P.S.: Argl. Bernhard war schon wieder schneller.

[ManuelPf]

Merci für den Tipp aber schon beim Einfügen von der Codezeile meckert er... 

Unexpected: UBound; Expected: Statement

Was will er?

[koehlerbv]

Argl. Bernhard war schon wieder schneller.

Dafür warst Du schneller im Kommunbräu 

[ManuelPf]

Danke hat sich erledigt ;-) hab es in eine Variable x geschrieben und diese mit Integer deklariert ;-)

[umi]

Recipients ist doch schon ein Mehrfachfeld oder hast du da Mehrfach-Mehrfachwerte drin?
Dann könntest Du auch einfach ein

Code

Forall rcp in docsend.getitemvalue("Recipients")
if rcp="" then goto endsub
Messagebox "Das sind die Mailaddressen " & recipients
tmpMsg = tmpMsg & "~" & rcp
Call doc.Send(False, Split(rcp, ","))         
end forall

[ManuelPf]

nein ich hab da keine mehrfach-mehrfachwerte drin 

das war noch ein überbleipsel aus nem test ;-)

Aber wie definiere ich denn eine Obergrenze für meine Schleife?

[umi]

Ubound(Array)
oder via forall x in Array

[MadMetzger]

Als Abbruchbedingung für die Schleife?

Pseudocode:

Code

while i < Obergrenze
    do something
    i hochzählen
wend

[umi]

Wenn keine MehrfachMehrfachwerte dann gehts doch auch so:

Code

Dim Recipients as variant
Recipients = docsend.getitemvalue("Recipients")
if recipients(0)="" then goto endsub
Messagebox "Empfänger =" & join(recipients,",")
call docsend.send(false,recipients)
....

ohne Schleife :-)

[m3]

Umi, er will aber jedem User einzeln eine Mail schreiben, ohne dass alle Empfänger im "To" auftauchen (so hätte ich den Code interpretiert).

[umi]

Naja, dafür gibts ja das Feld "BlindCopyTo" :-)

Code

Call docsend.replaceitemvalue("BlindCopyTo",docsend.getitemvalue("Recipients"))
call docsend.send(false)

[ManuelPf]

@m3:
genau richtig... so soll es sein...

@umi:
ja gibt es schon aber es muss doch auch die möglichkeit geben übers To: jedem einzeln ne Mail zu senden...

@madmetzger:

ich habs mit

"While j>x
       Goto End Sub

"
versucht, aber da springt er mit aus der kompletten funktion raus und beendet alles...
Ist nicht schlecht, aber da ich nach dem versenden noch eine nachricht ausgeben will wieviel Mails versendet wurden ist das dumm...

 

[m3]

Na dann mach doch das Goto einfach woanders hin und nicht zum Ende der Sub. Maaaah!