Her er den ASP-kode jeg bruger til at sende nyhedsbrevene ud, men det er
vist i en anden gruppe vi skal diskutere hvordan den kan forbedres. I hvert
fald stopper den, og udsender ikke de efterfølgende mails, hvis f.eks. et et
felterne i tabllen med email-adresser er tomt, eller hvis der er
syntaks-fejl i mail-adressen. Og det er MEGET generende.
v.h.
Jakob Munck
Her er asp-koden:
<html>
<head>
<!-- #include file="mailliste.css" -->
<head><body bgcolor="ffffcc">
<table class="ramme" style="border-color : #000000" border="1" align="left"
width="590" cellpadding="0" cellspacing="0">
<tr><td class="sort11">
<%
Response.Buffer = True
strMode = Request.QueryString("mode")
If Request.Form("Send") <> "" Then
'// Her putter vi værdien af de indtastede felter i en variabel
strSender = Request.Form("Afsender")
strSubject = Request.Form("Emne")
strMessage = Request.Form("Besked")
strMailServer = Request.Form("Mailserver")
'// Her åbner vi databasen, og trækker alle email adresse ud i et array
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("../../db/dbtest.mdb")
strSQL = "SELECT email FROM bruger"
Set rs = myConn.Execute(strSQL)
arrEmail = rs.GetRows()
myConn.Close
Set myConn = Nothing
'// Her laver vi et loop igennem vore e-mail array og sender beskeden
til alle de tilmeldte
Select Case Request.Form("MailKomponent")
Case "JMail"
Response.Write "<p><font face=arial size=2><b>Udsender med
JMail</b><br><br>"
Set objMail = Server.CreateObject("JMail.SMTPMail")
objMail.Silent = True
objMail.ServerAddress = strMailserver
objMail.Sender = strSender
objMail.Subject = strSubject
objMail.Body = strMessage
For num = 0 to Ubound(arrEmail,2)
objMail.AddRecipient arrEmail(0, num)
If objMail.Execute Then
Response.Write "<font color=green>" & arrEmail(0, num) & "
(" & num & ") OK</font><br>"
Else
Response.Write "<font color=red>" & arrEmail(0, num) & " ("
& num & ") FEJL</font><br>"
End If
objMail.ClearRecipients
Next
Set objMail = Nothing
Case "ASPMail"
Response.Write "<p><font face=arial size=2><b>Udsender med
ASPMail</b><br><br>"
Set objMail = Server.CreateObject("SMTPsvg.Mailer")
objMail.FromAddress = strSender
objMail.RemoteHost = strMailserver
objMail.Subject = strSubject
objMail.BodyText = strMessage
For num = 0 to Ubound(arrEmail,2)
objMail.AddRecipient "Nyhedsmodtager", arrEmail(0, num)
If objMail.SendMail Then
Response.Write "<font color=green>" & arrEmail(0, num) & "
(" & num & ") OK</font><br>"
Else
Response.Write "<font color=red>" & arrEmail(0, num) & " ("
& num & ") FEJL</font><br>"
End If
objMail.ClearRecipients
Next
Set objMail = Nothing
Case "OCXMail"
Response.Write "<p><font face=arial size=2><b>Udsender med
OCXMail</b><br><br>"
Set objMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
For num = 0 to Ubound(arrEmail,2)
strResult = objMail.SendMail(strMailserver, arrEmail(0, num),
strSender, strSubject, strMessage)
If strResult = "" Then
Response.Write "<font color=green>" & arrEmail(0, num) & "
(" & num & ") OK</font><br>"
Else
Response.Write "<font color=red>" & arrEmail(0, num) & " ("
& num & ") FEJL</font><br>"
End If
Next
Set objMail = Nothing
End Select
Response.Write "<br><font color=blue><b>Nyhedsbrevet er nu
udsendt!</b></font></font></p>"
Response.End
End If
%>
<html><head>
<title>Send mail</title>
</head>
<body link="#FFFFFF" vlink="#C0C0C0">
<div align="center"><center>
<table border="0" width="600" cellspacing="0" cellpadding="3">
<tr>
<td width="100%" bgcolor="#c0c0c0"><p align="center"><font face="verdana"
size="4" color="#ffffff"><strong>Mailliste</strong></font>
<br><br>
<a href="../get2you.asp?mode=administration" target="_self">Admin.</a>
</td>
</tr>
<tr align="center">
<td width="100%">
<form method="POST" action="send_mail.asp">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td valign="middle" align="left" colspan="2"><font face="verdana"
size="2"><strong><br>
</strong>Indtast venligst oplysningerne i følgende felter<br>(Server:
mail.tele.dk - Afsender: admin@get2you.dk):<strong><br>
</strong></font></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><font face="verdana"
size="2"><strong>Mailserver:</strong></font>
</div>
</td>
<td valign="middle" align="left"><input type="text" name="Mailserver"
size="40"></td>
</tr>
<tr>
<td valign="middle" align="left"><strong><div align="right"><p><font
face="verdana" size="2">Afsender:</font></strong>
</div>
</td>
<td valign="middle" align="left"><input type="text" name="Afsender"
size="40"></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><font face="verdana"
size="2"><strong>Emne:</strong></font>
</div>
</td>
<td valign="middle" align="left"><input type="text" name="Emne"
size="40"></td>
</tr>
<tr>
<td valign="top" align="left"><div align="right"><p><font face="verdana"
size="2"><strong>Besked:</strong></font>
</div>
</td>
<td valign="middle" align="left"><textarea rows="20" name="Besked"
cols="55"></textarea></td>
</tr>
<tr>
<td valign="top" align="left">
<p align="right"><font face="verdana" size="2"><strong>Send
med:</strong></font></td>
<td valign="middle" align="left"><font face="arial" size="2"><input
type="radio" value="JMail" checked name="MailKomponent">JMail,
<input type="radio" name="MailKomponent" value="ASPMail">ASPMail, <input
type="radio" name="MailKomponent" value="OCXMail">OCXMail</font></td>
</tr>
<tr>
<td valign="middle" align="left" colspan="2"><br>
<input type="submit" value="Send" name="Send"></td>
</tr>
</table>
</form>
</center>
</td>
</tr>
<tr align="center">
<td width="100%" bgcolor="#c0c0c0">
-
</td>
</tr>
</table>
</div>
</td></tr></table>
</body></html>