胜负彩开奖结果(sfile)

导读大家好,玲玲来为大家解答以上问题,胜负彩开奖结果,sfile很多人还不知道,现在让我们一起来看看吧!每月的工资表如何分配给每个人,是一...

大家好,玲玲来为大家解答以上问题,胜负彩开奖结果,sfile很多人还不知道,现在让我们一起来看看吧!

每月的工资表如何分配给每个人,是一个很头疼的问题,因为工资涉及保密。使用电子邮件。每个人的邮件内容都有些不同,人多的时候特别容易出错。光是这张工资条,就足以让人忙上好一阵子;那么如何快速分发给大家呢?下面是excel批量发送邮件和工资条的方法。让我们来看看!

方法/步骤

按照下图组织工资计划表。

1.可以自行添加或删除列数。

2.如果无法发送邮件,请在排序数据列的标题中添加大写字母“X”。

3.工作表名称用作电子邮件主题。请在发送前修改工作表名称。

启用开发工具选项卡,插入命令控件,并修改控件名称和显示名称。

进入VBA编程界面;将以下代码复制到编辑窗口。

Sub自动发送邮件_Click()

要正确发送,需要有效配置Microseft Outlook。

出错时继续下一步

Dim rowCount,endRowNo,endColumnNo,sFile$,sFile1$,A,B

Dim objOutlook作为对象

Dim对象邮件作为邮件项

获取当前工作表数据区的行数和列数。

endRowNo=ActiveSheet。UsedRange.Rows.Count

endColumnNo=ActiveSheet。使用范围.列数.计数

获取要作为消息主题发送的当前工作表的名称。

sFile1=ActiveSheet。名字

将objOutlook创建为Outlook应用程序对象

set objOutlook=CreateObject(' Outlook。应用程序’)

开始循环发送电子邮件。

对于rowCount=2到endRowNo

将objMail创建为邮件对象。

Set objMail=objOutlook。CreateItem(olMailItem)

用objMail

设置收件人地址和数据源所在的列数。To=单元格(rowCount,5)

设置抄送地址(从地址簿表格中的“电子邮件地址”字段获得)。CC=单元格(行数,0)

设置电子邮件主题、工作表名称值。Subject=sFile1

设置消息内容(从地址簿表格的“内容”字段获得)

对齐单元格文本显示在左侧、中间和右侧。默认为居中、宽度-宽度-高度-高度边框单元格线条粗细。bordercolor返回或设置对象的边框颜色。

ColSpan是一种编程语言,其属性可以设置或返回单元格跨越的列数。

SFile='你好!

以下是您的“sFile1”,请检查!'

sFile=sFile ' '

SFile=sFile '工资单

'

B=1

对于A=1到endColumnNo

在数据头中添加“X”后,该字段将不被发送。

如果应用。worksheet function . CountIf(Cells(1,A),' *X*')=0然后

如果B=1,那么

sFile=sFile ' '单元格(1,A)。文本“”单元格(rowCount,A)。文本“”

B=0

其他

sFile=sFile ' '单元格(1,A)。文本“”单元格(rowCount,A)。'文本'

'

B=1

如果…就会结束

如果…就会结束

然后。HTMLBody=sFile

设置附件(从地址簿表格的“附件”字段获得)

. Attachments.Add单元格(rowCount,24)。价值

自动发送邮件。发送

以…结尾

销毁对象邮件对象

Set objMail=Nothing

然后

销毁objOutlook对象

设置objOutlook=Nothing

发送所有邮件时提示。

MSOX ROWCOUNT-已成功发送2名员工的工资单!

末端接头

你完了。测试图如下。

提示:没有为自定义类型定义异常处理方法。

解决方案:单击工具-报价-检查。

提示:单击“发送OUTLOOK安全提示”。

解决方案:点击文件-选项-信任中心-信任中心设置-编程访问-并选中永远不要警告我你可以移动。

提示:当编程访问不能被检查和变灰。

解决方案:控制面板-用户帐户-单击用户帐户-更改用户帐户控制设置-调整为从不通知,重新启动计算机,然后再次调整OUTLOOK设置。

需要注意的事项

提示:可以先断网,点开然后去邮箱里的发件箱看看效果如何。如果不行,可以删除,重新开始。

excel就是这样批量发送邮件和工资条的。操作起来也不是很难。做不到的朋友可以参考这篇文章。希望能帮到你!

本文到此结束,希望对大家有所帮助。

免责声明:本文由用户上传,如有侵权请联系删除!