JMail Problem

[Stefan Falz]

Hallo Nils,

[...]

eben als ich meinen Newsletter verschicken wollte, hatte ich folgende Fehlermeldung:

jmail.SMTPMail-Fehler '8000ffff'

The message was undeliverable. All servers failed to receive the message

/admin/newssend.asp, Zeile 24

Das Cript seiht so (Die Zeile ist markiert):

[...]

JMail.Body = comm <<<_------- Hier Hier
  JMail.Execute

[...]

Die fehlerverursachende Zeile ist:
»»   JMail.Execute

Die Fehlermeldung besagt, dass der Mailserver nicht in der Lage ist,
die Mail zu senden. Dies könnte daher kommen, dass Du immer wieder
einen Empfänger per "JMail.AddRecipient" ohne Trennzeichen hinzufügst.
Der Server sieht dann ab dem 2.ten Schleifendurchlauf in etwa dies:
[e-mail] [e-mail] ...
Damit wird er wohl nichts anfangen koennen (wenn JMail wie ASPMail reagiert)
und trotz Neuinstantiierung die "alten" Empfänger behält.

Ein Tipp am Rande:
Di solltest alle Funktionen, die Du nicht innerhalb der Schleife
benötigst, vor die Schleife schreiben:

<%
...

subject = request.form("subject")
comm = request.form("comm")

Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "mail.janssen-s1.de:25"
    JMail.Sender = "[e-mail]"
    JMail.Subject = subject
    JMail.Body = comm

rs.open sql,conn

do while not rs.eof
        emails=rs("emails")
        ' --- Wenn es das bei JMail gibt, alle Empfänger per
        ' --- JMail.ClearAllRecipients löschen.
        JMail.AddRecipient emails
        JMail.Execute
        rs.movenext
    loop
rs.Close

Set JMail = nothing
...
%>

Tschau, Stefan