---

Hej NG

Jeg er absolut nybegynder med ASP, og har hentet en lille kode der sender en
mailingliste vi JMail

Mit problem er blot at jeg kun får de mails der er sat op til med samme
domain som mailserver i dette tilfælde mail.265x24.dk
skal jeg selv installere nogle JMail komponenter eller ligger disse hos
udbyderen (cliche) de skriver at komponenter fra JMail er understøttet

Med håbet om at nogen kan hjælpe

Grosseren
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS
mailertype = 1
'**********************************************
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\mailing.mdb;
DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver
(*.mdb)};"
SQL = "SELECT * from mailingliste"
set send = conn.execute( SQL )
do while not send.eof
on error resume next
if mailertype = 1 then
Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = "mail.365x24.dk"
' mail config settings
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "kik@365x24.dk"
JMail.Subject = request("header")
JMail.AddRecipient send("email")
JMail.Body = request("tekst")
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
' Send it...
JMail.Execute
set JMail = 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 "kik@365x24.dk", 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 : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
else %>