Index: svn/Helper.cls.xml
===================================================================
diff -u -r1652 -r1654
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1652)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1654)
@@ -462,13 +462,14 @@
 		}	
 	}
 	if MailBody.Size {
-		set Mail = ##class(TECH.Mail).%New()
+		#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
+		#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail()
 		do Mail.ZetOmleiden(0)
 		do Mail.ZetVerzender($$$SystemMail("SVN"))
 		do Mail.ZetOnderwerp("Openstaande svn wijzigingen - "_$zu(110)_" - "_$zu(5))
 		do Mail.VoegToeOntvanger("ICT_development@vanhoecke.be")
 		do Mail.ZetInhoudStream(MailBody)
-		do Mail.Verstuur()
+		Do MailAPI.VerstuurMail(Mail)
 	}
 ]]></Implementation>
 </Method>