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.

crystal report payslip send the for each employee id gmail

Answers (1)