Index: vhLib/Mail.mac.rou
===================================================================
diff -u -r383 -r408
--- vhLib/Mail.mac.rou	(.../Mail.mac.rou)	(revision 383)
+++ vhLib/Mail.mac.rou	(.../Mail.mac.rou)	(revision 408)
@@ -85,6 +85,10 @@
 		Do MM.TextData.WriteLine()
 	}
  
+	If $G(IsHTML) {
+		Do smmVervangBRMetSlash(.Body,BodyIsStream)
+	}
+	
 	If BodyIsStream Do
 	. Do MM.TextData.CopyFrom(Body)
 	Else  Do
@@ -110,6 +114,17 @@
 	do MM.%Close()
 	do SMTP.%Close()
 	Quit Status
+
+
+	// In MIME-mails met html-formattering moeten de "Break Rule"-tags zonder slash ("/") geschreven worden 
+smmVervangBRMetSlash(Body,BodyIsStream)   ; Body als .Local doorgeven 
+	If (BodyIsStream) { 
+		; Not implemented. 
+	}
+	Else { 
+		Set Body=$Replace(Body,"<BR/>","<BR>", , ,1)
+	}
+	Quit
  
 smmVoegToeRecipientsAanList(RecipientsList, ToeTeVoegenRecipients, Delimiter = ";")
 	If $L(ToeTeVoegenRecipients,Delimiter)>1 {