Index: TECH/Mail/impl/MailAPI.cls.xml
===================================================================
diff -u -r919 -r1038
--- TECH/Mail/impl/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 919)
+++ TECH/Mail/impl/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 1038)
@@ -20,7 +20,18 @@
 
 <Method name="VerstuurMail">
 <FormalSpec>Mail:TECH.Mail.Mail</FormalSpec>
-<Implementation><![CDATA[	Do ..GeefVerzender().Verzend(Mail)
+<Implementation><![CDATA[
+	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)
+		Set Melding = Melding_"Verzender: "_Mail.GeefVerzender()_$C(13,10)
+		Set Melding = Melding_"Inhoud: "_Inhoud		
+		Do ##class(vhLib.Logger).%New().Info("VestuurMail",Melding)
+	}Catch{
+		Do ##class(vhLib.Logger).%New().Info("VestuurMail","Er is een mail vestuurd, maar inhoud kon niet gelogd worden.")
+	}
 ]]></Implementation>
 </Method>