Hej
Jag har lite problem med att skicka med jmail från den server som jag har nu.
Denna koden under fungerar kanon.
<%
SET objJmail = Server.CreateOBject("JMail.Message")
objJmail.From = Request.Form("email")
objJmail.FromName = Request.Form("Namn")
objJmail.AddRecipient "
[email protected]"
objJmail.Subject = Request.Form("subject")
objJmail.Body = Request.Form("message")
objJmail.ContentType = "text/plain"
objJmail.Send("mail.dunken.se")
Set objJmail = nothing
Response.Redirect("tack.asp")
%>
Medans denna får felsvar som ni ser underkoden.
If Request.QueryString("action") = "skicka" Then
strRubrik = dbSafe(Request.Form("Rubrik"))
strNyhetsbrevet = dbSafe(Request.Form("Nyhetsbrevet"))
Set objMess = Server.CreateOBject("JMail.Message")
objMess.From = "
[email protected]"
objMess.FromName = "Dunken.se"
' Loopa igenom alla som skall ha detta nyhetsbrev!
Set objCon = openCon()
Set objRs = objCon.Execute("SELECT Distinct(Epost) FROM Kunder WHERE Nyhetsbrev = 'T'")
Do Until objRs.Eof
objMess.AddRecipientBCC objRs("Epost")
objRs.MoveNext
Loop
Set objRs = Nothing
closeCon(objCon)
objMess.Subject = strRubrik
objMess.HtmlBody = strNyhetsbrevet
objMess.Send("mail.dunken.se")
' detta är linje 37!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!
Set objMess = nothing
Session("strMess") = "Nyhetsbrevet är nu skickat!"
Response.Redirect("SkickaNyhetsbrev.asp")
End If
Felet som kommer upp på bägge sidorna är detta.
jmail.Message error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/admin/SkickaNyhetsbrev.asp, line 37
Någon som kan hjälpa ?
