Hello,
I am working with SMTP mail. i am sending posted sales invoice using SMTP mail it is working fine. But it not showing the Dialog box i want to open the dialog before send the email.
this is what i tried and its working fine just want to open the dialog before sending the email
SmtpMail.CreateMessage(SMTPSetup."User ID",SMTPSetup."User ID",SMTPSetup."User ID",'Email With Signature','',TRUE);
SmtpMail.AddAttachment(FilePath,'salesinvoice.pdf');
SmtpMail.AppendBody('Hi All, <BR><BR>');
SmtpMail.AppendBody('This is test<BR><BR>');
SmtpMail.AppendBody('<HR>');
SmtpMail.AppendBody('<BR>');
SmtpMail.AppendBody('Regards,<BR>');
SmtpMail.AppendBody('M Arif<BR>');
SmtpMail.AppendBody('New- Cronus International<BR>');
CompanyInfo.CALCFIELDS(Picture);
IF CompanyInfo.Picture.HASVALUE THEN BEGIN
TempBlob.INIT;
TempBlob.Blob := CompanyInfo.Picture;
TempBlob.INSERT;
FileName := FileManagment.BLOBExport(TempBlob,'Signature.jpg',FALSE);
END;
SmtpMail.AppendBody('<IMG style="HEIGHT: 153px; WIDTH: 445px" src="file:///'+ FileName +'"'+ 'width=100 height=100>');
SmtpMail.Send;
