(ASP oder JavaScript) automatisches Versenden !

[Marcus]

Hallo Marcus,

wenn ich das richtig verstanden habe, willst Du, wenn Du dir die Seite anzeigen läßt, im Hintergrund die Mails direkt weiterleiten.

Für das oben beschriebene könnte man folgende Funktion versenden. (benutzt ASPMail, da sehr viele große ISP's mit NT-Servern installiert haben)

<%
Private Function SendMail(RecipientName, RecipientMail, BodyText)

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

»»  Mailer.Organization   = "Firmenname"
»»  Mailer.FromName   = "Absendername"
»»  Mailer.FromAddress  = "[e-mail]"
»»  Mailer.RemoteHost   = "[e-mail]"
»»  Mailer.ClearAllRecipients
»»  Mailer.AddRecipient     RecipientName, RecipientMail
»»  Mailer.Subject    = "Betreff"
»»  Mailer.ClearBodyText
»»  Mailer.BodyText     = BodyText
»»  > If Mailer.SendMail Then
»»   SendMail = "OK"
»»   intCounterOK = intCounterOK + 1
»»   Else
»»    SendMail = Mailer.Response
»»    intCounterFail = intCounterFail + 1
»»  End if

Set Mailer = Nothing

End Function
%>

Ich habe den Code gerade umgeschrieben, daher kann es sein, daß evtl. ein Schriebfehler drin ist, aber vom Grundsatz her sollte das klappen.

Jetzt kannst Du die Funktion aufrufen, wenn die Mail weitergeleitet werden soll.

<%
If objRS.Fields("Weiterleiten") = "ja" Then
    SendMailOK = SendMail(objRS.Fields("Name"), objRS.FIelds("EMail"), objRS.Fields("Text"))
End if
%>

Ich hoffe, Dir geholfen zu haben

Tschau, Stefan

Hi Stefan

Danke für Deine Antwort, habe aber trotzdem noch Fragen :)

If Mailer.SendMail Then
»»   SendMail = "OK"
»»   intCounterOK = intCounterOK + 1
»»   Else
»»    SendMail = Mailer.Response
»»    intCounterFail = intCounterFail + 1
»»  End if

Set Mailer = Nothing

Welche Funktion hat diese IF-Anweisung ?

Wenn ich jetzt ca. 25 Mails habe die weitergeleitet werden sollen, muß ich doch auch ein eindeutige ID mitübergeben ???

Oder leitet er eine MAil nach der anderen weiter ???

Muss man nicht eine Schleife generieren ???

Vielen Dank

mfg

Marcus