Yeah,
【准备工作】网上学习到有两种方法:一是VBA调用OutLook控件进行发送,这要在电脑中安装Office OutLook,(可惜我的电脑没有安装),一是VBA调用CDO控件,再利用QQ邮箱发送...", , "温馨提示" '如果没有出错,则提示发送成功
.Cells(i, 10).Value = "成功"
sucess...+ 1
Else
' MsgBox Err.Description, vbInformation, "邮件发送失败...,用时" & DateDiff("s", t, Time()) & "s,【成功】=" & sucess & "【失败】=" & fail)
End With
disAppSet (True...我们对返回是“打开”或“取消”要进行 Not isArray()判断
【测试成功】
希望能提高我的工作效率,使工作变得轻松,
如果你也有这样的需要,可以复制使用,我们学习,是为了不加班,如果你学习到知识