windows下简单的vbscript自动发送邮件--带附件

最新推荐文章于 2020-02-24 16:31:11 发布
原创 最新推荐文章于 2020-02-24 16:31:11 发布 · 1.1w 阅读 · 11 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了如何在Windows系统下通过编写VBScript脚本来实现自动发送带有附件的邮件。步骤包括设置CScript编译器、编写VBS脚本、创建BAT批处理文件，并利用Windows定时任务进行调度。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

1.设置cscript为指定编译器：

    在dos中执行： cscript //h:cscript //s

 

2. 在记事本中编写vbs脚本，另存为 sendmail.vbs, 内容如下：

Set objEmail = CreateObject("CDO.Message")

Call SendMail()

Sub SendMail
        objEmail.From = "xxx@163.com" '发件人
        objEmail.To = "yyy@163.com" '收件人
        objEmail.Subject = "邮件主题" '电子邮件主题主题
        objEmail.Textbody = "电子邮件内容" '电子邮件内容
        objEmail.AddAttachment "c:\附件.txt" 
        objEmail.Configuration.Fields.Item _
      &n

最低0.47元/天 解锁文章

200万优质内容无限畅学
用vbs发送带附件的邮件
09-06
利用vbs实现可以带附件的邮件的代码
vbs sendmail发邮件带附件方法
09-06
vbs下实现邮件发送代码，可以发附件等
每天定时发邮件
za_yao的博客
08-29 2298
将下面代码复制到文本文档，并保存为vbs格式，然后用win7的定时任务执行。 ' 注意：以单引号'开头的行为注释 ' fdt为今日日期的字符串，比如 '2012-3-1'，可用于附件名字里和邮件标题里 ' receiptions 为收件人列表，多个收件人之间用分号隔开 ' Subject 为邮件标题 ' Body 为邮件正文 ' Atta
SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提醒
人生路上漫悠悠，程序写春秋...
10-07 6029
SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提醒---Summary---这份文档其实主要是讲vbscript的文件处理和在vbscript 下如何发邮件。大至分为三个部分。一．Sql Server 数据库备份二．Sql Server 调用vbs对数据库备份文件夹进行扫描，清理以前旧的数据库备份，只保留当前月的数据库备份。三．将清除的数据库备份文
C# Windows服务 定时自动发送邮件(带附件)
07-16
用window服务写的一个定时发送邮件的小程序.经过测试可用.有详细的windows服务安装步骤和卸载步骤!
使用命令行发送带附件的邮件
09-17
批处理文件发送带附件.bat 使用命令行发送带附件的邮件
ASP自动发送邮件解决方案及CDONTS.DLL安装指南
在当今数字化时代，自动发送邮件是一个常见的需求，特别是在Web开发中，如ASP（Active Server Pages）技术的应用场景。ASP是一种服务器端脚本环境，用于创建动态交互式网页。如果开发者需要在ASP中实现自动发送邮件...
32位Windows系统下的jmail邮件发送组件使用方法
综合以上信息，我们可以得知，该组件是一个为老版本Windows服务器系统量身定制的邮件发送解决方案，它简化了安装过程，为需要在32位Windows 2003 Server环境下发送邮件的开发者提供了极大的方便。然而，考虑到...
用VBSCRIPT发邮件
04-22
VBScript是一种轻量级的脚本语言，常用于Windows系统中的自动化任务和网页交互。在邮件发送的场景中，它能够通过与Outlook、SMTP服务器或者其他邮件客户端程序交互，实现程序化地发送邮件。 描述中提到的“NULL”...
1.3windows命令行下使用blat发邮件带附件
weixin_34354945的博客
11-11 1078
windows命令行bat批处理脚本的应用之blat程序自动发邮件1.3windows命令行下使用blat发邮件带附件__游旗丶引莫（孙忠） 发邮件脚本模板 rem ----邮件内容-----set body="test mail" rem ----邮件主题----set s="测试test"rem ----收件邮箱-----set t=nn1183@qq.comrem ----发件邮...
实用VBS发电子邮件代码，windows都可用
01-22
实用的VBS发送邮件，可以用于任务调度…… 部分代码如下 sFM = "eugene@163.com" sTO = "eugene@163.com" sFile = "C:\setuplog.txt" 'Call SendMailCDO(sFM,sTO,sTO,sTO,"Test Mail CDONTS","How are You!",sFile) Call SendMailCDO(sFM,sTo,"","","Test Mail CDO","How are You!",sFile) 'Call SendMailCDONTS(sFM,sTO,sTO,sTO,"Test Mail CDONTS","How are You!",sFile) WScript.Quit Sub SendMailCDONTS(sFM,sTO,sCC,sBCC,sSubject,sBody,sAttFile) Dim ObjMail Set ObjMail = CreateObject("cdonts.NewMail") ObjMail.From = sFM ObjMail.To = sTO ObjMail.CC = sCC ObjMail.BCC = sBCC
python实现发送邮件及附件功能
09-21
主要为大家详细介绍了python实现发送邮件及附件功能，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
VBS sendmail automatic
wwhunter1214的专栏
02-08 429
NameSpace = "http://schemas.microsoft.com/cdo/configuration/" set Email = CreateObject("CDO.Message") Email.From = "sz_ww@126.com" '发信人地址 Email.To = "sz_ww@126.com" '收信人地址（qq也可） Email.Subject = "花
sendmail.vbs
weixin_34297704的博客
04-03 236
dim mailsend,fs,ts set fs = createobject ("scripting.filesystemobject") set ts = fs.opentextfile("I:\check\check.txt",1,true) ' 邮件内容存放的路径 readall = ts.readall '读取mail.txt所有内容 Const Email_Fr...
VBS 发邮件
灵台方寸山斜月三星洞
02-01 3296
N年前刚开始玩VBS的时候就想试试发邮件的功能。 结果后来失败了。 最近在群里看到又有人发了发邮件的代码，于是也玩了一下。 最后成功了。这里记录下，QQ邮箱的安全策略，在使用smtp 客户端时要使用独立的授权码（也就是密码，要发短信获取）。 如果改了QQ密码或邮箱密码，这个授权码就会失效，要重新获取。 QQ企业邮箱好像没有这个设置，于是不知道怎么用。直接用邮箱密码试了不行。 附件试了...
vbs发送邮件(win10环境下成功)
Cosmopolitan的博客
06-18 4703
function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) 'code by NetPatch 'VBS发送邮件参数说明 'You_Account：你的邮件帐号 'You_Password:你的邮件密码 'Send_Email: ...
VBS懒人系列-Windows下bat脚本自动发邮件
頁巛沐杍
02-24 1411
摘要：说明：很多木马会利用自身的程序截取系统敏感文件或信息发往指定的邮箱，而blat并不是木马，它小巧却有强大的发邮件功能，可不要用它做违法事，感觉和木马功能有一拼！下面先看个具体的实例（在blat同目录创建个批处理）： @echooff ::::::::::::::参数设置:… 说明：很多木马会利用自身的程序截取系统敏感文件或信息发往指定的邮箱，而blat并不是木马，它小巧却有强大的发邮件功能，...
VBScript使用CDO.Message发送邮件
weixin_30569001的博客
07-31 254
1 Const Email_From = "from@163.com" 2 Const Password = "password" 3 Const Email_To = "to@qq.com" 4 Set CDO = CreateObject("CDO.Message") 5 CDO.Subject = "Test" 6 CDO.From = Email_From 7...
导出系统日志并自动发送邮件到指定邮箱的一般方法(Windows server适用)
weixin_34247032的博客
04-11 620
笔者在工作中遇到这样的问题，如何每天将指定的系统日志发送到指定的邮箱，直接在邮件中查看系统日志，通过这样的方法，不需要登录每台服务器去查看系统日志，大致的做法如下： 1. 采用批处理搜集系统日志到一个指定文件 2. 将这个文件的内容作为邮件的正文发送到指定邮箱 3. 安排计划任务，设置指定的时间发送 以下对各个步骤进行详细的描述，希望对大家的工...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值