利用VBA批量发送Excel中工资单邮件

代码如下

Sub send()
On Error Resume NextDim rowCount, endRowNo, endColumnNo, sFile$, sFile1$, A&, B&Dim objOutlook As Object'Dim objMail As MailItem'取得当前工作表格的行数和列数以endRowNo = ActiveSheet.UsedRange.Rows.CountendColumnNo = ActiveSheet.UsedRange.Columns.Count'获取当前sheet的名称Sheet = ActiveSheet.Name'调用Outlook客户端邮箱Set myOlApp = CreateObject("Outlook.Application")'循环所有行For rowCount = 2 To endRowNo'新建一封邮件Set objMail = myOlApp.CreateItem(olMailItem)'正文显示sFile = " <tr>您好！<br> 以下是您" + Sheet + "，请查收！</tr><table border=0 style='border-right: 1px solid #a8aeb2;border-bottom: 1px solid #a8aeb2;'> "For A = 1 To endColumnNo'含有字母大写X的列不发送，先把表头打印，在把对应员工的一行保存在变量里，构造了一个简单html的表格。If Application.WorksheetFunction.CountIf(Cells(1, A), "*X*") = 0 ThensFile = sFile + " <tr><td width='150' height='25' style='border-top: 1px solid #a8aeb2;border-left: 1px solid #a8aeb2;padding: 3px 7px;'> " + Cells(1, A).Text + " </td> <td  width='230' height='25' style='border-top: 1px solid #a8aeb2;border-left: 1px solid #a8aeb2;padding: 3px 7px;'> " + Cells(rowCount, A).Text + "</td></tr> "End IfNextsFile = sFile + "</table>"With objMail'收件人，在第二列了，如果放到其它列可以修改这里的2数字.To = Cells(rowCount, 2)'邮件标题.Subject = Sheet'//正文具体内容.HTMLBody = sFile'.HTMLBody =RangetoHTML(单元格对象) '//RangetoHTML是自定义函数，见下面。.Display '//刷新显示效果的作用.send '//发送End WithNextSet objMail = NothingMsgBox rowCount - 2 & "个员工的工资单发送成功！"
End Sub

利用VBA批量发送Excel中工资单邮件相关推荐

利用VBA批量删除Excel中的中文/英文/数字或者替换中英文符号
↓↓↓欢迎关注我的公众号,在这里有数据相关技术经验的优质原创文章↓↓↓ 在Excel中经常会遇到去除所有的中文,英文或者数字等情况.但是由于Excel并不支持一次替换所有的中文,英文,数字等,所以有些 ...
利用VBA批量删除EXCEL中的空白工作表SHEET
Sub delSheet()Dim x As WorksheetApplication.DisplayAlerts = FalseFor Each x In SheetsIf IsEmpty(x.Us ...
如何利用VBA批量更改Excel文件的内容
心得(5):利用VBA批量更改Excel文件的内容问题:因为接受的所有Excel文件都是相同格式的,但是有个单元格的内容就是需要,主办方来更改,如下所示: 获奖级别,得由主办方来更改,但是如果一个一 ...
工作小技巧—在word中使用邮件批量插入excel中的数据
工作小技巧-在word中使用邮件批量插入excel中的数据 word中使用邮件批量插入excel中的数据 1.选择数据源 2.插入数据 3.完成合并 word中使用邮件批量插入excel中的数据 1. ...
利用for循环、openpyxl批量新建Excel中的表格
一.在Excel中批量创建工作表要求实现的功能: 在指定的路径,新建一个Excel文件,该文件中有7月1日到7月31日共31个工作表. 准备: Python环境.安装openpyxl库代码: im ...
vb python excel_【Python3+VBA】在Excel中生成小姐姐
原标题:[Python3+VBA]在Excel中生成小姐姐开发工具 Python版本:3.6.4 相关模块:PIL模块:openpyxl模块:以及一些Python自带的模块. Excel版本:Exc ...
python vba excel课程_【Python3+VBA】在Excel中生成小姐姐|python3教程|python入门|python教程...
https://www.xin3721.com/eschool/pythonxin3721/ 本文转载至知乎ID:Charles(白露未晞)知乎个人专栏下载W3Cschool手机App,0基础随时随 ...
php去掉excel看不见的空格,如何批量去除Excel中无法看不见的空格？
Excel技巧:如何批量去除Excel中无法看不见的空格? 场景:企业人事.财务.市场部等需要数据整理的办公人士. 问题:如何批量去除Excel中无法看不见的空格? 解答:利用替换和专门"清 ...
html表格单元格的小姐姐设置,【Python3+VBA】在Excel中生成小姐姐
下载W3Cschool手机App,0基础随时随地学编程>>戳此了解视频预览导语利用简单的Python和VBA程序在Excel中生成小姐姐. 感觉很有趣,让我们愉快地开始吧~~~ 相关 ...

利用VBA批量发送Excel中工资单邮件

利用VBA批量发送Excel中工资单邮件相关推荐

最新文章

热门文章