[Email] Fix OnBeforeGetEmailAttachmentsByEmailScenarios

src/System Application/App/Email/src/Email/Email.Codeunit.al

@@ -705,9 +705,21 @@ codeunit 8901 Email
     /// </summary>
     /// <param name="EmailScenarioAttachments">The record to add filters to.</param>
     [IntegrationEvent(false, false)]
+    internal procedure OnBeforeGetEmailAttachments(var EmailScenarioAttachments: Record "Email Scenario Attachments")
+    begin
+    end;
+
+#if not CLEAN27
+    /// <summary>
+    /// Integration event that allows adding filters to the Email Scenario Attachments before they are retrieved.
+    /// </summary>
+    /// <param name="EmailScenarioAttachments">The record to add filters to.</param>
+    [IntegrationEvent(false, false)]
+    [Obsolete('This event is being removed. Use OnBeforeGetEmailAttachments instead.', '27.0')]
     internal procedure OnBeforeGetEmailAttachmentsByEmailScenarios(EmailScenarioAttachments: Record "Email Scenario Attachments")
     begin
     end;
+#endif
 
     #endregion
 

src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachImpl.Codeunit.al

@@ -24,7 +24,12 @@ codeunit 8902 "Email Scenario Attach Impl."
         EmailScenarioAttachments: Record "Email Scenario Attachments";
         Email: Codeunit Email;
     begin
+        Email.OnBeforeGetEmailAttachments(EmailScenarioAttachments);
+#if not CLEAN27
+#pragma warning disable AL0432
         Email.OnBeforeGetEmailAttachmentsByEmailScenarios(EmailScenarioAttachments);
+#pragma warning restore AL0432
+#endif
         if EmailScenario <> 0 then
             EmailScenarioAttachments.SetRange(Scenario, Enum::"Email Scenario".FromInteger(EmailScenario));