---

Denne funktion kan sende emails fra din webserver, hvis den har SMTP Server installeret.

<%
Function SendEmail(strFrom, strTo, strSubject, strBody)

On Error Resume Next

Dim objMail

' Laver mail objekt
Set objMail = Server.CreateObject("CDONTS.NewMail")
If err.number <> 0 Then SendEmail = False
         
' Fylder properties i mail objektet
objMail.From = strFrom
objMail.To = strTo
objMail.Subject = strSubject
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = strBody
      
' Sender e-mail
objMail.Send
   
' Rydder op..
Set objMail=Nothing

End Function
%>

---

---

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.