[Extensibility] [E-Document] Publisher in "E-Document Mailing"

[GOB-Wijaya]

BC Idea Link

microsoft/ALAppExtensions#30234

Description

In Codeunit 6188 "E-Document Emailing"

Allow update through publisher on the statement if the TempBlobList is set as attachments separately or as .zip archive.
In our case, we would like to create a .zip archive based on the document sending profile instead of the number of TempBlobs.

We would like to implement these changes

New Publisher

 [IntegrationEvent(false, false)]
    local procedure OnBeforeCreateAttachmentsBlob(
        var TempBlobList: Codeunit "Temp Blob List";
        var ExtensionList: List of [Text];
        DocumentSendingProfile: Record "Document Sending Profile";
        ReportUsage: Enum "Report Selection Usage";
        RecordVariant: Variant;
        DocNo: Code[20];
        DocName: Text[150];
        ToCust: Code[20];
        var AttachmentFileName: Text[250];
        var AttachmentFileExtension: Text;
        var TempBlob: Codeunit "Temp Blob";
        var IsHandled: Boolean)
    begin
    end;

Code placement

local procedure CreateAttachmentsBlob(
        DocumentSendingProfile: Record "Document Sending Profile";
        ReportUsage: Enum "Report Selection Usage";
        RecordVariant: Variant;
        DocNo: Code[20];
        DocName: Text[150];
        ToCust: Code[20];
        var AttachmentFileName: Text[250];
        var AttachmentFileExtension: Text): Codeunit "Temp Blob"
    var
        DataCompression: Codeunit "Data Compression";
        TempBlob: Codeunit "Temp Blob";
        IsHandled: Boolean; // new line
    begin
        OnBeforeCreateAttachmentsBlob(GlobalTempBlobList, GlobalExtensionList, DocumentSendingProfile, ReportUsage, RecordVariant, DocNo, DocName, ToCust, AttachmentFileName, AttachmentFileExtension, TempBlob, IsHandled); // new line
        If IsHandled then // new line
            exit(TempBlob); // new line

        if GlobalTempBlobList.IsEmpty() then
            exit(TempBlob);

        AttachmentFileName := CreateAttachmentName(DocNo, DocName);
        if (GlobalTempBlobList.Count() = 1) and (DocumentSendingProfile."E-Mail Attachment" = Enum::"Document Sending Profile Attachment Type"::"E-Document")
        then begin
            GlobalTempBlobList.Get(1, TempBlob);
            AttachmentFileExtension := GlobalExtensionList.Get(1);
        end else begin
            CreateZipArchiveWithEDocAttachments(DataCompression, GlobalTempBlobList, AttachmentFileName);

            if DocumentSendingProfile."E-Mail Attachment" = Enum::"Document Sending Profile Attachment Type"::"PDF & E-Document" then
                AddPdfAttachmentToZipArchive(DataCompression, ReportUsage, RecordVariant, ToCust, AttachmentFileName);

            DataCompression.SaveZipArchive(TempBlob);
            DataCompression.CloseZipArchive();
            AttachmentFileExtension := ZipFileTypeTok;
        end;
        exit(TempBlob);
    end;

I will provide the implementation for this BC Idea

• I will provide the implementation for this BC Idea

[JesperSchulz]

🤖 AI Triage Assessment

⚠️ Partial triage — enrichment phase failed. Only quality assessment is available.

Verdict	Quality
READY	84/100

Summary: Request to add an extensibility publisher in E-Document Emailing so attachment packaging can be customized based on the document sending profile.

Please try removing and re-adding the ai-triage label to retry full triage.