Error in document sending thrugh Email

kmkaot

Dear friends,

I am not getting results for sending a documents as attachment in email.

can you help please...

---

SMTPsetup.GET;
SenderName:=SMTPsetup."Email sender Name";
SenderAddress:=SMTPsetup."Email sender email";
Recipients:=vendorRec."E-Mail"+';'+SMTPsetup."Manager Email";

kSubject:="No."+' PO for '+FORMAT(Amount);
kBody:=' ';
Tofile := Name;
Tofile := "No."+'.pdf';


FileAndPathName := SMTPsetup."Path to Save Report" + Tofile;

FileAndPathName:=CONVERTSTR(FileAndPathName,'\','/');

FileName:=FileAndPathName;
WHILE STRPOS(FileName,'\') > 0 DO
FileName := COPYSTR(FileName, STRPOS(FileName,'\') +1);

CurrPage.SETSELECTIONFILTER(Rec);
REPORT.SAVEASPDF(405, FileName, Rec);

CLEAR(email);
email.CreateMessage(Recipients,'','',kSubject,kBody,FALSE,FALSE);
email.AddBodyline(' Dear Sir/Madam');
email.AddBodyline('<BR><BR>');
email.AddBodyline(' PO Document '+"No."+' '+"Pay-to Name"+' approved ');
email.AddBodyline('<BR><BR>');
email.AddBodyline('Operations');
email.AddBodyline('<BR><BR>');
email.AddBodyline('My Company');
email.AttachFile(FileName);
MESSAGE(FileName);
email.Send;

---

Pleasee..

kris

zohaibu95@hotmail.com

You did not get the VendorRec.

You have to do like

CLEAR(VendorRec);
VendorRec.SETCURRENTKEY("No.");
VendorRec.GET('some vendor');

kmkaot

This code is already there. I did not show all.
Do we require MS outlook on Server

Warm regards
Krish

vaprog

kmkaot wrote: »

Do we require MS outlook on Server

No, on the client.

What do you do with the path? why do you first prepend it, then chop it off again before you use it?

Without a path, I do not know if SAVEASPDF and email.AttachFile assume the same path. better specify the path. Make sure that SMTPsetup."Path to Save Report" ends with a (back)slash.

Where did you look for results? Look in your outbox and in sent items.
Changing the ShowNewMailDialog parameter to true in email.CreateMessage while developping might also help to verify everything.

rehansatti

Hi Kamkaot,
Which version of NAV are you using? I have developed a custom functionality of sending Email in batch for posted documents. I used the system generated path as follows. May be this could help you.
SendReport()
{
ServerAttachmentFilePath := GenerateReport(HeaderDoc,ReportID,CustomReportSelection);
SendAttachment(SalesDocumentNo,Customer."No.",ServerAttachmentFilePath,DocumentType,SendTo,CustomReportSelection);
}

GenerateReport()
{
IF CustomReportLayout.GET(CustomReportSelection."Custom Report Layout ID") THEN BEGIN
ReportLayoutSelection.SetTempLayoutSelected(CustomReportLayout.ID);
REPORT.RUNMODAL(CustomReportSelection."Report ID",NOT HideDialog,FALSE,HeaderDoc);
ReportLayoutSelection.SetTempLayoutSelected(0);
END ELSE
IF NOT REPORT.SAVEASPDF(ReportID,ServerAttachmentFilePath,HeaderDoc) THEN
ERROR(ServerSaveAsPdfFailedErr);

}

kmkaot

Thank you all.
I got the solution.

The file which was stored in server was not allowed to send from client system. we need to copy the same to client system first.

I have used file Managment CU to get the file

Thank you and warm regards
Kris

zohaibu95@hotmail.com

You are welcome