crystal report payslip send the for each employee id gmail

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 rst2 = dbs.OpenRecordset("select * from temppayslip order by code1", dbOpenDynaset)
Do While Not rst2.EOF
With CrystalReport1
.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 = rst2.Fields("code1") & mmonth & mYear & ".pdf"
Set CrRep = CrApp.OpenReport(sReportName)
With CrRep
'* below line used to filter for each employee
.RecordSelectionFormula = "{temppayslip.code1} =" & rst2.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
rst2.MoveNext
Loop
rst2.Close

Next you will save this file in any of the location then set your path for sending email to all users.

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

Rajkiran Swain8y ago
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 rst2 = dbs.OpenRecordset("select * from temppayslip order by code1", dbOpenDynaset)

        Do While Not rst2.EOF
                With CrystalReport1
                    .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 = rst2.Fields("code1") & mmonth & mYear & ".pdf"
                Set CrRep = CrApp.OpenReport(sReportName)

                With CrRep

'* below line used to filter for each employee

                   .RecordSelectionFormula = "{temppayslip.code1} =" & rst2.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
            rst2.MoveNext
        Loop

    rst2.Close
Next you will save this file in any of the location then set your path for sending email to all users.
0