SMTP Mail codeunit with SAVEASPDF

Alex_Chow

Hi,

I've created a process to automatically send an e-mail to each customer ship-to. The e-mail also has a report that I've created using the SAVEASPDF function so the report can be sent as an attachment.

I can send the e-mail without problems, but I can't attach the pdf file. The code I have written so far is:

ToFile := DELCHR(ShiptoAddress."Customer No." + FORMAT(WORKDATE),'=','/\:.,') + '.pdf';
FileName := TEMPORARYPATH + ToFile;
REPORT.SAVEASPDF(REPORT::"My Report",FileName,ShiptoAddress);
ToFile := ReportHelper.DownloadToClientFileName(FileName, ToFile);

<The code to write the send to, body, etc>

Mail.AddAttachment(ToFile);
Mail.Send();

The ReportHelper codeunit is from Claus' blog found here:
http://blogs.msdn.com/b/nav-reporting/a ... -2009.aspx

I checked codeunit 397 (Mail) that the blog is using. It seems to convert the link to the file with this code in the codeunit:

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

Does anyone know how I can add the attachment using SAVEASPDF using the SMTP Mail (codeunit 400) codeunit?

ara3n

I thought the SMTP automation is created at server, so you don't need to upload the pdf file. do everything at the server.

Alex_Chow

ara3n wrote:

I thought the SMTP automation is created at server, so you don't need to upload the pdf file. do everything at the server.

So do you mean:

ToFile := DELCHR(ShiptoAddress."Customer No." + FORMAT(WORKDATE),'=','/\:.,') + '.pdf';
FileName := TEMPORARYPATH + ToFile;
REPORT.SAVEASPDF(REPORT::"My Report",FileName,ShiptoAddress);

<The code to write the send to, body, etc>

Mail.AddAttachment(FileName);
Mail.Send();

Something like that?

Alex_Chow

Hmm... Doing that, I get the error saying that the caller does not have permission or the folder is read only.

Any suggestions?

ara3n

Give the service tier permission to the temp path, or make the user a local admin.

Alex_Chow

ara3n wrote:

Give the service tier permission to the temp path, or make the user a local admin.

For a Dynamics NAV MVP, you're pretty smart!

ara3n

hmmmm.