因为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