Als u met ASP e-mail wilt sturen vanaf uw website kunt u gebruik maken van CDONT. Dit is een standaard script waar u de verzender en dergelijken kan invullen. Natuurlijk kunt u dit zowel statisch als dynamisch (met variabelen) doen.
Let op!! De scripts hieronder moeten wel als ASP file worden opgeslagen, dus bijvoorbeeld cdont.asp.
Het standaard script
<%
Dim MyBody
Dim MyCDONTSMail
Set MyCDONTSMail = Server.CreateObject("CDONTS.NewMail")
If IsObject(MyCDONTSMail) = False Then
ReportError "De server mist componenten om CDONT te draaien."
End If
MyCDONTSMail.From = "user1@domein.com"
MyCDONTSMail.To = "user2@domein.com"
MyCDONTSMail.Subject = "CDONT test"
MyBody = "Deze test " & vbCrLf
MyBody = MyBody & "laat zien" & vbCrLf
MyBody = MyBody & "hoe CDONT werkt"
MyCDONTSMail.Body = MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
Hierboven ziet u hoe het script werkt. U vult een afzender(From), een ontvangen(To), een onderwerp(Subject) en een bericht(MyBody) in. U kunt zoals u ziet ook meerdere losse berichtjes koppelen. In de een na laatste regel wordt de e-mail verzonden. In de laatste regel wordt het mailtje leeggemaakt.
Als u een Carbon Copy (CC) wilt versturen, kunt u onder de To-regel de volgende regel invoeren:
MyCDONTSMail.Cc = "user3@domein.com"
Een script voor HTML e-mail
<%
Dim MyCDONTSMail
Dim HTML
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
If IsObject(MyCDONTSMail) = False Then
ReportError "De server mist componenten om CDONT te draaien."
End If
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>HTML-mail versturen met CDONT</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<font size =""3"" face=""Arial"">"
HTML = HTML & "<p align = ""center"">Protagonist</p><br>"
HTML = HTML & "<p align = ""center"">Bestel nu!</p><br>"
HTML = HTML & "<body>"
HTML = HTML & "<html>"
MyCDONTSMail.Host = "localhost"
MyCDONTSMail.From = "user1@domein.com"
MyCDONTSMail.To = "user2@domein.com"
MyCDONTSMail.Subject = "Protagonist Test"
MyCDONTSMail.BodyFormat=0
MyCDONTSMail.MailFormat=0
MyCDONTSMail.Body=HTML
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
Hierboven ziet een script dat een e-mail verstuurd in HTML opmaak. Het script is hetzelfde als het eerste script, alleen de MyBody-delen zijn vervangen door HTML.
Een attachement meesturen
Om een attachement mee te sturen voegt u onderstaande regels in, onder de regel MyCDONTSMail.Subject.
MyCDONTSMail.AttachFile Server.MapPath("\directory\bestand.txt")
Als u het absoluten pad op wilt geven gebruikt u de volgende regel:
MyCDONTSMail.AttachFile "C:\inetpub\bestand.txt"
Het opgegeven bestand wordt nu meteen meegestuurd bij het versturen van de e-mail.
|
lokaal tarief