1 svar · 399 visningar · startad av WebbisNet
får inte denna kod att skicka mailet
<!--#include virtual="/include/dbconn.asp"-->
<%Set rs=objConn.Execute("Select userID, email From tblUsers where username = '" & replace(Request.Form("reciever"),"'","''") & "'")
reciever = request.form("reciever")
response.write reciever
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
userID = rs("userID")
subject = request.form("subject") & " (Från "& Session("username") & ")"
email = rs("email")
message = Request.Form("message")
sTo = rs("email")
sCC = "mail@webbisen.com"
sFrom = "mail@webbisen.com"
sSubject = subject
sTextBody = message
msg.From = sFrom
msg.AddRecipient email
msg.Subject = sSubject
msg.Body = sTextBody
if not msg.Send("mail.myDomain.net" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
msg.Send("mail.webbisen.com" )
end if
response.redirect "writeEMail.asp?email=sent&to="& reciever
%>
här har du felet! :)
if not msg.Send("mail.myDomain.net" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
msg.Send("mail.webbisen.com" )
end if
ska vara:
if not msg.Send("mail.webbisen.com" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.Write("mail skickat!")
end if