Set mail = Server.CreateObject("CDONTS.NewMail")
mail.Subject = Request.form("amne")
mail.Body = Request.Form("meddelande")
mail.From = "info@xxx.com"
mail.Host = "mail.xxx.com"
mail.To = "Kundlista@xxx.com"
If InStr(epost, ",") > 0 Then
epost = Replace(epost, ",", ";")
End If
mail.bcc = epost
mail.Send
set mail = Nothing
Frågan#1
Denna koden gör bara att den första eposten får email....ser ni nåt fel
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><% epost = request.form("epost")
%>
<%
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.Subject = Request.form("amne")
mail.Body = Request.Form("meddelande")
mail.From = "info@xxx.com"
mail.Host = "mail.xxx.com"
mail.To = "Kundlista@xxx.com"
epost = request.form("epost")
if instr(epost, ",") >0 then
for each item in request.form("epost")
mail.bcc = item
next
else
mail.bcc = "" & epost & ""
end if
mail.Send
set mail = Nothing
%></font>