Multiple attachments via codeunit 397 (mail) : again...

Hy,

if checked the functionality with up to 100 attachments.
The solution of the problem is very simple, if you know how.

1) Create a new Function in codeunit 397 identical to the function NewMessage, let's call it "NewMessageMultipleAttachments".
2) Replace the field "AttachFileName" by an array called e.g. "AttachFileNames".
3) Assign number of dimensions you need.
(The calling function must fit with the number of dimensions used here)
4) Modify the part

IF AttachFileName <> '' THEN BEGIN
      BSTRConverterAttachFileName.ResetBSTR;
      BSTRConverterAttachFileName.AppendNextStringPortion(AttachFileName);
      OAttachments := OSendMail.Attachments;
      OAttachment := OAttachments.Add(BSTRConverterAttachFileName);
    END;

like this

FOR FileNameCounter:= 1 TO ARRAYLEN(AttachFileNames) DO BEGIN
     IF AttachFileNames[FileNameCounter] <> '' THEN BEGIN
       BSTRConverterAttachFileName.ResetBSTR;
       BSTRConverterAttachFileName.AppendNextStringPortion(AttachFileNames[FileNameCounter]);
       OAttachments := OSendMail.Attachments;
       OAttachment := OAttachments.Add(BSTRConverterAttachFileName);
     END;
   END;

5) At least you have do define and fill up an array in your mail-calling function.

This should work fine

I hope, this tiny little code will help you and others to send multiple attachments from MS Dynamics.