Index: TECH/Mail/impl/MailAPI.cls.xml
===================================================================
diff -u -r1038 -r1040
--- TECH/Mail/impl/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 1038)
+++ TECH/Mail/impl/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 1040)
@@ -24,8 +24,11 @@
 	Do ..GeefVerzender().Verzend(Mail)
 	
 	Try {
-		#dim Inhoud As %String = Mail.GeefInhoud().Read(32000)
-		#dim Melding As %String = "Ontvangers: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(),",")_$C(13,10)
+		#dim MailInhoud As %Stream = Mail.GeefInhoud()
+		Do MailInhoud.Rewind()
+		#dim Inhoud As %String = MailInhoud.Read(32000)
+		#dim Melding As %String = "Titel "_Mail.GeefOnderwerp()_$C(13,10)
+		Set Melding = Melding_"Ontvangers: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(),",")_$C(13,10)
 		Set Melding = Melding_"Verzender: "_Mail.GeefVerzender()_$C(13,10)
 		Set Melding = Melding_"Inhoud: "_Inhoud		
 		Do ##class(vhLib.Logger).%New().Info("VestuurMail",Melding)