crystal report payslip send the for each employee id gmail

Question

are crystal report payslip send the for each employee gmail id

Rajkiran Swain · Answer

You can do it using the Crystal reports Export methods you should be able to send it to a file with the name of your choice. Set rst 2 = dbs.OpenRecordset( select * from temppayslip order by code1  dbOpenDynaset) Do While Not rst 2 .EOF With CrystalReport 1 .DataFiles( 0 ) = appdbname .ReportFileName = apppath & \payslip.rpt .PrinterDriver =  .PrinterName =  .PrinterPort =  .Formulas( 0 ) = monthtext = ' & charmon(Month(DateValue(paydt))) &  -  & LTrim(str(Year(DateValue(paydt)))) & ' End With sReportName = apppath & \payslip.rpt Dim sfilename sfilename = rst 2 .Fields( code1 ) & mmonth & mYear & .pdf Set CrRep = CrApp.OpenReport(sReportName) With CrRep '* below line used to filter for each employee .RecordSelectionFormula = {temppayslip.code1} = & rst 2 .Fields( code1 ) .ExportOptions.FormatType = crEFTPortableDocFormat .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.DiskFileName = App.Path & \ & pReportDirectory & sfilename ' this file name should be parameterised .ExportOptions.PDFExportAllPages = True .Export (False) End With Set CrRep = Nothing rst 2 .MoveNext Loop rst 2 .Close Next you will save this file in any of the location then set your path for sending email to all users.