AL code for send email with multiple recipient with zip attachment from sharing path

 To send an email with multiple recipients and a zip attachment from a shared path using AL code in Microsoft Dynamics 365 Business Central, you can modify the previous examples by using the `FileManagement` codeunit to create a zip file of the desired files from the shared path before attaching it to the email. Here's an example:

```AL

PROCEDURE SendEmailWithMultipleRecipientsAndZipAttachmentFromSharedPath@1()

VAR

  EmailMgt@1: Codeunit 400;

  EmailMessage@2: Record 441;

  Recipients@3: Record 442;

  Attachment@4: Record 443;

  FileManagement@5: Codeunit 419;

  TempFolderPath@6: Text[250];

  AttachmentPath@7: Text[250];

  ZipFilePath@8: Text[250];

BEGIN

  EmailMessage.INIT;

  EmailMessage.Subject := 'Test Email with Zip Attachment';

  EmailMessage.Body := 'This is a test email sent to multiple recipients with a zip attachment.';

  

  Recipients.INIT;

  Recipients."E-mail" := 'recipient1@example.com';

  Recipients.Insert;

  Recipients."E-mail" := 'recipient2@example.com';

  Recipients.Insert;

  Recipients."E-mail" := 'recipient3@example.com';

  

  // Shared path of the files to be zipped

  AttachmentPath := '\\server\share\files\';

  

  // Create a temporary folder to store the zip file

  TempFolderPath := FileManagement.GetTempPath;

  FileManagement.CreateDirectory(TempFolderPath);

  

  // Zip file path

  ZipFilePath := TempFolderPath + 'attachments.zip';

  

  // Create a zip file of the desired files from the shared path

  FileManagement.CreateZip(ZipFilePath, AttachmentPath, TRUE);

  

  Attachment.INIT;

  Attachment."File Name" := ZipFilePath;

  Attachment."Display Name" := 'Attachments.zip';

  

  EmailMgt.AddAttachmentFromFile(EmailMessage, Attachment."File Name", Attachment."Display Name");

  

  EmailMgt.Send(EmailMessage, Recipients);

  

  // Delete temporary folder and its contents

  FileManagement.DeleteDirectory(TempFolderPath, TRUE);

END;

```

In this example, after initializing the email message and setting the subject and body, we create a temporary folder using the `GetTempPath` and `CreateDirectory` methods of the `FileManagement` codeunit.

Next, we set the shared path of the files to be zipped in the `AttachmentPath` variable. We then define the path for the zip file to be created, `ZipFilePath`, which is a combination of the temporary folder path and the desired zip file name.

We use the `CreateZip` method of the `FileManagement` codeunit to create a zip file of the desired files from the shared path.

After that, we initialize the `Attachment` record, set the file name as `ZipFilePath`, and provide a display name for the zip file.

We use the `AddAttachmentFromFile` function of the `EmailMgt` codeunit to attach the zip file to the email message.

Finally, we send the email using the `Send` function of the `EmailMgt` codeunit. After sending the email, we delete the temporary folder and its contents using the `DeleteDirectory` method of the `FileManagement` codeunit.

Ensure that the shared path is accessible from the server running Business Central and that the necessary permissions are set for accessing the shared folder.