Newsmail + postserver
Hej alle.jeg har fået dette newsmail script til at virke inden for domænet, men postserveren vil ikke slippe mailne ud da den kræver brugernavn & password. Hvem kan hjælpe med de pr. liner??
<center>
<%
Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")
response.write("The email has been sent to:<br><br>" & mbcc )
Dim eCDO
Set eCDO = Server.CreateObject("CDONTS.NewMail")
eCDO.To = zEmail
eCDO.From = mFrom
eCDO.bcc = mTo
eCDO.Subject = mSubject
eCDO.Body = mBody
eCDO.Send
Set eCDO = Nothing
if mArchive = "1" then
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("newsmail.mdb"))
ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & mSubject & "','" & mBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br>Archived Successfully!<br><br>")
conn.close
end if
response.write("<br><br><br><center><a href='Adminindex.asp'>ADMIN INDEX</a><center>")
%>
</center>