<%
' algemene functie voor het verzenden via CDONTS
Function SendMail (sMailtoName, sMailto, sMailfromName, sMailFrom, sMailCC, sSubject, sBody, byref sError) 

Dim cdoConfig, sch, cdoMessage

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration") 

With cdoConfig.Fields
            .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
            .Item(sch & "smtpserver") = "localhost"
            .update
End With 

            

Set cdoMessage = CreateObject("CDO.Message")             

Set cdoMessage.Configuration = cdoConfig 

cdoMessage.From = Chr(34) & sMailfromName & Chr(34) & "<" & sMailFrom & ">"
cdoMessage.To = Chr(34) & sMailtoName & Chr(34) & "<" & sMailto & ">" 
if sMailCC <> "" Then
	cdoMessage.Cc = sMailCC
End If    
if sMailBCC <> "" Then
	cdoMessage.Bcc = sMailBCC
End If       

cdoMessage.Subject = sSubject
cdoMessage.HTMLBody = sBody

On Error Resume Next
            cdoMessage.Send 
            If Err.Number<>0 Then
                        sError = Err.Description
                        Err.Clear
            End If

Set cdoMessage = Nothing 
Set cdoConfig = Nothing 

End Function
%>