You’re offline. This is a read only version of the page.
Below code is running fine but only while it is going to mailer.body(textmail1); it is giving error stating
Sys mailler object not initialized
void clicked()
{
sysemailparameters parameter = sysemailparameters::find();
Dialog dialogMail;
DialogField ilfsMail;
DialogField dfsubject;
DialogField dfTowhom;
DialogField dftextmail;
itl_ib_remarks textmail;
str textMail1;
str Towhome1;
Email Towhome;
SysMailer mailer,mailer1;
itl_ib_remarks text1;
itl_ib_remarks Bodytext;
str username;
itl_ib_remarks useremail,COEmail,accessemails;
Name fromName;
str fromEmail;
userinfo userinfo;
ITL_COC_ReqForSecRestrictnDetails SecRestrictnDetails;
;
if(!ITL_COC_ReqForSecRestrictn.RecId)
{
throw Error("No Record Found.");
}
else if(!ITL_COC_ReqForSecRestrictnDetails && ITL_COC_ReqForSecRestrictn.RequisitionType == ITL_COC_RequisitionType::Restriction)
{
throw Error("No record found in line table.");
}
else
{
while select SecRestrictnDetails
where SecRestrictnDetails.RequisitionNo == ITL_COC_ReqForSecRestrictn.RequisitionNo
&& SecRestrictnDetails.RequisitionType == ITL_COC_ReqForSecRestrictn.RequisitionType
&& SecRestrictnDetails.SecurityCode == ITL_COC_ReqForSecRestrictn.SecurityCode
{
if(SysUserInfo::find(SecRestrictnDetails.UserId).Email == '')
throw Error(strfmt("Email Id for user id %1 was not found in the User Master. Please update the email id for %2",SecRestrictnDetails.UserId,SecRestrictnDetails.UserName));
username += SecRestrictnDetails.UserName + " , ";
useremail += SysUserInfo::find(SecRestrictnDetails.UserId).Email + ",";
}
fromEmail = sysuserinfo::find(curuserid()).Email;
select userinfo where userinfo.id == curuserid();
FromName = userinfo.Name;
text1 ="Particulars of Grey Listing :"
+ " " + "\n Security Name : " + " " + ITL_COC_ReqForSecRestrictn.SecurityName
+ " " + "\n Security Type : " + " " + enum2str(ITL_COC_ReqForSecRestrictn.SecurityType)
+ " " + "\n Effective Date : " + " " + date2str(ITL_COC_ReqForSecRestrictn.FromDate,123,2,2,2,2,2)
+ " " + "\n Name of Initiator : " + " " + ITL_COC_ReqForSecRestrictn.Initiatorname
+ " " + "\n Name of Access Persons : " + " " + username ;
// + " " + "\n Grey List Notification No : " + " " + ITL_COC_ReqForSecRestrictn.RequisitionNo
// + " " + "\n\n Please give the Grey List Declaration in Axapta.\n"
// + " " + "\n For Grey list Declaration, please follow this path in Axapta : "
// + " " + "\n Employee Self Operations-> Code Of Conduct-> Grey Listing-> Grey Listed Declaration." ;
// dialogMail = new Dialog("Mail");
mailer = new SysMailer();
//mailer1 = new SysMailer();
if (parameter.DNSServerName)
mailer.DNSServers().add(parameter.DNSServerName,parameter.DNSTCPIPRetryCount,parameter.DNSUDPRetryCount);
if(parameter.SMTPRelayServerName)
mailer.SMTPRelayServers().add(parameter.SMTPRelayServerName,parameter.SMTPPortNumber,parameter.SMTPServerIPAddress,parameter.SMTPUserName,parameter.SMTPPassword);
dialogMail.caption("Mail");
dfTowhom = dialogMail.addFieldValue(str2int(useremail),useremail,"To");
dftextmail = dialogMail.addFieldValue(str2int(text1), Text1,"Text");
dftextmail.allowEdit(false);
dialogMail.run();
Towhome1 = dfTowhom.value();
textmail1 = dftextmail.value();
if(dialogMail.closedOk())
{
while select SecRestrictnDetails
where SecRestrictnDetails.RequisitionNo == ITL_COC_ReqForSecRestrictn.RequisitionNo
&& SecRestrictnDetails.RequisitionType == ITL_COC_ReqForSecRestrictn.RequisitionType
&& SecRestrictnDetails.SecurityCode == ITL_COC_ReqForSecRestrictn.SecurityCode
&& SecRestrictnDetails.NotifyMailUser == Noyes::No
&& SecRestrictnDetails.DenotifyMailUser == Noyes::No
{
if(SysUserInfo::find(SecRestrictnDetails.UserId).Email == '')
throw Error(strfmt("Email Id for user id %1 was not found in the User Master. Please update the email id for %2",SecRestrictnDetails.UserId,SecRestrictnDetails.UserName));
accessemails = SysUserInfo::find(SecRestrictnDetails.UserId).Email;
mailer.body(textmail1);
mailer.fromName(FromName);
mailer.fromAddress(fromEmail);
mailer.tos().add(accessemails);
mailer.subject("Intimation of Security placed under Grey List in Axapta");
mailer.sendMail();
accessemails='';
mailer = null;
ttsbegin;
select ITL_COC_ReqForSecRestrictnDetails where ITL_COC_ReqForSecRestrictnDetails.RequisitionNo == ITL_COC_ReqForSecRestrictn.RequisitionNo
&& ITL_COC_ReqForSecRestrictnDetails.NotifyMailUser == Noyes::No
&& ITL_COC_ReqForSecRestrictnDetails.DenotifyMailUser == Noyes::No;
if( ITL_COC_ReqForSecRestrictnDetails)
{
ITL_COC_ReqForSecRestrictnDetails.NotifyMailUser= Noyes::Yes;
ITL_COC_ReqForSecRestrictnDetails.update();
}
ttscommit;
}
info('email sent');
ttsbegin;
ITL_COC_ReqForSecRestrictn.MailSentToAccessPerson = noyes::Yes;
ITL_COC_ReqForSecRestrictn.update();
ttscommit;
MailToAccessPerson.enabled(false);
mailer = null;
//CO Mail
// COEmail = ITLCOCParameter::find().COMailId;
// mailer1.body(textmail1);
// mailer1.fromName(FromName);
// mailer1.fromAddress(fromEmail);
// // mailer1.tos().add(COEmail);
// mailer1.subject("Intimation for Declaration of security placed under grey List in Axapta");
// // mailer1.sendMail();
// info('email sent');
// mailer1 = null;
}
else
info('Activity Cancelled ');
}
ITL_COC_ReqForSecRestrictn_ds.active();
ITL_COC_ReqForSecRestrictn_ds.refresh();
*This post is locked for comments
I have the same question (0)
Share
Report
All responses (
Answers (
4
