Broncode: procedure met het newmail object
<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
Function SendMail(strBericht)
'---------------------------------------------------------------------------------------------------------
' Een procedure voor het versturen van mail vanuit een asp-pagina.
'---------------------------------------------------------------------------------------------------------
Dim objSMTP, strOntvanger, strOnderwerp, strVerzender, strAttachement
On Error Resume Next
'// NewMail object van IIS >= 4.
Set objSMTP = Server.CreateObject("CDONTS.NewMail")
'// Is het object met succes gemaakt?
If Err = 0 Then
'// Versturen naar een postbus zonder autoresponder.
strOntvanger = "info1@nedcomp.nl"
'// Een geldige verzender is altijd nodig.
strVerzender = "website@nedcomp.nl"
strOnderwerp = "e-mail bericht met het cdonst newmail object"
'// Aanzetten voor het versturen van een attachement.
'objSMTP.AttachFile "w:\websites\domein.nl\www\dir1\file1.doc"
'// Aanzetten voor eventuele andere ontvangers.
'objSMTP.Cc = "beheer1@nedcomp.nl"
'objSMTP.Bcc = "beheer1@nedcomp.nl"
'// Aanzetten voor html-berichten.
'objSMTP.BodyFormat = 0
'objSMTP.MailFormat = 0
'// De mail versturen.
objSMTP.Send strVerzender, strOntvanger, strOnderwerp, strBericht
'// Helaas zijn er met dit object verder geen controles mogelijk.
If Err = 0 Then SendMail = True
End If
Set objSMTP = Nothing
End Function
</SCRIPT>
<html>
<head>
<title>Practical Active Server Pages : NewMail</title>
<!-- Practical ASP wordt u aangeboden door Nedcomp Hosting -->
</head>
<body>
<hr size="1" color="#008080">
<p><strong><font face="Arial" size="2">NewMail</font></strong></p>
<% If SendMail("Are we having fun yet?") Then %>
<p><font face="Arial" size="2">Het bericht versturen was succesvol!</font></p>
<% Else %>
<p><font face="Arial" size="2">Fout: het bericht is niet verstuurd.</font></p>
<% End If %>
<hr size="1" color="#008080">
</body>
</html>
|
Producten en diensten
Algemeen