Multiple Select Jmail

3 svar · 362 visningar · startad av pellsäter 9 juli 2001

pellsäterMedlem sedan aug. 2000526 inlägg

Trådstart9 juli 2001 14:50#1

Varför funkar inte detta????

<%
amne = Request.Form("amne_valj")
meddelande = Request.Form("meddelande_valj")

 set Jmail = Server.CreateOBject( "JMail.SMTPMail" )
 JMail.ServerAddress = "mail.amts.nu"
 JMail.Sender = "info@amts.nu"
 JMail.AddRecipient "info@amts.nu"

epost = request.form("epost")
if instr(epost, ",") >0 then
arrEpost = split(epost, ";")
for each item in request.form("epost")
JMail.AddRecipientBCC "" & arrEpost & ""
next
else
JMail.AddRecipientBCC "" & arrEpost & ""
end if

 JMail.Subject = amne
 JMail.Body = meddelande
 
 

 Jmail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

 Jmail.execute

Idag regnar det!!

PatrikBMedlem sedan mars 20002 836 inlägg

9 juli 2001 18:23#2

Varför splitta up Request.Form("epost") till en array och sedan loopar igenom Request.Form("epost").
Vad är Request.Form("epost") för fält? checkbox? textarea?

cya,
PatrikB

pellsäterMedlem sedan aug. 2000526 inlägg

9 juli 2001 18:53#3

Hmmmm vet inte..... varför

"epost" är en drop down lista där du väljer en eller flera adresser att skicka mail till

emissionMedlem sedan dec. 19996 721 inlägg

9 juli 2001 20:13#4

epost = request.form("epost")
if instr(epost, ",") >0 then
arrEpost = split(epost, ";")
for each item in request.form("epost")
JMail.AddRecipientBCC "" & arrEpost & "" 
next
else
JMail.AddRecipientBCC "" & arrEpost & "" 
end if

En hel del konstigheter

Du kollar om strängen innehåller komma, men splittar på semikolon, loopar igenom form collection, trots arrayen, och ger hela arrayen som argument till addrecipientbcc, även om arrayen aldrig skapats (if-satsen)

Så här borde det vara

for each item in request.form("epost")
JMail.AddRecipientBCC item
next