Problem mit Schleife

[umi]

Code

If ( answer = 6) Then 
j=0
dim recipients = docsend.getitemvalue("MailAddress")
Forall recp in recipients
if recp<>"" then
            Messagebox "Das sind die Mailaddressen " & recipients
            tmpMsg = tmpMsg & "~" & rcp
         Call doc.Send(False, rcp)         

j = j+1
end if
end forall
         tmpMsg = tmpMsg & "~" & Cstr( j ) & " Mails have been sent"                  
      tellit = ws.Prompt(PROMPT_OK, "ENDE", j & " Mails have been sent")
      Call LogMessage( tmpMsg )      
   End If

[ManuelPf]

Danke für Eure Tipps...

Es tut wie es tun soll dank der Hinweise...

Gruß
ManuelPf