ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 27212|回复: 14

[求助] 怎么自动发送工资单到对应邮箱

[复制链接]

TA的精华主题

TA的得分主题

发表于 2011-3-10 08:47 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
有没有什么方法可以讲全体员工(近1000名)的工资单(最好是excel形式或是简单的表格)发送给员工的邮箱,每个人的邮箱已经提前收集到。
要求每个人只能收到自己的那部分!
求助各位大侠!

TA的精华主题

TA的得分主题

发表于 2011-3-10 08:56 | 显示全部楼层
这个就要用到合并邮件功能了。

TA的精华主题

TA的得分主题

发表于 2011-3-10 09:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-3-10 09:26 | 显示全部楼层
原帖由 wangzhrm 于 2011-3-10 08:47 发表
有没有什么方法可以讲全体员工(近1000名)的工资单(最好是excel形式或是简单的表格)发送给员工的邮箱,每个人的邮箱已经提前收集到。
要求每个人只能收到自己的那部分!
求助各位大侠!


邮件合并操作起来容易一些,如果想更省事,可以用VBA调用Outlook来批量处理邮件。

另外,下面的例子是调用CDO.Message来发送邮件,注释部分填入个人需要的信息即可。
如果要批量处理,只需要做个循环即可,下述代码经本人本机实测,可以使用。


  1. Option Explicit
  2. Sub 发邮件()
  3. Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
  4. Const cdoSendUsingPort = 2
  5. Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
  6. Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
  7. Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
  8. Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
  9. Const cdoBasic = 1
  10. Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
  11. Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
  12.   
  13. Dim objConfig, objMessage, Fields
  14. Set objConfig = CreateObject("CDO.Configuration")
  15. Set Fields = objConfig.Fields
  16. With Fields
  17.   .Item(cdoSendUsingMethod) = cdoSendUsingPort
  18.   .Item(cdoSMTPServer) = ""          'smtp邮件发送服务器
  19.   .Item(cdoSMTPServerPort) = 25
  20.   .Item(cdoSMTPConnectionTimeout) = 10
  21.   .Item(cdoSMTPAuthenticate) = cdoBasic
  22.   .Item(cdoSendUserName) = ""   '发送者邮件地址
  23.   .Item(cdoSendPassword) = ""                   '发送者邮件密码
  24.   .Update
  25. End With
  26. Set objMessage = CreateObject("CDO.Message")
  27. Set objMessage.Configuration = objConfig
  28. With objMessage
  29.   .BodyPart.Charset = "GB2312"                      '邮件内容编码
  30. '  .BodyPart.Charset = "shift-jis"                  '邮件内容编码
  31.   .To = ""                        '接收者邮件地址
  32.   .Cc = ""
  33.   .From = ""                '发送者邮件地址,与上面设置相同
  34.   .Subject = "Test mail, Sent by CDO.Message"       '邮件主题
  35.   .HtmlBody = "TEST -- cdo.message"                 '邮件内容
  36.   '.AddAttachment ""
  37.   .Send
  38. End With
  39. Set Fields = Nothing
  40. Set objMessage = Nothing
  41. Set objConfig = Nothing
  42. MsgBox ("发送成功……")
  43. End Sub

复制代码

TA的精华主题

TA的得分主题

发表于 2011-3-31 15:10 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
可以试试这个小软件,
下载地址:http://www.newhua.com/soft/24982.htm
下载地址:http://xiazai.zol.com.cn/detail/41/406435.shtml
GoGoMail 2010  3.0.0

GoGoMail 2010 是由Kafox小组开发的一款优秀的国产邮件发送软件, 其主要目的是为了改善并提高办公人员对邮件发送的工作效率,使其从繁琐、枯燥的邮件发送中解脱出来。它是一套邮件群发分发为主要功能的软件,其内置助手向导,包括附件分配向导、Excel-内容份配向导、Excel-工资条处理向导、Excel-文件分割向导,可帮助您快速处理邮件、处理Excel文件、发送重复邮件,提高发送邮件工作的效率。
经历过GoGoMail Ver 1.0 ,Ver4.0 ,Ver6.0 逐渐升级,目前GoGoMail 2010推出,其最新版本 2010.3.0.0版本,欢迎大家试用。
软件适合场景:适合财务部门发送工资条、销售部门分发邮件通知、分发不同附件,分割Excel文件等
以下是GoGoMail 2010 相关信息:
普通功能:传统的单独发送同一封邮件给不同的邮件收件人
特色功能: GoGoMail 2010 提供了4个实用助手,用于提高处理文件附件、发送邮件方便性。
适用场景描述:
一、附件分配向导
  适用场景:在实际工作中,经常有很多附件发送给不同的人,如果手工去一个一个去对应哪个附件发给哪个人,这样的工作太过于烦琐,附件分配向导,可以自动按照您定义的规则,去自动对应分配,提高发送邮件工作的效率。
二、Excel-内容分配向导
  适用场景:在实际工作中,经常遇到要从Excel内容发送给不同的人,如工资信息等,该功能实现了从Excel中按照自定义的规则进行分配到相对应的收件人邮件正文中,实现Excel内容的分配。
三、Excel-工资条处理向导
适用场景:
  该功能的目的是使用电子邮件发送工资条,即批量制作工资条文件并进行发送邮件,它只需在您的Excel工资表中,加入收件人邮箱及密码,即可从Excel工资表自动生成每个人的独立工资条附件.考虑到工资条信息的安全性,不仅自定义独立工资条的列,还可加密工资条等,实现全自动工资条发放。
四、Excel-文件分割向导
适用场景:该功能主要实现将单个Excel文件,根据条件分组并分割生成多个独立的Excel文件。
一般可结合附件分配向导使用,能实现Excel分割后,按不能人发送不同的Excel文件。

-------------------------------------------------------
最近更新
GoGoMail 2010 3.0 对 2010.2.0 版 的最新改进
解决支持 Win 7的兼容性问题
新增Excel-文件分割向导,功能主要用于对单个Excel文件根据相同内容进行分组分割成多个独立的Excel文件.
优化并修正Excel-附件分配向导
优化并修正Excel-内容分配向导
优化并修正Excel-工资条处理向导
加入Email地址格式校验机制
加入修改发件列表收件人邮箱
调整显示软件版本小版本号
调整工具->高级管理->数据结构重构功能,可从2010.1.0,2010.2.0升级至2010.30结构
解决部分收件人使用WEB获取不到附件Bug
优化并修正通讯簿导入导出功能
修正了若干bug
-----------------------------------------------------------
GoGoMail 2010 2.0 对 2010.1.0 版 的最新改进
新增GoGoMail助手功能:Excel_工资条处理向导
优化若干体验,修改若干问题
  0.新增工资条处理向导(Excel)
  1.美化GoGoMail界面
  2.更新调整优化数据结构
  3.增加数据重构功能,方便同步版本与数据库的兼容性
  4.调整了GoGoMail附件管理机制
  5.优化独立发送邮件功能
  6.修改了个别邮件出现乱码的问题
  7.修改了个别情况下邮件收取后出现邮件丢失的问题
  8.修正了若干bug
-------------------------------------------------------------------
GoGoMail 2010 1.0 对GoGoMail 6.0的主要改进
新增GoGoMail助手功能,提供了附件分配向导及Excel内容分配向导,方便用户对分类邮件的方便性,有便于用户提高工作效率。
新增多方案管理功能,方便用户自定义每个发送方案,增加发送方便性。
新增多信件功能,允许建立多封信件(即邮件),增加发送的方便性。
新增附加邮件内容功能,允许在邮件中增加附加内容标识,以便在同个邮件中,发送给每个收件人时可以有特定的邮件内容。
支持了HTML格式邮件,对邮件群发分发,支持了邮件HTML格式邮件内容的发送。
支持了使用@tom.com等邮件服务器做为发件服务器。
优化若干体验,修改若干问题
1.美化GoGoMail界面
2.改变了数据存储方式(Access->SQL CE)
3.增加了通讯簿管理(支持导入CSV WAB格式)
4.加强了GoGoMail附件管理机制
5.优化独立发送邮件功能
6.修改了个别邮件出现乱码的问题
7.修改了个别情况下邮件收取后出现邮件丢失的问题
8.修正了若干bug

   
GoGoMail 2010 是由Kafox小组开发的一款优秀的国产邮件发送软件, 其主要目的是为了改善并提高办公人员对邮件发送的工作效率,使其从繁琐、枯燥的邮件发送中解脱出来。它是一套邮件群发分发为主要功能的软件,其内置助手向导,包括附件分配向导、Excel-内容份配向导、Excel-工资条处理向导、Excel-文件分割向导,可帮助您快速处理邮件、处理Excel文件、发送重复邮件,提高发送邮件工作的效率。
经历过GoGoMail Ver 1.0 ,Ver4.0 ,Ver6.0 逐渐升级,目前GoGoMail 2010推出,其最新版本 2010.3.0.0版本,欢迎大家试用。
软件适合场景:适合财务部门发送工资条、销售部门分发邮件通知、分发不同附件,分割Excel文件等
以下是GoGoMail 2010 相关信息:
普通功能:传统的单独发送同一封邮件给不同的邮件收件人
特色功能: GoGoMail 2010 提供了4个实用助手,用于提高处理文件附件、发送邮件方便性。
适用场景描述:
一、附件分配向导
  适用场景:在实际工作中,经常有很多附件发送给不同的人,如果手工去一个一个去对应哪个附件发给哪个人,这样的工作太过于烦琐,附件分配向导,可以自动按照您定义的规则,去自动对应分配,提高发送邮件工作的效率。
二、Excel-内容分配向导
  适用场景:在实际工作中,经常遇到要从Excel内容发送给不同的人,如工资信息等,该功能实现了从Excel中按照自定义的规则进行分配到相对应的收件人邮件正文中,实现Excel内容的分配。
三、Excel-工资条处理向导
适用场景:
  该功能的目的是使用电子邮件发送工资条,即批量制作工资条文件并进行发送邮件,它只需在您的Excel工资表中,加入收件人邮箱及密码,即可从Excel工资表自动生成每个人的独立工资条附件.考虑到工资条信息的安全性,不仅自定义独立工资条的列,还可加密工资条等,实现全自动工资条发放。
四、Excel-文件分割向导
适用场景:该功能主要实现将单个Excel文件,根据条件分组并分割生成多个独立的Excel文件。
一般可结合附件分配向导使用,能实现Excel分割后,按不能人发送不同的Excel文件。

-------------------------------------------------------
最近更新
GoGoMail 2010 3.0 对 2010.2.0 版 的最新改进
解决支持 Win 7的兼容性问题
新增Excel-文件分割向导,功能主要用于对单个Excel文件根据相同内容进行分组分割成多个独立的Excel文件.
优化并修正Excel-附件分配向导
优化并修正Excel-内容分配向导
优化并修正Excel-工资条处理向导
加入Email地址格式校验机制
加入修改发件列表收件人邮箱
调整显示软件版本小版本号
调整工具->高级管理->数据结构重构功能,可从2010.1.0,2010.2.0升级至2010.30结构
解决部分收件人使用WEB获取不到附件Bug
优化并修正通讯簿导入导出功能
修正了若干bug
-----------------------------------------------------------
GoGoMail 2010 2.0 对 2010.1.0 版 的最新改进
新增GoGoMail助手功能:Excel_工资条处理向导
优化若干体验,修改若干问题
  0.新增工资条处理向导(Excel)
  1.美化GoGoMail界面
  2.更新调整优化数据结构
  3.增加数据重构功能,方便同步版本与数据库的兼容性
  4.调整了GoGoMail附件管理机制
  5.优化独立发送邮件功能
  6.修改了个别邮件出现乱码的问题
  7.修改了个别情况下邮件收取后出现邮件丢失的问题
  8.修正了若干bug
-------------------------------------------------------------------
GoGoMail 2010 1.0 对GoGoMail 6.0的主要改进
新增GoGoMail助手功能,提供了附件分配向导及Excel内容分配向导,方便用户对分类邮件的方便性,有便于用户提高工作效率。
新增多方案管理功能,方便用户自定义每个发送方案,增加发送方便性。
新增多信件功能,允许建立多封信件(即邮件),增加发送的方便性。
新增附加邮件内容功能,允许在邮件中增加附加内容标识,以便在同个邮件中,发送给每个收件人时可以有特定的邮件内容。
支持了HTML格式邮件,对邮件群发分发,支持了邮件HTML格式邮件内容的发送。
支持了使用@tom.com等邮件服务器做为发件服务器。
优化若干体验,修改若干问题
1.美化GoGoMail界面
2.改变了数据存储方式(Access->SQL CE)
3.增加了通讯簿管理(支持导入CSV WAB格式)
4.加强了GoGoMail附件管理机制
5.优化独立发送邮件功能
6.修改了个别邮件出现乱码的问题
7.修改了个别情况下邮件收取后出现邮件丢失的问题
8.修正了若干bug

TA的精华主题

TA的得分主题

发表于 2013-11-1 16:53 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
学习了,有些复杂!

TA的精华主题

TA的得分主题

发表于 2013-11-4 11:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我记得我们电台之前搞过一个
所有的人员工资在一个表格里面
然后大家根据自己的用户名,输入自己的密码来进行查询自己的工资条。

整体数据部分锁定。

TA的精华主题

TA的得分主题

发表于 2014-1-14 11:23 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-7-21 12:06 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-8-2 14:50 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Word 邮件合并就行了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-21 18:33 , Processed in 0.041908 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表