Index: TECH/Mail/Mail.cls.xml
===================================================================
diff -u
--- TECH/Mail/Mail.cls.xml	(revision 0)
+++ TECH/Mail/Mail.cls.xml	(revision 491)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Mail.Mail">
+<Super>%RegisteredObject</Super>
+
+<Property name="Afzender">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Bestemmelingen">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="Onderwerp">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Inhoud">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+		Set ..Afzender = $ListBuild()
+		Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetAfzender">
+<FormalSpec>Afzender:%String</FormalSpec>
+<Implementation><![CDATA[		Set ..Afzender = Afzender
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfzender">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit ..Afzender
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeBestemmeling">
+<FormalSpec>Bestemmeling:%String</FormalSpec>
+<Implementation><![CDATA[		Do ..Bestemmelingen.Insert(Bestemmeling)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestemmelingen">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[		Quit ##class(TECH.ListIterator).%New(..Bestemmelingen)
+]]></Implementation>
+</Method>
+
+<Method name="ZetOnderwerp">
+<FormalSpec>Onderwerp:%String</FormalSpec>
+<Implementation><![CDATA[		Set ..Onderwerp = Onderwerp
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderwerp">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit ..Onderwerp
+]]></Implementation>
+</Method>
+
+<Method name="ZetInhoud">
+<FormalSpec>Inhoud:%String</FormalSpec>
+<Implementation><![CDATA[		Set ..Inhoud = Inhoud
+]]></Implementation>
+</Method>
+
+<Method name="GeefInhoud">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit ..Inhoud
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Mail/MailVerstuurder.cls.xml
===================================================================
diff -u
--- TECH/Mail/MailVerstuurder.cls.xml	(revision 0)
+++ TECH/Mail/MailVerstuurder.cls.xml	(revision 491)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Mail.MailVerstuurder">
+<Abstract>1</Abstract>
+<Super>%RegisteredObject</Super>
+
+<Method name="VerstuurMail">
+<Abstract>1</Abstract>
+<FormalSpec>Mail:TECH.Mail.Mail</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Mail/SmtpMailVerstuurder.cls.xml
===================================================================
diff -u
--- TECH/Mail/SmtpMailVerstuurder.cls.xml	(revision 0)
+++ TECH/Mail/SmtpMailVerstuurder.cls.xml	(revision 491)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Mail.SmtpMailVerstuurder">
+<Super>TECH.Mail.MailVerstuurder</Super>
+
+<Method name="VerstuurMail">
+<FormalSpec>Mail:TECH.Mail.Mail</FormalSpec>
+<Implementation><![CDATA[
+			#dim scSend As %Status = ""
+			Set scSend = $$SendMiniMail^vhLib.Mail( 
+				Mail.GeefAfzender(), // = From
+				##class(TECH.ListUtils).IteratorToListbuild( Mail.GeefBestemmelingen() ),
+				Mail.GeefOnderwerp(),
+				Mail.GeefInhoud()
+				)
+	
+			if $$$ISERR(scSend) {
+				do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(5001,"Mail failed",scSend))		
+			}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>