mibuso.com

I am working with Navision 9 SP1.
Targeted work:- Auto PDF Generation and Mail the generated PDF file.

--> PDF is generating Successfully.
--> But when i trying to mail this PDF. Its shows the following error.

---------------------------
Microsoft Dynamics NAV Classic
---------------------------
Boolean must not be blank.

Boolean is missing or invalid in the expression.

---------------------------
OK
---------------------------

Note :- In this code i am using Code unit 397..

Cust.RESET;
Cust.SETRANGE("No.","Sell-to Customer No.");
IF Cust.FIND('-') THEN BEGIN
Cust.TESTFIELD(Cust."E-Mail");
IF Cust."E-Mail" <> '' THEN BEGIN
EmailBody[1]:='Dear '+"Bill-to Contact"+',';
EmailBody[2]:='I am sending the Sales Quote. Please find the attachment.';
EmailBody[3] := 'With Regards,';
EmailBody[4] := 'Satyam Tayal';

Lf[1] := 13;
Lf[2] := 10;
Mail.AddBodyline(EmailBody[1]);
Mail.AddBodyline(Lf);
Mail.AddBodyline(EmailBody[2]);
Mail.AddBodyline(Lf);
Mail.AddBodyline(Lf);
Mail.AddBodyline(Lf);
Mail.AddBodyline(Lf);
Mail.AddBodyline(EmailBody[3]);
Mail.AddBodyline(Lf);
Mail.AddBodyline(EmailBody[4]);

Mail.NewMessage(Cust."E-Mail",'','Quotation Report','','C:\PDF\'+"No."+'.PDF',TRUE);
Mail.Send();

//MESSAGE('%1',Test);
END;
END ELSE
MESSAGE('File not found')

will any body suggest me what i have to do????
If someone suggest me to use codeunit 400 instead of 397.
Please specify me reason for this.



Thanks in advance.

Pradeep Kumar

Did you try to assign this statement to a boolean?

like Result := Mail.Send();

Send function might be returning boolean..please check CU397 send functionn

After ur suggesion i have corrected it. But again i am getting same error.

---------------------------
Microsoft Dynamics NAV Classic
---------------------------
Boolean must not be blank.

Boolean is missing or invalid in the expression.

---------------------------
OK
---------------------------

Mail.AddBodyline(Lf);
Mail.AddBodyline(EmailBody[3]);
Mail.AddBodyline(Lf);
Mail.AddBodyline(EmailBody[4]);

Mail.NewMessage(Cust."E-Mail",'','Quotation Report','','C:\PDF\'+"No."+'.PDF',TRUE);
Test:=Mail.Send();

//MESSAGE('%1',Test);
END;
END ELSE
MESSAGE('File not found')

I am not sure why this function "Send" is available in cu 397. The function "NewMessage" already comprises this line of code:

You could try to omit your line "Mail.Send();"

Enable the debugger so you can see which line causes the error.