【读书圈】win7 定时发送OA邮件

因为win7任务计划本身xls邮件调用有问题，会显示只读权限 我用vbs脚本替代了它的邮件功能！（我现在对vbs的CDO概念也没大弄清，还不知道需不需要外网，等我找台别的内网机器试试） （另外我试验了一个软件 XJEmail 命令行发邮件，不过很恶心的是，有主题和邮件尾巴有广告，遂弃之） Set objEmail = CreateObject("CDO.Message") Call SendMail() Sub SendMail objEmail.From = "***@bxsteel.com" '发件人 objEmail.To = "***@bxsteel.com" '收件人 objEmail.Subject = "报表" '电子邮件主题主题 objEmail.Textbody = "电子邮件内容" '电子邮件内容 objEmail.AddAttachment "E:\设备管理\报表.xls" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "bxmail1.bxsteel.com" 'SMTP服务器地址 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "***" '用户名 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "***" '密码 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '明文验证 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'SMTP端口号 objEmail.Configuration.Fields.Update objEmail.Send End Sub =============================================== 为什么每天都要重复劳动？ 每天都要用OA发送同一份报表，却总是忙忘了？ 好，没有懒人，就没有进步 尝试了好几天，找了好几种命令、语言，最终自己摸索发现原来win7就带这功能，好吗！ 【读书圈】友情提供，请大家自行摸索 使用有风险，用时多谨慎！ 你可以尝试以下步骤： 一、打开windows live （win7自带） 选手动设置，账号就是你的oa *******@bxsteel.com 密码： ****** 服务器：bxmail1.bxsteel.com 详情可参考OA官网：outlook配置 尝试收件ok 二、任务计划程序 开始 运行栏 输入 任务计划 点击打开 选择 添加基本任务 类型：运行程序（vbs） 设置触发器：就是时间频率啦。。。。。 就Ok啦 你会发现消息提醒，是那么的好用， ====================== 结束啦，这回没有附件，win7原生态 我的天气预报更新功能就是用任务计划实现的，赞吧？ ========================= 办公自动化算不算降本增效啊？ 请各位大大，大发慈悲，少做些重复报表啦 [[i] 本帖最后由 【读书圈】 于 2014-05-27 17:12 编辑 [/i]]

转载于:https://www.cnblogs.com/u0mo5/p/3973770.html