nicht angemeldet
Guten Morgen !
Ich weiss das dieses Thema desöfteren rankam aber leider wurde damit mein Problem nicht gelöst.
Ich rufe über eine ASP-Komponete e-Mails ab und schreibe Sie dann in die Datenbank.
Nun gibt es eine Übersichtsseite:
ID Weiterleiten Name Anzeigen
1 ja Meyer Anzeigen
2 nein Müller Anzeigen
usw...Ich möchte jetzt das ein JavaScript o.ä. überprüfen
soll welche e-Mails weitergeleitet werden sollen und diese dann automatisches weiterleitet.
Konktret: Überall wo Weiterleiten JA steht soll eine ASP-Seite WEITERLEITEN.ASP?WHICH=ID im Hintergrund aufgerufen werden .Ist das so möglich ???
Über jeden Tip wäre ich sehr dankbar
mfg
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 = "absender@firma.de"
Mailer.RemoteHost = "mailserver@firma.de"
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