diff --git a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al
index e275ad0ac1..6f29748f7e 100644
--- a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al	
+++ b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al	
@@ -746,7 +746,11 @@ codeunit 8900 "Email Impl"
     var
         AllObj: Record AllObj;
         SourceRecordRef: RecordRef;
+        Handled: Boolean;
     begin
+OnBeforeFilterRemovedSourceRecords(EmailRelatedRecord, Handled);
+        if Handled then
+            exit;
         repeat
             if AllObj.Get(AllObj."Object Type"::Table, EmailRelatedRecord."Table Id") then begin
                 SourceRecordRef.Open(EmailRelatedRecord."Table Id");
@@ -1112,5 +1116,10 @@ codeunit 8900 "Email Impl"
 
         GlobalLanguage(CurrentLanguage);
     end;
+
+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeFilterRemovedSourceRecords(var EmailRelatedRecord: Record "Email Related Record"; var Handled: Boolean)
+    begin
+    end;
     #endregion
 }