In veel gevallen is het interessant om gegevens van uw bezoekers te registeren voor bijvoorbeeld de verwerking van een informatieaanvraag of voor het bevestigen van een bestelling / inschrijving. Deze pagina legt u uit op welke wijze u een dergelijk invulformulier kunt opzetten binnen uw website (gebruikmakende van het CDONTS.NewMail object).
Let op: CDOSYS werkt alleen op onze Windows 2003 Servers, Windows 2000 Server ondersteund standaard geen CDSYS maar CDONTS.
Het onderstaande ASP script zorgt ervoor dat een emailbericht wordt verstuurd naar info@slampaq.com:
<%
Set objNewMail = CreateObject("CDO.Message")
objNewMail.Subject = "Reactie van site"
objNewMail.From = "webmaster@uwsite.nl"
objNewMail.To = "info@slampaq.com"
objNewMail.TextBody = "Bericht"
objNewMail.Send
Set objNewMail = nothing
%>
Door de constanten zoals het objNewMail.To="info@slampaq.com" te vervangen door een eerder gedefinieerde string (bijv. sEmail) kunt u een e-mailbericht versturen naar een eerder op een formulier ingevuld mailadres (bijv: sEmail = Request.Form("email")). Hieronder vindt u een voorbeeld voor het versturen van een bevestingsmail na de aanvraag voor sponsor informatie op het Bospop festival.
<%
Dim objNewMail, obj1, obj2, obj3, obj4, obj5, obj6, obj7, obj8, obj9
Set objNewMail = CreateObject("CDO.Message")
objNewMail.Subject = "Sponsor informatie"
objNewMail.From = "webmaster@bospop.nl"
objNewMail.To = "sponsoring@bospop.nl"
obj1 = sBedrijfsnaam & chr(10)
obj2 = obj1 & sNaam & chr(10)
obj3 = obj2 & sAdres & chr(10)
obj4 = obj3 & sPostcode & chr(10)
obj5 = obj4 & sPlaats & chr(10)
obj6 = obj5 & sTelefoon & chr(10)
obj7 = obj6 & sEmail & chr(10)
obj8 = obj7 & sInteresse & chr(10)
obj9 = obj8 & sReden & chr(10)
objNewMail.TextBody = obj9 & "Heeft het invulformulier voor Sponsoring van Bospop 2004 ingevuld. Gelieve contact op te nemen."
objNewMail.Send
Set objNewMail = nothing
%>
In het bovenstaande script gaan we ervan uit dat de variabele zoals sEmail, sNaam etc. reeds gedefinieerd zijn. Een mogelijke manier om dit te doen is het opvragen van de waarde uit een formulier zoals hieronder gedemonstreerd wordt (het veld genaamd email wordt uitgelezen van het formulier).
sEmail = Request.Form("email")