Index: TECH/Mail/impl/Mail.cls.xml
===================================================================
diff -u -r1576 -r1577
--- TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1576)
+++ TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1577)
@@ -97,6 +97,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOmleiden">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Omleiden
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeBijlagen">
 <FormalSpec>BijlageLocaties:%ListOfDataTypes</FormalSpec>
 <Implementation><![CDATA[	do ##class(TECH.ListUtils).CopyListOfDataTypes(BijlageLocaties,..Bijlagen)
@@ -150,7 +156,7 @@
 <Implementation><![CDATA[
 	Set ..Onderwerp = Onderwerp
 	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("MiniMail_VoegServerPrefixToe")){
-		Set:($$$UCase(..Onderwerp)'[($$$Server)) ..Onderwerp = "["_$$$Server_"] "_..Onderwerp
+		Set:($$$UCase(..Onderwerp)'[(##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam())) ..Onderwerp = "["_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"] "_..Onderwerp
 	}
 ]]></Implementation>
 </Method>
@@ -213,74 +219,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefMailMessage">
-<ReturnType>%Net.MailMessage</ReturnType>
-<Implementation><![CDATA[
-	set ..MailMessage.From = ..GeefVerzender()
-	set ..MailMessage.To = ..GeefOntvangers()
-	set ..MailMessage.Cc = ..GeefOntvangersCC()
-	set ..MailMessage.Bcc = ..GeefOntvangersBCC()
-	set ..MailMessage.ReplyTo = ..GeefAntwoordenNaar()
-	set ..MailMessage.Subject = ..Onderwerp
-	set ..MailMessage.IsHTML=..IsHTML
-	
-	if ..MailOmleiden() {
-		do ..VoegToeOrigineleInfo()
-		do ..WijzigOrigineleOntvangers()
-		do ..WijzigOrigineleVerzender()
-	}
- 
-	set itBijlagen = ##class(TECH.ListIterator).%New(..Bijlagen)
-	while itBijlagen.HasNext() {
-		#dim Bijlage As %String = itBijlagen.Next()
-		do ..MailMessage.AttachFile(##class(TECH.File).GetDirectory(Bijlage),##class(TECH.File).GetFilename(Bijlage),1)
-	}
-	
-	Quit ..MailMessage
-]]></Implementation>
-</Method>
-
-<Method name="MailOmleiden">
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit (..Omleiden) && (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("vhLib.Mail_RedirectMailToDevelopment"))
-]]></Implementation>
-</Method>
-
-<Method name="WijzigOrigineleVerzender">
-<Private>1</Private>
-<Implementation><![CDATA[	Set ..MailMessage.From = $$$SystemMail("Redirected mail")
-]]></Implementation>
-</Method>
-
-<Method name="WijzigOrigineleOntvangers">
-<Private>1</Private>
-<Implementation><![CDATA[
-	do ..MailMessage.To.Clear()
-	do ..MailMessage.Cc.Clear()
-	do ..MailMessage.Bcc.Clear()
-	
-	#dim RedirectTo As %String
-	#dim GebruikerInitialen As %String =##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
-	If ($$USERID^vhUSER(GebruikerInitialen) '= "") {
-		Set RedirectTo = GebruikerInitialen_"@vanhoecke.be"
-	}Else{
-		Set RedirectTo = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Mail.DefaultRedirectMailAddress")
-	}
-	If $length(RedirectTo) do ..MailMessage.To.Insert(RedirectTo)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeOrigineleInfo">
-<Implementation><![CDATA[
-	set Stream = ##class(%GlobalCharacterStream).%New()
-	do Stream.CopyFrom(..MailMessage.TextData)
-		
-	do ..MailMessage.TextData.Clear()
-	do ..MailMessage.TextData.WriteLine(..GeefOrigineleInfo())
-	do ..MailMessage.TextData.CopyFrom(Stream)
-]]></Implementation>
-</Method>
-
 <Method name="GeefVerzender">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..Verzender
@@ -311,24 +249,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrigineleInfo">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#define ListHasItems(%v)   ($IsObject(%v))&&(%v.Count()>0)
-	#dim RecipientsInfo As %String = "Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)"_$$$CRLF
-	Set:(..MailMessage.From'="") RecipientsInfo=RecipientsInfo_"  From: "_..MailMessage.From_$$$CRLF
-	Set:(..MailMessage.To.Count()>0) RecipientsInfo=RecipientsInfo_"  To  : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.To,", ")_$$$CRLF
-	Set:(..MailMessage.Cc.Count()>0) RecipientsInfo=RecipientsInfo_"  Cc  : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.Cc,", ")_$$$CRLF
-	Set:(..MailMessage.Bcc.Count()>0) RecipientsInfo=RecipientsInfo_"  Bcc : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.Bcc,", ")_$$$CRLF
-	Set RecipientsInfo=RecipientsInfo_"============================================================"_$$$CRLF
-	If ..IsHTML {
-		Set RecipientsInfo=$$$Replace(RecipientsInfo,$$$CRLF,"<BR>")
-		Set RecipientsInfo=RecipientsInfo_"<BR>"
-	}
-	Quit RecipientsInfo
-]]></Implementation>
-</Method>
-
 <Method name="GeefBijlagen">
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[	Quit ..Bijlagen