Her er den væsentlige kode:
<%
' # KONFIGURERER MAILKOMPONENT
Set Msg = Server.CreateObject("JMail.Message")
Msg.ContentType = "text/html"
Msg.Logging = True
Msg.Silent = True
Msg.From = strAfsEmail
Msg.FromName = strAfsNavn
Msg.Charset = "iso-8859-1"
Msg.AddRecipient strModEmail, strModNavn
Msg.Subject = "Anbefaling af artikel"
' # ORGANISERER MAILINDHOLDET
strBeskedOps = strBeskedOps & "<font face=""Verdana"" size=""1""><b>Anbefaling af artikel</b><br>"
strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------<br>"
strBeskedOps = strBeskedOps & "Fra: " & strAfsNavn & ", " & strAfsEmail & "<br>"
strBeskedOps = strBeskedOps & "Til: " & strModNavn & ", " & strAfsEmail & "<br><br>"
strBeskedOps = strBeskedOps & "Supplerende besked:<br>"
strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------<br>"
strBeskedOps = strBeskedOps & Replace(strAfsBesked, chr(13), "<br>") & "<br><br>"
strBeskedOps = strBeskedOps & "Anbefalet artikel: <a href=""" & strLink & """>" & strTitel & "</a>" & " - Klik på linket for at læse artiklen.<br>"
strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------<br>"
strBeskedOps = strBeskedOps & "Mener du at denne mail er sendt til dig ved en fejl, kender du ikke afsenderen, eller har du generelle spørgsmål "
strBeskedOps = strBeskedOps & "til denne mail, skal du være velkommen til at kontakte mig via kontaktformularen: "
strBeskedOps = strBeskedOps & "<a href=""
http://mitsite.dk/Kontakt.asp""> Mitsite.dk | Kontakt</a><br><br>"
strBeskedOps = strBeskedOps & "Med venlig hilsen<br><br><a href=""
http://www.Mitsite.dk/"">Mitsite.dk</a><br><br>.</font>" Msg.Body = strBeskedOps
' # PRIORITET: 1) HØJ PRIORITET (VIGTIGT), 3) NORMAL, 5) LAV PRIORITET
Msg.Priority = 3
' # SENDER MAILEN
Msg.Execute
%>
Mangler der noget?
Apo