13. september 2002 - 12:19Der er
15 kommentarer og 1 løsning
Jmail
min mailform:
Brugeren indtaster navn, firma, email adresse og hvem han ønsker, der skal have en besked med email (brugeren vælger, hvem der skal have en email ved at afkrydse nogle checkboxe) og trykker så på "send"
Min validering: Nu tjekker jeg hvilken checkboxe der er "on" (afkrydset) Det er måske 1, 3, 5 jeg ved nu hvem der skal have en mail, fordi jeg har hardcodet et array: Email(1)= "peter@mail.hansen.dk" Email(2)= "preben@mail.hansen.dk" Email(3)= "jesper@mail.hansen.dk" Email(4)= "kim@mail.hansen.dk" Email(5)= "iben@mail.hansen.dk"
Nu kommer mit spørgsmål, hvordan sende jeg mail til de 3 valgte med Jmail?
hvis vi nu går udfra at checkbox og email felt høre sammen kan man vel gøre noget lignede det her hvis antal er = med antalet af folk som skal have email, i det her eks 10 antal = 10
FOR i = 1 to antal IF request.form("box" & i) = "on" THEN
from = "somebody" tekstbesked ="blahblah" set msg = Server.CreateOBject( "JMail.Message" ) msg.ContentType = "text/html" msg.Logging = true msg.silent = true msg.From = from msg.FromName = TxtBesked msg.AddRecipient request.form("email" & i) msg.Subject = "blahblah" msg.Body = tekst if not msg.Send("mail.mail.dk") then Response.Write "Mailen kunne ikke afsendes grundet:<br>" Response.Write msg.log else Response.Write "Mailen er korrekt afsendt." end if END IF next
IF request.Form("checkbox1") = "on" THEN 'her skal der sendes til alle email adresser response.write "<b>Send til alle</b>" & "<br>" ELSE IF request.Form("checkbox2") = "on" THEN 'send e-mail til alle i bestyrelsen som er mail adresse 3 til 10 response.write "<b>Send til bestyrelsen</b>" & "<br>" ELSE For i = 1 to 26 IF request.Form("checkbox" & i) = "on" Then 'send mail til Email(I) END IF Next END IF END IF 'Afsender og besked response.write strNavn & "<br>" response.write strCompany & "<br>" response.write strEmail & "<br>" response.write strEmne & "<br>" response.write strBesked & "<br>" %>
håber det bliver lidt lettere for jer, når i ser mit forsøg!
IF request.Form("checkbox1") = "on" THEN FOR i = 1 to antalemails IF request.form("box" & i) = "on" THEN
from = "somebody" tekstbesked ="blahblah" set msg = Server.CreateOBject( "JMail.Message" ) msg.ContentType = "text/html" msg.Logging = true msg.silent = true msg.From = from msg.FromName = TxtBesked msg.AddRecipient request.form("email" & i) msg.Subject = "blahblah" msg.Body = tekst if not msg.Send("mail.mail.dk") then Response.Write "Mailen kunne ikke afsendes grundet:<br>" Response.Write msg.log else Response.Write "Mailen er korrekt afsendt." end if END IF
response.write "<b>Send til alle</b>" & "<br>" ELSE IF request.Form("checkbox2") = "on" THEN 'send e-mail til alle i bestyrelsen som er mail adresse 3 til 10 response.write "<b>Send til bestyrelsen</b>" & "<br>" ELSE For i = 1 to 26 IF request.Form("checkbox" & i) = "on" Then 'send mail til Email(I) END IF Next END IF END IF 'Afsender og besked response.write strNavn & "<br>" response.write strCompany & "<br>" response.write strEmail & "<br>" response.write strEmne & "<br>" response.write strBesked & "<br>" %>
eagleeye :> fatter det ikke helt! ser dine checkboxes således ud: <input name="mailID" type="CHECKBOX" id="1"> <input name="mailID" type="CHECKBOX" id="2"> osv. til <input name="mailID" type="CHECKBOX" id="26">
løber du dem så igennem med en for løkke? For i = 1 to 26 IF request.Form("checkbox" & i) = "on" Then 'Her hedder checkboksene mailID idArray = Split(Request.Form("mailID"),",")
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
