Index: cQ4.mac.rou
===================================================================
diff -u -r43424 -r54253
--- cQ4.mac.rou	(.../cQ4.mac.rou)	(revision 43424)
+++ cQ4.mac.rou	(.../cQ4.mac.rou)	(revision 54253)
@@ -39,9 +39,9 @@
 EXECZ	Q
 	;
 MAIL(FROM,TO,SUBJECT,DATA,ATTACH)  ;Send message by e-mail
-	N I,M,S,STAT
+	N I,M,S,STAT,Exception
 	S S=##class(%Net.SMTP).%New()		;Make SMTP-object and connect to a server
-	S S.smtpserver="mail.data-m.be"		;address of mailserver
+	S S.smtpserver = "relay.vanhoecke.be"
 	S M=##class(%Net.MailMessage).%New()	;Make a message-object
 	S M.From=FROM
 	F I=1:1:$L(TO,";") D M.To.Insert($P(TO,";",I))