Index: Sys/FOP/SubTaskMail.cls.xml
===================================================================
diff -u -r1074 -r1785
--- Sys/FOP/SubTaskMail.cls.xml	(.../SubTaskMail.cls.xml)	(revision 1074)
+++ Sys/FOP/SubTaskMail.cls.xml	(.../SubTaskMail.cls.xml)	(revision 1785)
@@ -7,7 +7,7 @@
 <ClassType>serial</ClassType>
 <IncludeCode>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%SerialObject</Super>
+<Super>BL.Sys.FOP.SubTask</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Aan">
@@ -59,13 +59,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ToString = ""
+	If (..From'="" || (..Aan'="")){	
+		Set StrippedFrom = $TR(..From,"<>","") 
+		Set StrippedAan = $TR($$LCVT^vhLib(..Aan),"<>","") 
+		If (($Length(..CC)>0) && ($LL(..CC) > 0) &&($LG(..CC,1) '= "")){ Set StrippedCC = ", CC: "_$TR($$LCVT^vhLib(..CC),"<>","") }	
+		If (($Length(..BCC)>0) && ($LL(..BCC) > 0) &&($LG(..BCC,1) '= "")){ Set StrippedBCC = ", BCC: "_$TR($$LCVT^vhLib(..BCC),"<>","") }
+		Set ToString = ToString_"Mail : "_StrippedFrom_" -> "_StrippedAan_$G(StrippedCC)_$G(StrippedBCC)
+	}
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>SubTaskMailDefaultData</DefaultData>
 <State>SubTaskMailState</State>
 <StreamLocation>^Sys.FOP.SubTaskMailS</StreamLocation>
 <Data name="SubTaskMailDefaultData">
-<Structure>listnode</Structure>
 <Subscript>"SubTaskMail"</Subscript>
 <Value name="1">
 <Value>Aan</Value>
@@ -81,7 +95,6 @@
 </Value>
 </Data>
 <Data name="SubTaskMailState">
-<Structure>listnode</Structure>
 <Subscript>"Sys.FOP.SubTaskMail"</Subscript>
 <Value name="1">
 <Value>Aan</Value>