Index: AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u -r49463 -r50260
--- AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49463)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 50260)
@@ -66,23 +66,25 @@
 <Method name="VerzendMeldingGeblokkeerdeOrderLijnen">
 <FormalSpec><![CDATA[&Order:DOM.VKP.Order]]></FormalSpec>
 <Implementation><![CDATA[
-	Try {
-		If $$$HasLength(..GeblokkeerdeOrderLijnenTekst) {
-			#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Order.GeefKlantID())
-			#dim Titel As %String = ##class(TECH.StringUtils).BuildText("Voor order '{0}' van klant '{1}' met KlantId '{2}' zijn er orderlijnen geblokkeerd.", Order.GeefID(), Klant.GeefNaam(), Klant.GeefID())
-			
-			#dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Voor klant '{0}' met KlantId '{1}' ", Klant.GeefNaam(), Klant.GeefID())
-			Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("is er op datum en tijd {0} ", ..DateTimeAPI.CurrentTimeStamp()) 
-			Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("een order '{0}' geïmporteerd van Ax naar admin " _$$$CRLF, Order.GeefID()) 
-			Set Inhoud = Inhoud _"Dit wil zeggen dat de orderlijnen reeds klaar staan voor picking of in verwerking zijn bij productie " 
-			Set Inhoud = Inhoud _"en er geen update uitgevoerd wordt op deze lijnen." _$$$CRLF 
-			Set Inhoud = Inhoud _"(Andere orderlijnen van dit order worden mogelijks wel bijgewerkt.)" _$$$CRLF _$$$CRLF
+	If $IsObject(Order) {
+		Try {
+			If $$$HasLength(..GeblokkeerdeOrderLijnenTekst) {
+				#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Order.GeefKlantID())
+				#dim Titel As %String = ##class(TECH.StringUtils).BuildText("Voor order '{0}' van klant '{1}' met KlantId '{2}' zijn er orderlijnen geblokkeerd.", Order.GeefID(), Klant.GeefNaam(), Klant.GeefID())
+				
+				#dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Voor klant '{0}' met KlantId '{1}' ", Klant.GeefNaam(), Klant.GeefID())
+				Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("is er op datum en tijd {0} ", ..DateTimeAPI.CurrentTimeStamp()) 
+				Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("een order '{0}' geïmporteerd van Ax naar admin " _$$$CRLF, Order.GeefID()) 
+				Set Inhoud = Inhoud _"Dit wil zeggen dat de orderlijnen reeds klaar staan voor picking of in verwerking zijn bij productie " 
+				Set Inhoud = Inhoud _"en er geen update uitgevoerd wordt op deze lijnen." _$$$CRLF 
+				Set Inhoud = Inhoud _"(Andere orderlijnen van dit order worden mogelijks wel bijgewerkt.)" _$$$CRLF _$$$CRLF
 
-			Do ..Verzend(Klant, Titel, Inhoud _..GeblokkeerdeOrderLijnenTekst)
+				Do ..Verzend(Klant, Titel, Inhoud _..GeblokkeerdeOrderLijnenTekst)
+			}
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ..Logger.Warning("Melding niet verzonden", "Melding geblokkeerde lijnen voor OrderID '" _Order.GeefID() _"' kon niet verzonden worden. " _Exception.ToString())
 		}
-	} Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ..Logger.Warning("Melding niet verzonden", "Melding geblokkeerde lijnen voor OrderID '" _Order.GeefID() _"' kon niet verzonden worden. " _Exception.ToString())
 	}
 ]]></Implementation>
 </Method>