SFilename = sBaseFileName & "\" & Rng.Value & ". '.Attachments.Add ActiveWorkbook.FullName 'Not necessary for your needs to = Rng.Offset(0, 1).Value ' Insted of individual Emal i want Range of emali adress base on Name SBaseFileName = "C:\Users\ABC\Desktop\All My Desktop File\SS\Salary File\Staff\6. Set OutApp = CreateObject("Outlook.Application") Set OutApp = Nothingĭim sBaseFileName as string, sFilename as string
Payslips are important to the employees for many reasons. To filter employees from a particular location, cost center or department, select the relevant values in dropdown boxes at top row. Select a period by using left and right arrows buttons available at top left. Set OutApp = CreateObject("Outlook.Application") An employer is legally obliged to provide a payslip copy to every employee in his payroll. To send payslips by email, go to Reports > Salary Reports > Salary Slips.
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ ExportAsFixedFormat Type:=xlTypePDF, Filename:=.Range(" AI1") & "-" & "Mr. So is there any way to send pay slip automatic by outlook? I think there are some VBA Code to do it. I have one Excel File sheet 1 which has all employees Name (Column "A: A") All Name are match with folder pays lip name and Column "B: B" has email address. If an employee does not have an email address entered then his/her Salary Slip will be printed rather than emailed.ĭepending on computer system the code will take approximately 45 seconds to create and email all the salary slip pdfs.I have Pay slip in one folder "C:\Users\ABC\Desktop\All My Desktop File\SS\Salary File\Staff\6. Note that I added a column to the Employee information sheet for the email address of each employee. ExportAsFixedFormat 0, sFn, 0, 1, 0,, , 0 SPn = ThisWorkbook.Path & "\Salary slips - " & sMnth & "\" "Attached please find your Salary slip for " & sMnth & _
Y = Sheets("Payroll calculator").CurrentRegion.Columns(4)
X = Sheets("Employee information").CurrentRegion
0 kommentar(er)
