Windows下通过脚本自动发邮件

简介:

创建一个脚本文件,名字随意,扩展名vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
subject=WScript.Arguments(0)
content=WScript.Arguments(1)
 
set sh=WScript.CreateObject( "WScript.Shell" )
host=WScript.FullName
 
If  LCase(Right(host,11))= "wscript.exe"  Then
     sh.run  "cscript //nologo " ""  & WScript.ScriptFullName & Chr(34), 0
     WSCript.Quit
End  If
 
sh.Run  "cmd.exe"
WScript.Sleep 1000
sh.SendKeys  "telnet"
sh.SendKeys( "{Enter}" )
WScript.Sleep 1000
sh.SendKeys  "open smtp.somesome.com 25" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 1000
sh.SendKeys  "helo somesome.com" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 500
sh.SendKeys  "auth login" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 500
sh.SendKeys  "xxxxxxx" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "xxxxxxx" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "mail from:<test1@somesome.com>" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 500
sh.SendKeys  "rcpt to:<test1@somesome.com>" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "rcpt to:<test2@qq.com>" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "data" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "from:test1" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "to:test2" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "subject:"  & subject 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys content 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys  "." 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys( "{Enter}" )
WScript.Sleep 1000
sh.SendKeys  "quit" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 5000
sh.SendKeys( "{Enter}" )
WScript.Sleep 2000
sh.SendKeys  "quit" 
sh.SendKeys( "{Enter}" )
WScript.Sleep 100
sh.SendKeys( "exit{Enter}" )
 
WScript.Quit

启动脚本,传入参数:

1
cscript //Nologo SendMail3.vbs subject-%time% content111

本文转自   zl1030   51CTO博客,原文链接:http://blog.51cto.com/zl1030/1926402
相关文章
|
Windows
按键精灵脚本-windows桌面自动化操作
按键精灵脚本-windows桌面自动化操作
473 0
|
Python Windows
Windows定时任务 每隔一段时间(最小到秒级)执行一次指定的Python脚本
Windows定时任务 每隔一段时间(最小到秒级)执行一次指定的Python脚本
Windows定时任务 每隔一段时间(最小到秒级)执行一次指定的Python脚本
|
7天前
|
Windows
【Windows】 手写脚本更快编辑hosts文件
【Windows】 手写脚本更快编辑hosts文件
9 0
|
4月前
|
存储 数据可视化 数据库
InfluxData【付诸实践 01】Windows环境部署Telegraf+Influxdb+Grafana安装及使用配置(含百度云盘资源+demo脚本)
InfluxData【付诸实践 01】Windows环境部署Telegraf+Influxdb+Grafana安装及使用配置(含百度云盘资源+demo脚本)
71 0
|
6月前
|
网络安全 数据安全/隐私保护 Windows
[笔记] Windows VBS脚本实现自动输入 解放双手 自动测试
[笔记] Windows VBS脚本实现自动输入 解放双手 自动测试
128 0
|
6月前
|
安全 数据可视化 Windows
[笔记]Windows安全之《三》Shellcode 补充之 Get-InjectedThread脚本搭建环境及其使用
[笔记]Windows安全之《三》Shellcode 补充之 Get-InjectedThread脚本搭建环境及其使用
|
8月前
|
Windows
太阳当空照-Windows服务化方式脚本封装sc指令(下)
太阳当空照-Windows服务化方式脚本封装sc指令(下)
74 0
|
8月前
|
Windows
太阳当空照-Windows服务化方式脚本封装sc指令(上)
太阳当空照-Windows服务化方式脚本封装sc指令
121 0
|
9月前
|
Windows
windows双开程序代码脚本
windows双开程序代码脚本
|
10月前
|
缓存 Windows
清理windows缓存bat脚本
清理windows缓存bat脚本
274 0