Index: FaxMail2.mac.rou
===================================================================
diff -u -r49940 -r58757
--- FaxMail2.mac.rou	(.../FaxMail2.mac.rou)	(revision 49940)
+++ FaxMail2.mac.rou	(.../FaxMail2.mac.rou)	(revision 58757)
@@ -488,7 +488,8 @@
  . . . Set $E(ToMail)=""
  . . . Set ToMail=$$USERNAME^vhUSER(ToMail,"@")
  . . Quit:ToMail=""
- . . Set DefData("TextId")=$$CheckTextId^FLOWBON5(DocNum)
+ . . Set DefData("TextId")=$$CheckTextId^FLOWBON5(DocNum) // Dit is de ID van het type voorblad van de e-mail leveringsbon.
+ . . Quit:DefData("TextId")'="S" // Want dan is het een consument en die willen we liever manueel gepaster mailen.
  . . Set DefData("em")=ToMail,DefData("BackGround")=1,DefData("Van")="info@vanhoecke.be"
  . . Do LEVERBON(.DocNum,.TextId,"Mail",.DefData)
  Quit