Hr福利，用vbs自动定时发送邮件 ，可以用户员工生日提醒
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了Hr福利，用vbs自动定时发送邮件 ，可以用户员工生日提醒，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2613字，纯文字阅读大概需要4分钟。
内容图文
1、 创建 txt 文件，将一下代码复制到里面，后缀名改为 .vbs
2、 创建计划任务，定时执行（不会的百度或者留言）
3、 准备好对应的 excel 和背景图， excel 有三列，姓名 生日 和 邮箱
Function sendEmail(nameVal, myBirthdayVal, myEmailVal, content1, content2)
On Error Resume Next
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject( "CDO.Message" )
Email.From = " 发件箱 "
Email.To = myEmailVal
Email.Subject = "???? ? "
Email.AddAttachment "D:\1.jpg"
Email.htmlBody = "<body background=‘cid:1.jpg‘>?ě?" & "<h1>" & nameVal & "</h1>" & myBirthdayVal& content1& content2 & "</body>"
With Email.Configuration.Fields
.Item( NameSpace& "sendusing" ) = 2
.Item( NameSpace& "smtpserver" ) = " 服务器 "
.Item( NameSpace& "smtpserverport" ) = 25
.Item( NameSpace& "smtpauthenticate" ) = 1
.Item( NameSpace& "sendusername" ) = " 用户名 "
.Item( NameSpace& "sendpassword" ) = " 密码 "
.Update
End With
Err.Clear
Email.Send
If Err.Number <> 0 Then
SendMail = False
MsgBox "error"
Else
SendMail = True
‘MsgBox "success"
End If
Set Email = Nothing
End Function
Function ReadExcel()
myExcelName = "3.xlsx"
time1 = Now
myExcelPath = "D:\3.xlsx"
Set myExcel = CreateObject( "Excel.Application" )
myExcel.Workbooks.Open myExcelPath
myExcel.Visible = False
myExcel.Windows(myExcelName).Activate
‘?? ? ě?
content1 = myExcel.Sheets( "config" ). Cells( 2 , 2 ). Value
content2 = myExcel.Sheets( "config" ). Cells( 3 , 2 ). Value
‘???
RowCount = myExcel.Sheets( "Sheet1" ). usedrange.rows.Count
‘??
‘??Е? ?? ??
nameCol = 1
birthdayCol = 2
eMailCol = 3
isSend = 4
For i = 2 To RowCount
isSendVal = 0
nameVal = myExcel.Sheets( "Sheet1" ). Cells(i, nameCol).Value
myBirthdayVal = myExcel.Sheets( "Sheet1" ). Cells(i, birthdayCol).Value
myEmailVal = myExcel.Sheets( "Sheet1" ). Cells(i, eMailCol).Value
isSendVal = myExcel.Sheets( "Sheet1" ). Cells(i, isSend).Value
If myExcel.Sheets( "Sheet1" ). Cells(i, eMailCol) = "" Then
MsgBox "? & i & "А Е?" & nameVal & "??" & myBirthdayVal
Else
myBirthday = myExcel.Sheets( "Sheet1" ). Cells(i, birthdayCol).Value
‘?????????
If Month(Now) = Month(myBirthdayVal) And Day(Now) = Day(myBirthdayVal) And isSendVal <> 1 Then
Dim arrPara
arrPara = Array(nameVal, myBirthdayVal, myEmailVal, content1, content2)
Call sendEmail (nameVal, myBirthdayVal, myEmailVal, content1, content2)
myExcel.Sheets( "Sheet1" ). Cells(i, isSend).Value = 2
End If
End If
Next
myExcel.Workbooks( 1 ). Save
myExcel.Workbooks(myExcelName).Close
myExcel.Quit
time2 = Now
End Function
ReadExcel
原文：http://www.cnblogs.com/qq441540598/p/6423672.html
内容总结
以上是互联网集市为您收集整理的Hr福利，用vbs自动定时发送邮件 ，可以用户员工生日提醒全部内容，希望文章能够帮你解决Hr福利，用vbs自动定时发送邮件 ，可以用户员工生日提醒所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。