Index: TECH/Mail/impl/MailAdresAanpasser.cls.xml
===================================================================
diff -u
--- TECH/Mail/impl/MailAdresAanpasser.cls.xml	(revision 0)
+++ TECH/Mail/impl/MailAdresAanpasser.cls.xml	(revision 742)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Mail.impl.MailAdresAanpasser">
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefVolledigVanhoeckeBeAdres">
+<FormalSpec>EmailAdres:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If ($L(EmailAdres))&&(EmailAdres'["@") {
+		Set EmailAdres=EmailAdres_"@vanhoecke.be"
+	}
+	Quit EmailAdres
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Mail/impl/MailMessageAanpasser.cls.xml
===================================================================
diff -u
--- TECH/Mail/impl/MailMessageAanpasser.cls.xml	(revision 0)
+++ TECH/Mail/impl/MailMessageAanpasser.cls.xml	(revision 742)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Mail.impl.MailMessageAanpasser">
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="AdresAanpasser">
+<Type>TECH.Mail.impl.MailAdresAanpasser</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AdresAanpasser:TECH.Mail.impl.MailAdresAanpasser=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AdresAanpasser = ##class(TECH.Mail.impl.MailAdresAanpasser).%New()   ; $$$Inject(AdresAanpasser,##class(TECH.Mail.impl.MailAdresAanpasser).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakEmailAdressenAtVanhoeckeBe">
+<FormalSpec><![CDATA[&MailMessage:%Net.MailMessage]]></FormalSpec>
+<Implementation><![CDATA[
+	Set MailMessage.From = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(MailMessage.From)
+	Set MailMessage.Sender = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(MailMessage.Sender)
+	Set MailMessage.ReplyTo = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(MailMessage.ReplyTo)
+	Do ..MaakRecipientsAtVanhoeckeBe(MailMessage.To)
+	Do ..MaakRecipientsAtVanhoeckeBe(MailMessage.Cc)
+	Do ..MaakRecipientsAtVanhoeckeBe(MailMessage.Bcc)
+]]></Implementation>
+</Method>
+
+<Method name="MaakRecipientsAtVanhoeckeBe">
+<FormalSpec><![CDATA[&ListOfRecipients:%ListOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $IsObject(ListOfRecipients) {
+		Set Iterator = ##class(TECH.ListIterator).%New(ListOfRecipients)
+		While (Iterator.HasNext()) {
+			Set Recipient = Iterator.Next()
+			Set Key = Iterator.Key()
+			Set Recipient = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(Recipient)
+			Do ListOfRecipients.SetAt(Recipient,Key)
+		}
+	}
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+</Export>