Mailingsliste :)
Jeg har følgende kilde :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 = \"localhost\"
\' mail config settings
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.Sender = \"din.mail.afsender\"
JMail.Subject = request(\"header\")
JMail.AddRecipient send(\"email\"), \"Navn på modtager\" \'Kunne værer equest(\"navn\") hvis der er et felt der hedder navn i db\'en
JMail.HTMLBody = request(\"tekst\")
\' 1 - highest priority (Urgent)
\' 3 - normal
\' 5 - lowest
JMail.Priority = 1
\' 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 \"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 : \"& send(\"email\") &\"</STRONG></FONT><BR>\"
send.movenext
loop
conn.close
else %>
<CENTER>
<TABLE BORDER=\"0\">
<form action=\"write_send.asp\" METHOD=\"POST\">
<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"send\">
<TR>
<TD ALIGN=\"LEFT\">
<FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
Overskrift:
</STRONG></FONT>
</TD>
<TD ALIGN=\"LEFT\">
<INPUT TYPE=\"TEXT\" NAME=\"header\" SIZE=\"50\">
</TD>
</TR>
<TR>
<TD ALIGN=\"RIGHT\" VALIGN=\"TOP\">
<FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
Tekst:
</STRONG></FONT>
</TD>
<TD ALIGN=\"LEFT\">
<TEXTAREA COLS=\"45\" ROWS=\"15\" NAME=\"tekst\"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN=\"LEFT\">
</TD>
<TD ALIGN=\"RIGHT\">
<input type=\"submit\" value=\"-- SEND --\">
</TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML><HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">
<%
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 = \"localhost\"
\' mail config settings
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.Sender = \"N-Xpress@SkyScraper.dk\"
JMail.Subject = request(\"header\")
JMail.AddRecipient send(\"email\"), \"Navn på modtager\" \'Kunne værer equest(\"navn\") hvis der er et felt der hedder navn i db\'en
JMail.HTMLBody = request(\"tekst\")
\' 1 - highest priority (Urgent)
\' 3 - normal
\' 5 - lowest
JMail.Priority = 1
\' 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 \"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 : \"& send(\"email\") &\"</STRONG></FONT><BR>\"
send.movenext
loop
conn.close
else %>
<CENTER>
<TABLE BORDER=\"0\">
<form action=\"write_send.asp\" METHOD=\"POST\">
<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"send\">
<TR>
<TD ALIGN=\"LEFT\">
<FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
Overskrift:
</STRONG></FONT>
</TD>
<TD ALIGN=\"LEFT\">
<INPUT TYPE=\"TEXT\" NAME=\"header\" SIZE=\"50\">
</TD>
</TR>
<TR>
<TD ALIGN=\"RIGHT\" VALIGN=\"TOP\">
<FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
Tekst:
</STRONG></FONT>
</TD>
<TD ALIGN=\"LEFT\">
<TEXTAREA COLS=\"45\" ROWS=\"15\" NAME=\"tekst\"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN=\"LEFT\">
</TD>
<TD ALIGN=\"RIGHT\">
<input type=\"submit\" value=\"-- SEND --\">
</TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>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 = \"localhost\"
\' mail config settings
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.Sender = \"N-Xpress@SkyScraper.dk\"
JMail.Subject = request(\"header\")
JMail.AddRecipient send(\"email\"), \"Navn på modtager\" \'Kunne værer equest(\"navn\") hvis der er et felt der hedder navn i db\'en
JMail.HTMLBody = request(\"tekst\")
\' 1 - highest priority (Urgent)
\' 3 - normal
\' 5 - lowest
JMail.Priority = 1
\' 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 \"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 : \"& send(\"email\") &\"</STRONG></FONT><BR>\"
send.movenext
loop
conn.close
else %>
<CENTER>
<TABLE BORDER=\"0\">
<form action=\"write_send.asp\" METHOD=\"POST\">
<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"send\">
<TR>
<TD ALIGN=\"LEFT\">
<FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
Overskrift:
</STRONG></FONT>
</TD>
<TD ALIGN=\"LEFT\">
<INPUT TYPE=\"TEXT\" NAME=\"header\" SIZE=\"50\">
</TD>
</TR>
<TR>
<TD ALIGN=\"RIGHT\" VALIGN=\"TOP\">
<FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
Tekst:
</STRONG></FONT>
</TD>
<TD ALIGN=\"LEFT\">
<TEXTAREA COLS=\"45\" ROWS=\"15\" NAME=\"tekst\"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN=\"LEFT\">
</TD>
<TD ALIGN=\"RIGHT\">
<input type=\"submit\" value=\"-- SEND --\">
</TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
Ok her er så mit problem.. Den mailingsliste skal sende ud i HTML.. Dvs. jeg skriver mailingslisten i HTML kode.. samt den skal kunne skrive et afsender navn sammen med emailen som folk kan svare tilbage til.. Jeg fik hjælp af en som har rimelig forstand på det... Og han mente den skulle være der nu.. Men selvom scriptet siger den har afsendt en mail, så kommer det aldrig frem til modtageren!
Hvordan skal kilden se ud hvis den skal lave nav på afsender samt at man kan skrive det i HTML!
Glæder mig til jeres svar :)
