Inte någon som har tips på hur man löser detta?
Frågan#1
Tjena.
Har en enkel HTML-mailfunktion som jag vill modda lite...
Jag vill, i detta läge, kunna ladda upp filer (ex. XLS, DOC eller liknande) som jag vill kunna bifoga med det mail som kommer att skickas ut (med CDONTS).
<HTML>
<body bgcolor="white">
<%
if request.ServerVariables("REQUEST_METHOD") = "GET" then
%>
<form action="htmlemail.asp" method=post>
<font face=verdana>
Your Name <input type="text" name="strName" value="Sender"><br>
Your E-Mail <input type="text" name="strEmail" value="sender@somewhere.nu"> <br><br>
Recipient Email(s) <input type="text" name="strTo" value="reciever@somewhere.nu"><p>
Headline<br>
<input type="text" name="strKursrubrik" value="..."><br>
Info<br>
<textarea cols=40 rows=4 name=message>Detta är ett meddelande från blablabla</textarea><br>
<br>
<br>
Seminarierubrik<br>
<input type="text" name="strSeminarierubrik" value="seminarier"><br>
Seminarier<br>
<textarea cols=40 rows=4 name=seminarier>Här matar du in meddelandet</textarea><br>
<br>
</p>
<input type=submit name=send value=Send>
</form>
<%
else
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.Importance = 1
objMail.From = request("strName") & "<" & request("strEmail") & ">"
objMail.To = request("strTo")
objMail.Subject = "Information från ..."
' this is my messages HTML
strMsg = "" & _
"<body bgcolor=""#D0D0D0"" text=""#000000"" link=""#FF0000"" vlink=""#FF0000"" alink=""#999999"" leftmargin=""10"" topmargin=""10"" marginwidth=""10"" marginheight=""0"">" & _
"<div align=""left""><br>" & _
"<table width=""660"" border=""0"" bgcolor=""#999999"" cellpadding=""0"" cellspacing=""1"">" & _
"<tr>" & _
"<td>" & _
"<table width=""660"" border=""0"" cellspacing=""5"" bgcolor=""#FFFFFF"">" & _
"<tr>" & _
"<td valign=""top"" width=""17""><img src=""http://www.expressen.se/content/1/c4/95/43/1043e69b.gif""></td>" & _
"<td width=""633"" align=""left"" valign=""top"">" & _
"<table width=""620"" border=""0"" bgcolor=""#666666"" cellpadding=""0"" cellspacing=""1"">" & _
"<tr>" & _
"<td>" & _
"<table width=""100%"" border=""0"" bgcolor=""#FF0000"" cellspacing=""2"">" & _
"<tr>" & _
"<td width=""75%""><font color=""#FFFFFF"" face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b><font face=""Arial, Helvetica, sans-serif"">Utbildningsrelaterad information " & _
"från ...</font></b></font></td>" & _
"<td width=""25%"">" & _
"<div align=""right""><font face=""Arial, Helvetica, sans-serif"" size=""1""><b>" & _
"</b></font></div>" & _
"</td>" & _
"</tr>" & _
"</table>" & _
"</td>" & _
"</tr>" & _
"</table>" & _
"<br>" & _
"</body>" & _
"</html>"
' set the format of the email to html, etc
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = strMsg
' Här finns det möjlighet att attacha bildfiler
' objMail.AttachURL server.MapPath(""), ""
objMail.Send
' destroy the email object
Set objMail = Nothing
%>
<h1>
<font face="times new roman">Message.sent</font>
</h1>
<meta http-equiv="REFRESH" content="2; url=htmlemail.asp"> -->
<% end if %>
</body></html>
Vet någon hur man lägger till denna funktion på ett bra sätt?
Längre fram skulle det ju vara skoj om man kunde göra en WYSIWYG-editor med möjlighet att lägga till bilder osv. men det är inte aktuellt just nu...
mvh Stefan
