aspMail - Sender kun til emails indenfor eget domæne
Nogle der ved hvorfor følgende kode kun vil sende mails til adresser indenfor mit eget domæne?<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
mailertype = 1
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\news.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * from mailingliste"
SQL1 = "SELECT * FROM tblNews where News_ID=" & request("newsID")
set send1 = conn.execute( SQL )
do while not send1.eof
on error resume next
if mailertype = 1 then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.IsHTML = true
Mail.FromName = "Forskningscenter for Livskvalitet"
Mail.From= "info@livskvalitet.org"
Mail.Host = "mail.livskvalitet.org"
set news = conn.execute( SQL1 )
Mail.AddAddress "", send1("email")
Mail.Subject = news("News_Title")
Mail.Body = news("Short_news")
On Error Resume Next
Mail.Send
set mail = nothing
'If Err <> 0 Then
'Response.Write "Error encountered: " & Err.Description
'End If
' This is my local SMTP server
'aspEmail.Host = "mail.livskvalitet.org"
' mail config settings
'JMail.Charset = "iso-8859-1"
'JMail.ContentTransferEncoding = "8bit"
'JMail.ContentType="text/html"
'aspEmail.From = "info@livskvalitet.org"
'aspEmail.FromName = "Forskningscenter for Livskvalitet"
'aspEmail.Subject = news("News_Title")
'aspEmail.AddAddress send("email")
'aspEmail.Body = news("Short_news")
'aspEmail.IsHTML = True
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
'aspEmail.Priority = 3
' Send it...
'aspEmail.execute
'aspEmail.Send
'set aspEmail = nothing
'elseif mailertype = 2 then
' importance = 0 ' lav
'importance = 1 ' normal
' importance = 2 ' høj
'Set mailObj = CreateObject("CDONTS.NewMail")
' send email med parametre : fra email, til email, header, besked, importance
'mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("tekst"), importance
' slet reference til CDONTS object
'Set mailObj = Nothing
end if
response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send1("email") &"</STRONG></FONT><BR>"
send1.movenext
loop
conn.close
%>
</BODY>
</HTML>
