妙用EXECEL与JMAIL发送员工工资条
来源:互联网 发布:red5 flash 开发端口 编辑:程序博客网 时间:2024/04/24 06:10
在实际的工作当中,有许多小规模的单位总是采用EXCEL来做员工工资,因为EXCEL中有许多公式可以用,只填入当月变动的项目,扣税、最终实发工资等项目就自动计算出来了。做出工资了有好多单位财务人员不得不打印出来裁成小纸条再发给各员工,这样在人力和时间成本上都耗费不少。最近我单位财务人员对技术部门提出了这个问题,我们考虑后决定采用最简单最环保的方法:利用VBA在EXCEL中结合JMAIL组件做员工工资条发送系统,EXCEL工作簿中至少有两张表,一张是工资表,另一张是员工姓名与E-MAIL对照表。
发送到E-MAIL中的工资表可以有有两种形式:HTML形式;附件形式。因为有时候财务想把EXCEL另存成一个文件,里面只有对应员工的工资和一些备注,这种形式在另一篇文件中介绍,本文先介绍E-MAIL的内容为HTML形式的VBA方法。
该方法的原理:
A)用VBA在EXCEL中先把每位员工的工资做成HTML和表格,再加上表头,就是一位员工完整的工资。
B)找到每位员工对应的E-MAIL(员工的E-MAIL列表在EXCEL的另一张SHEET表中)。
C)调用JMAIL组件发送给每位员工,如果你愿意,还可以要求员工给你一张收条。
方法很简单,月底做完工资,财务工作人员执行一下宏,就OK了。不过在写宏的时候有一些要注意的问题,下面列出宏的所有源码,重点部分做出标识。
图例:
发送前在EXCEL中的工资表(部分):
发送后E-MAIL中的工资表(部分):
宏名是SendWage可以在单独的模块,也可以在ThisWorkbook中。
函数findEmail,在另一张表中遍历找到员工对应的E-MAIL
函数JmailSend,是调用了JMAIL组件
在EXCEL的菜单“工具”---“引用”对话框中选“JMAIL 4.0 LIBRARY”,就添加了引用。如果没有这一项,请安装JMail44_free,这是一个FREE的版本。
Function JmailSend(attachFile, Subject, Body, isHtml, HtmlBody, MailTo, From, FromName, Smtp, Username, Password)'================================================='函数名:JmailSend'作 用:用Jmail发送邮件'参 数:Subject 邮件标题' Body 邮件内容' Body 邮件内容' isHtml 是否发送Html格式邮件 (true 是)' HtmlBody Html格式邮件内容' MailTo 收件人Email' From 发件人Email' FromName 发件人姓名' Smtp smtp服务器' Username 邮箱用户名' Password 邮箱密码'返回值:JmailSend="N" 发送失败 JmailSend="Y" 发送成功'~~~~~~~~~~suercool~~~~~'=================================================Dim JmailMsg'Set JmailMsg = server.CreateObject("jmail.message")Set JmailMsg = New jmail.MessageJmailMsg.MailServerUserName = Username‘如果是在局域网中可以不要验证JmailMsg.MailServerPassWord = PasswordJmailMsg.AddRecipient MailToJmailMsg.From = FromJmailMsg.FromName = FromNameJmailMsg.Charset = "gb2312"JmailMsg.ContentType = "text/html"JmailMsg.Priority = 1JmailMsg.Logging = TrueJmailMsg.Silent = TrueJmailMsg.Subject = SubjectJmailMsg.Body = BodyJmailMsg.AddAttachment = attachFileIf isHtml = True Then JmailMsg.HtmlBody = HtmlBodyIf Not JmailMsg.Send(Smtp) ThenJmailSend = "N"ElseJmailSend = "Y"End IfJmailMsg.CloseSet JmailMsg = Nothing'MsgBox (JmailSend)‘测试时可以用End Function
至此,完整的程序已介绍完毕。其实引发开去,如果有类似工作性质的东东,都可以用此种方法将各员工的记录发送到各员工的信箱中,节约了纸张,节省了人力和时间,何乐而不为。
利用VBA软件也是绿色环保软件,不用安装,代码随着文件走,没有在硬盘上造成垃圾,窃以为不错,不敢独享,献丑与大家共享。如果大家有什么疑问,可以发信到henrryzhang@mail.china.com,共同讨论求进步。
- 妙用EXECEL与JMAIL发送员工工资条
- ASP与jmail发送邮件
- 工资条
- ASP的JMail邮件发送代码与JMail组件的下载
- 如何使用JMAIL组件实现邮件的发送与接收
- winform jmail使用 邮件的发送与接收
- 16、Power Query-批量生成工资条的妙用
- 使用微信企业号群发员工工资条
- 用JMail发送邮件
- Jmail发送附件
- asp+jmail发送邮件
- JMail邮件发送实例教程
- JMail发送邮件代码
- JMail发送邮件系统
- 利用Jmail发送邮件
- JMail 发送邮件
- JMail发送邮件代码
- Jmail发送邮件
- 所谓真爱
- SQL Server 数据类型
- 软件体系架构模式在J2EE中的应用
- 所谓价值
- 2006年上半年工作总结
- 妙用EXECEL与JMAIL发送员工工资条
- 编译原理学习导论
- 光荣与失落----开发工程师的人生之路
- 什么是脏数据,脏读,不可重复读,幻觉读?
- ASP直接调用EXCEL数据的例子
- 软件测试演义之外的话题——测试人员招聘的尴尬
- Java图表开发-JFreeChart
- 注册机破解法的原理和应对方法
- ANSI SQL中定义的4个隔离级