<%
	Dim myMail, myCharset

	If 1=1 Then

	Dim myMailFrom : myMailFrom = "webform@sitewise.nl" ' Via sitewise!!!
	Dim myMailPassword : myMailPassword = "Hy6#Dew18Vcxs"
	Dim myMailServer : myMailServer = "mail2.sitewise.nl" ' voor domein sitewise.nl!!

	Else

	' Indien domein op mail1.sitewise.nl!!

	Dim myMailFrom : myMailFrom = "webform@klantdomein" ' per domein verschillend!!!
	Dim myMailPassword : myMailPassword = "Hy6#Dew18Vcxs" ' zelf verzinnen!!
	Dim myMailServer : myMailServer = "mail1.sitewise.nl"

	End If

	Dim myMailPort : myMailPort = 587

	Dim HB : HB = "Dit is een test"
	Dim myMailSSL : myMailSSL = true ' Is indien je mail wil aflever op mailserver en niet lokaal.

	Set myMail = Server.CreateObject("CDO.Message")

	myMail.bodypart.charset = "unicode-1-1-utf-8"

	myMail.From = "Naam verzender <" & myMailFrom & ">"
	myMail.To = "Naam ontvangen <helpdesk@sitewise.nl>"

	'myMail.ReplyTo = "emailterug@email.nl"

	myMail.Subject = "Onderwerp"

	'myMail.TextBody = TB 'voor een text e-mail
	myMail.HTMLBody = HB 'voor een HTML e-mail





	'== OPTIONEEL (ATTACHMENT) ==
	'Dim fs
	'
	'set fs = server.CreateObject("Scripting.FileSystemObject")
	'
	'if fs.fileexists(station:\locatie\bestand) then
	'
	'	myMail.AddAttachment station:\locatie\bestand
	'
	'end if
	'
	'set fs = nothing
	'== EINDE OPTIONEEL ==

	If myMailSSL Then

		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail1.sitewise.nl" '' of mail2.sitewise.nl of mail.greenkeeper.nl
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' Use network for sending

		' Enable SSL for IMAP
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' Basic authentication
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myMailFrom
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = myMailPassword

	Else

		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

	End If


	myMail.Configuration.Fields.Update



	'== OPTIONEEL (LEESBEVESTIGING) ==
	'myMail.Fields.Item("urn:schemas:mailheader:disposition-notification-to") = "emailleesbevestiging@email.nl"
	'mYMail.Fields.Update
	'== EINDE OPTIONEEL ==


	On Error Resume Next

	 myMail.Send

	 If err.Number <> 0 Then
	 	Response.write "MsgBox err.Number - " & err.Description & "<br />" & err.Number
	 	Response.end
	 else
	 	Response.write "Mail sent OK"
	 end if

	On Error Goto 0


	Set myMail = Nothing
%>