Index: vhUnitTest/TECH/Mail/TestMailAPI.cls.xml
===================================================================
diff -u -r1578 -r1592
--- vhUnitTest/TECH/Mail/TestMailAPI.cls.xml	(.../TestMailAPI.cls.xml)	(revision 1578)
+++ vhUnitTest/TECH/Mail/TestMailAPI.cls.xml	(.../TestMailAPI.cls.xml)	(revision 1592)
@@ -46,26 +46,41 @@
 De method GeefMailMessage() is verplaatst van TECH.Mail.Mail naar TECH.Mail.impl.SMTPVerzender 
 Dus deze test hoort eigenlijk thuis in een aparte UT-klasse</Description>
 <Implementation><![CDATA[
-	#dim Mail As TECH.Mail.Mail = ##class(TECH.Context).Instance().GeefMailAPI().MaakNieuwMail()
+	Set Mail = ##class(TECH.Mail.impl.Mail).%New()
+	Do Mail.ZetOnderwerp("Unittest onderwerp")
+	Do Mail.VoegToeOntvanger("ut@testdomein.ut")
+	Do Mail.ZetInhoud("Een lijn als inhoud van de mail")
+	
 	Set Verzender = ##class(TECH.Mail.impl.SMTPVerzender).%New()
+	#dim Message As %Net.MailMessage = Verzender.GeefMailMessage(Mail)   ; Deze method is (Quick-and-dirty) PUBLIC gemaakt om te kunnen unittesten.  Ooohhhh :-( 
+
+	Do $$$AssertContains(Message.To.GetAt(1),"@vanhoecke.be")
+	Do $$$AssertEquals(Message.TextData.ReadLine(),"Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)")
+	Do $$$AssertEquals(Message.TextData.ReadLine(),"  To  : ut@testdomein.ut")
+	Do $$$AssertEquals(Message.TextData.ReadLine(),"============================================================")
+	Do $$$AssertEquals(Message.TextData.ReadLine(),"")
+	Do $$$AssertEquals(Message.TextData.ReadLine(),"Een lijn als inhoud van de mail")
+	Do $$$AssertEquals(Message.TextData.ReadLine(),"")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefMailMessageVanDeSMTPVerzenderKlasseZonderMailOmleiden">
+<Description>
+Als vervolg op de vorige mail.
+Deze is toegevoegd na het ontdekken van bug "lege mail-inhoud bij VHintra bestellingen" (d.d. 25/07/2014)</Description>
+<Implementation><![CDATA[
+	Set Mail = ##class(TECH.Mail.impl.Mail).%New()
+	Do Mail.ZetOmleiden(0)
+	Do Mail.ZetOnderwerp("Unittest onderwerp")
+	Do Mail.VoegToeOntvanger("ut@testdomein.ut")
+	Do Mail.ZetInhoud("Een lijn als inhoud van de mail")
 	
-	If $$$AssertTrue($IsObject(Mail),"Object Mail is aangemaakt."){
-		Do $$$AssertEquals(Mail.%ClassName(1),"TECH.Mail.impl.Mail")	
-		
-		Do Mail.ZetOnderwerp("Unittest onderwerp")
-		Do Mail.VoegToeOntvanger("ut@vanhoecke.be")
-		Do Mail.ZetInhoud("Een lijn als inhoud van de mail")
-		
-		#dim Message As %Net.MailMessage = Verzender.GeefMailMessage(Mail)   ; Deze method is (Quick-and-dirty) PUBLIC gemaakt om te kunnen unittesten.  Ooohhhh :-( 
-		Do $$$AssertEquals(Message.Subject,"["_$$$Server_"]"_" Unittest onderwerp")
-		Do $$$AssertContains(Message.To.GetAt(1),"@vanhoecke.be")
-		Do $$$AssertEquals(Message.TextData.ReadLine(),"Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)")
-		Do $$$AssertEquals(Message.TextData.ReadLine(),"  To  : ut@vanhoecke.be")
-		Do $$$AssertEquals(Message.TextData.ReadLine(),"============================================================")
-		Do $$$AssertEquals(Message.TextData.ReadLine(),"")
-		Do $$$AssertEquals(Message.TextData.ReadLine(),"Een lijn als inhoud van de mail")
-		Do $$$AssertEquals(Message.TextData.ReadLine(),"")
-	}
+	Set Verzender = ##class(TECH.Mail.impl.SMTPVerzender).%New()
+	#dim Message As %Net.MailMessage = Verzender.GeefMailMessage(Mail)   ; Deze method is (Quick-and-dirty) PUBLIC gemaakt om te kunnen unittesten.  Ooohhhh :-( 
+
+	Do $$$AssertEquals(Message.To.GetAt(1),"ut@testdomein.ut")
+	Do $$$AssertEquals(Message.TextData.ReadLine(),"Een lijn als inhoud van de mail")
+	Do $$$AssertEquals(Message.TextData.ReadLine(),"")
 ]]></Implementation>
 </Method>