Billeder med nyhedsbrev
Goddagjeg har et nyhedsbrev som gerne skulle kunne sende billeder ud mit problem er så sjovt nok at det gør det ikke.
Som jeg har forstået af sproget burde jeg kunne sætte billender ind i brevet med en almindelig HTML kode som fx
<img src="http://hjemmeside.dk/billede.gif">
Når jeg modtager mailen er den dog bare i præcis samme stand som den er skrevet altså i tekst format, koden er nedenfor så hvis nogen kan hjælpe med mit lille problem så er de meget velkommen.
Formularen
<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="#6F0000"><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><strong><br>
</strong></font></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><font face="verdana" size="2"><strong>Server</strong></font>
</div>
</td>
<td valign="middle" align="left"><input name="Mailserver" type="text" value="mail3.cliche.dk" size="40"></td>
</tr>
<tr>
<td valign="middle" align="left"><strong><div align="right"><p><font face="verdana" size="2">Din mail:</font></strong>
</div>
</td>
<td valign="middle" align="left"><input name="Afsender" type="text" value="mail@mail.dk" 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 name="Emne" type="text" value="Nyhedsbrev" 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="30" name="Besked" cols="55"></textarea></td>
</tr>
<tr>
<td valign="top" align="left">
<p align="right"><font face="verdana" size="2"><strong>Sender med:</strong></font></td>
<td valign="middle" align="left"><font face="arial" size="2"><input type="radio" value="JMail" checked name="MailKomponent">JMail</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="#6F0000"><p align="center"><font face="Verdana" size="1" color="#FFFFFF"></td>
</tr>
</table>
</div>
</body>
</html>
-----------------------------------------------
action
-----------------------------------------------
<HTML>
<%
Response.Buffer = True
strMode = Request.QueryString("mode")
If Request.Form("Send") <> "" Then
' Værdi af forms
strSender = Request.Form("Afsender")
strSubject = Request.Form("Emne")
strMessage = Request.Form("Besked")
strMailServer = Request.Form("Mailserver")
'// Databaseudtræk
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
'// Loop til alle 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
End Select
Response.Write "<br><font color=blue><b>Nyhedsbrevet er sendt til alle med grønt</b></font></font></p>"
Response.End
End If
%>
</HTML>
