Fejl i modtagelse af mails fra cliche i maling list
Jeg har lige fået et mailing list script til at virke med JMail, men det har jeg så åbenbart ikke, ingen modtager deres mails koden er her, hvis nogen kan komme med et problem hvor fejlen ligger må i meget gerne komme med detsend.asp
------------
<html><head>
<title>Mailliste</title>
<meta name="Generator" content="Stone's WebWriter 4">
</head>
<body link="#FFFFFF" vlink="#C0C0C0">
<div align="center"><center>
<table border="0" width="600" cellspacing="0" cellpadding="3" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 2px solid rgb(0,0,0)">
<tr>
<td width="100%" bgcolor="#000000"><p align="center"><font face="verdana" size="4" color="#FFFFFF"><strong>Mailliste</strong></font></td>
</tr>
<tr align="center">
<td width="100%">
<form method="POST" action="sendmail1.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:<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="5" 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="#000000"><p align="center"><font face="Verdana" size="1" color="#FFFFFF">Dette eksempel er skrevet af Dennis Knappe<br>
Eksemplet kan downloades fra <a href="http://activedeveloper.dk">http://activedeveloper.dk</a></font></td>
</tr>
</table>
</div>
</body></html>
sendmail1.asp
---------------
<%
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("mailliste.mdb")
strSQL = "SELECT Email FROM Mailliste"
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 = sender
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
%>
-----------
jeg sætter følgende ting til :
Mailserver: Mail.domæne.dk
Afsender: mail@domæne.dk
Emne: asd
Besked: asd
