Index: AXBizTalk/Customer.cls.xml
===================================================================
diff -u -r37787 -r37789
--- AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37787)
+++ AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37789)
@@ -33,6 +33,11 @@
 <Parameter name="MAXLEN" value="50"/>
 </Property>
 
+<Property name="Email">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>CustomerState</State>
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37787 -r37789
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37787)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37789)
@@ -47,6 +47,7 @@
 	
 	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("eenFaxNummer")
 	Do ..Partij.IndienMethodCall("GeefVerkortNummer").DanReturn("7001")
+	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("info@example.com")
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
 	
@@ -55,6 +56,7 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Een toenaam die zeker meer dan 50 karakters lang z")
 	Do $$$AssertEquals(GeconverteerdeKlant.Fax,"eenFaxNummer")
 	Do $$$AssertEquals(GeconverteerdeKlant.VerkortNummer,"7001")
+	Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com")
 ]]></Implementation>
 </Method>
 
Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37787 -r37789
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37787)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37789)
@@ -43,6 +43,7 @@
 	}
 	Set Customer.Fax = Partij.GeefTelefax()
 	Set Customer.VerkortNummer = Partij.GeefVerkortNummer()
+	Set Customer.Email = Partij.GeefEmail()
 	
 	Quit Customer
 ]]></Implementation>