[Event Requet] Table 60 "Document Sending Profile".TrySendToEMail

[fridrichovsky]

Why do you need this change?

We need skip sending email and we choosed place for option chande ShowDialog variable and we plan change e-mait attachment do new custom value that will create file in temp folder for SharePoint. True is that I can for this use event OnBeforeTrySendToEMail. I missed this event.

Describe the request

Please add new parameter to event

    procedure TrySendToEMail(ReportUsage: Integer; RecordVariant: Variant; DocumentNoFieldNo: Integer; DocName: Text[150]; CustomerFieldNo: Integer; ShowDialog: Boolean)
    var
        Handled: Boolean;
        IsCustomer: Boolean;
    begin
        IsCustomer := true;
        //--------------------------- OnBeforeTrySendToEMail:BEGIN
        //OnBeforeTrySendToEMail(ReportUsage, RecordVariant, DocumentNoFieldNo, DocName, CustomerFieldNo, ShowDialog, Handled, IsCustomer);
        OnBeforeTrySendToEMail(ReportUsage, RecordVariant, DocumentNoFieldNo, DocName, CustomerFieldNo, ShowDialog, Handled, IsCustomer, Rec);
        //--------------------------- OnBeforeTrySendToEMail:END
        if Handled then
            exit;

        if ShowDialog then
            "E-Mail" := "E-Mail"::"Yes (Prompt for Settings)"
        else
            "E-Mail" := "E-Mail"::"Yes (Use Default Settings)";

        "E-Mail Attachment" := "E-Mail Attachment"::PDF;

        TrySendToEMailGroupedMultipleSelection(
            "Report Selection Usage".FromInteger(ReportUsage), RecordVariant, DocumentNoFieldNo, DocName, CustomerFieldNo, IsCustomer);
    end;


    [IntegrationEvent(false, false)]
    //--------------------------- OnBeforeTrySendToEMail:BEGIN
    //local procedure OnBeforeTrySendToEMail(ReportUsage: Integer; RecordVariant: Variant; DocumentNoFieldNo: Integer; DocName: Text[150]; CustomerFieldNo: Integer; var ShowDialog: Boolean; var Handled: Boolean; var IsCustomer: Boolean)
    local procedure OnBeforeTrySendToEMail(ReportUsage: Integer; RecordVariant: Variant; DocumentNoFieldNo: Integer; DocName: Text[150]; CustomerFieldNo: Integer; var ShowDialog: Boolean; var Handled: Boolean; var IsCustomer: Boolean;var DocumentSendingProfile: Record "Document Sending Profile")
    //--------------------------- OnBeforeTrySendToEMail:END
    begin
    end;

Internal work item: AB#624768

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add parameter var DocumentSendingProfile: Record "Document Sending Profile" to the existing event OnBeforeTrySendToEMail to provide access to the Document Sending Profile record for customization purposes.

Location in TrySendToEMail procedure (around line 568):

procedure TrySendToEMail(ReportUsage: Integer; RecordVariant: Variant; DocumentNoFieldNo: Integer; DocName: Text[150]; CustomerFieldNo: Integer; ShowDialog: Boolean)
var
    Handled: Boolean;
    IsCustomer: Boolean;
begin
    IsCustomer := true;
    OnBeforeTrySendToEMail(ReportUsage, RecordVariant, DocumentNoFieldNo, DocName, CustomerFieldNo, ShowDialog, Handled, IsCustomer, Rec);
    if Handled then
        exit;

    if ShowDialog then
        "E-Mail" := "E-Mail"::"Yes (Prompt for Settings)"
    else
        "E-Mail" := "E-Mail"::"Yes (Use Default Settings)";

    "E-Mail Attachment" := "E-Mail Attachment"::PDF;

    TrySendToEMailGroupedMultipleSelection(
        "Report Selection Usage".FromInteger(ReportUsage), RecordVariant, DocumentNoFieldNo, DocName, CustomerFieldNo, IsCustomer);
end;

Event Publisher (update existing event around line 1111):

[IntegrationEvent(false, false)]
local procedure OnBeforeTrySendToEMail(ReportUsage: Integer; RecordVariant: Variant; DocumentNoFieldNo: Integer; DocName: Text[150]; CustomerFieldNo: Integer; var ShowDialog: Boolean; var Handled: Boolean; var IsCustomer: Boolean; var DocumentSendingProfile: Record "Document Sending Profile")
begin
end;

---

File: DocumentSendingProfile.Table.al

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 47589.