Index: FaxMail2.mac.rou =================================================================== diff -u -r53369 -r58753 --- FaxMail2.mac.rou (.../FaxMail2.mac.rou) (revision 53369) +++ FaxMail2.mac.rou (.../FaxMail2.mac.rou) (revision 58753) @@ -489,6 +489,7 @@ . . . Set ToMail=$$USERNAME^vhUSER(ToMail,"@") . . Quit:ToMail="" . . 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 ##class(vhLib.Logger).%New("FaxMail2").Debug("Mail Leveringsbon naar klant","Leveringsbon='"_DocNum_"', To='"_DefData("em")_"', Type voorblad='"_DefData("TextId")_"'.") . . Do LEVERBON(.DocNum,.TextId,"Mail",.DefData)