Index: vhLib/Mail.mac.rou
===================================================================
diff -u -r3115 -r36892
--- vhLib/Mail.mac.rou	(.../Mail.mac.rou)	(revision 3115)
+++ vhLib/Mail.mac.rou	(.../Mail.mac.rou)	(revision 36892)
@@ -100,43 +100,15 @@
 	
 	Quit:($$$ISERR(Status)) Status
 	
-	Do MaakEmailAdressenAtVanhoeckeBe(MM)   ; Added by WimV on 11/10/2011 
+	// De EmailAdressen controleren op aanwezigheid van het "@"-teken, en indien nodig aanvullen met "@vanhoecke.be" 
+	//   Bvb als alleen initialen zijn opgegeven, dit is geen geldig email-adres
+	Do ##class(TECH.Mail.impl.MailMessageAanpasser).%New().MaakEmailAdressenAtVanhoeckeBe(MM)
 	
 	Set Status=SMTP.Send(MM)
 	do MM.%Close()
 	do SMTP.%Close()
 	Quit Status
  
-MaakEmailAdressenAtVanhoeckeBe(MailMessage)
-	// De EmailAdressen controleren op aanwezigheid van het "@"-teken, en indien nodig aanvullen met "@vanhoecke.be" 
-	//   Bvb als alleen initialen zijn opgegeven, dit is geen geldig email-adres
-	Do MaakRecipientsAtVanhoeckeBe(MailMessage.To)
-	Do MaakRecipientsAtVanhoeckeBe(MailMessage.Cc)
-	Do MaakRecipientsAtVanhoeckeBe(MailMessage.Bcc)
-	Set MailMessage.From=$$GeefVolledigEmailAdres(MailMessage.From)
-	Set MailMessage.Sender=$$GeefVolledigEmailAdres(MailMessage.Sender)
-	Set MailMessage.ReplyTo=$$GeefVolledigEmailAdres(MailMessage.ReplyTo)
-	Quit
- 
-MaakRecipientsAtVanhoeckeBe(ListOfRecipients)
-	New i,Recipient,IsEmailAdresGewijzigd
-	If $IsObject(ListOfRecipients) {
-		For i=1:1:ListOfRecipients.Count() {
-			Set Recipient=$$GeefVolledigEmailAdres(ListOfRecipients.GetAt(i), .IsEmailAdresGewijzigd)
-			Do:(IsEmailAdresGewijzigd) ListOfRecipients.SetAt(Recipient,i)
-		}
-	}
-	Quit
- 
-GeefVolledigEmailAdres(EmailAdres, IsEmailAdresGewijzigd)   ; IsEmailAdresGewijzigd als .local doorgeven 
-	Set IsEmailAdresGewijzigd=0
-	If ($L(EmailAdres))&&(EmailAdres'["@") {
-		Set EmailAdres=EmailAdres_"@vanhoecke.be"
-		Set IsEmailAdresGewijzigd=1
-	}
-	Quit EmailAdres
-	
- 
 GeefRecipientsInfo(MailMessage)
 	#define ListHasItems(%v)   ($IsObject(%v))&&(%v.Count()>0)
 	New RecipientsInfo