Mails modtages enten som spam eller slet ikke

Jeg tror du skal forsøge at sende dem individuelt og ikke som samlet e-mail. Mange SPAM-filtre smider dem væk hvis der er for mange modtagere. Jeg kan ikke helt huske om JMail 'husker' indstillingerne efter du har lavet send, men det må stå i deres dokumentation. Jeg ville derfor lave det således:

set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true
msg.From = Afmail
msg.FromName = Afsender
arrEmail = Split(Emails,",")
msg.Subject = Request.Form("Emne")
msg.HTMLBody = htmlbody
msg.ContentType = "text/html"
msg.ISOEncodeHeaders = false
msg.Priority = false
msg.MailDomain = "mail.mitdomæne.dk"
msg.MailServerUserName = "webmaster@mitdomæne.dk"
msg.MailServerPassWord = "password"
For i = LBound(arrEmail) to UBound(arrEmail)
      msg.ClearRecipients()
      msg.AddRecipient arrEmail(i)
      msg.Send ("mail.mitdomæne.dk")
Next

set msg = Nothing

lukker

Hvad blev det til med den? Du må lige give en melding! :)

Hey, umiddelbart lå problemet i at jeg brugte forskellige afsendere og ikke webmaster@xxxx.dk (samme som Msg.From), det virker fint nu :o)

Den endelige kode:

Emne = Request.Form("emne")
Indhold = Request.Form("Tekst")
Emails = Request.Form("select2")
Afsender = Request.Form("afsender")
htmlbody = "<skriv mail her>"
Set msg = Server.CreateObject("JMail.Message")
msg.Logging = true
msg.From = "webmaster@xxxx.dk"
msg.FromName = Afsender
arrEmail = Split(Emails,",")
For i = LBound(arrEmail) to UBound(arrEmail)
      msg.AddRecipientBcc arrEmail(i)
Next
msg.Subject = Request.Form("Emne")
msg.HTMLBody = htmlbody
msg.ContentType = "text/html"
msg.ISOEncodeHeaders = true   
msg.Priority = 3
msg.MailDomain = "mail.xxxx.dk"
msg.MailServerUserName = "webmaster@xxxx.dk"
msg.MailServerPassWord = "xxxx"
msg.Send("mail.xxxxx.dk")
set msg = Nothing

If request.form("News") = "ja" Then
%>
<!--#include file="connection.inc"-->
<%
strSQL = "Insert into News ("
strSQL = strSQL & "Tekst, "
strSQL = strSQL & "Submit_date, "
strSQL = strSQL & "Submit_by) "

strSQL = strSQL & "values( "
strSQL = strSQL & "'" & request.form("Tekst")& "', "
strSQL = strSQL & "'" & day(now) & "/" & month(now) & "-" & year(now) & "', "
strSQL = strSQL & "'" & session("navn")& "')"

Conn.Execute(strSQL)

Response.Write "<script language=""javascript"" type=""text/javascript"">alert('Mailen er sendt og gemt som nyhed.')</script>"
%>
<script language="javascript" type="text/javascript">setTimeout("location.href='mail.asp?menuid=<%=Request.querystring("MenuID")%>';",1000);</script>
<%

Else

Response.Write "<script language=""javascript"" type=""text/javascript"">alert('Mailen er sendt.')</script>"
%>
<script language="javascript" type="text/javascript">setTimeout("location.href='mail.asp?menuid=<%=Request.querystring("MenuID")%>';",1000);</script>
<%