【让Google-Gmail 能够自动化发送邮件】
来源:互联网 发布:达内云笔记项目源码 编辑:程序博客网 时间:2024/06/02 10:34
Google的GMAIL相信大家都知道,基本上人人拥有,它以简约的风格和方便的操作赢得了许多专业人士的好评,这两天没事自己用IE自动化模型以及HTML DOM写了一个自动化GMAIL的VBScript脚本。
必要条件:
- 因为是VBS,所有电脑都支持,不需要安装任何工具
- 需要有Gmail帐号和密码
脚本如下:
'**********************定义变量**********************
Dim gmail_username ' GMAIL用户名
Dim gmail_password ' GMAIL密码
Dim mail_to ' 需要发送的邮箱
Dim mail_subject ' 需要发送的标题
Dim mail_content ' 需要发送的内容
'********************** 初始化 **********************
gmail_username=""
gmail_password=""
mail_to= "zzxxbb112@163.com"
mail_subject="test"
mail_content="hi,zzxxbb112,您好"
'********************** script **********************
On Error Resume Next
'错误继续执行
Set oIE=CreateObject("InternetExplorer.Application")
'创建对象
oIE.Visible = True
'设置可见
oIE.Navigate "http://www.gmail.com"
'跳转URL
While oIE.Busy: Wend
'等待页面刷新完毕
With oIe.Document
.GetElementById("Email").value=gmail_username
.GetElementById("Passwd").value=gmail_password
.GetElementsByName("signIn")(0).click
End With
'登录GMAIL
While oIE.Busy: Wend
'等待页面刷新完毕
WScript.Sleep 5000
'等待2秒
Set oWsh=CreateObject("wscript.shell")
oWsh.SendKeys "{enter}"
Set oWsh=Nothing
'安全框确定
oIE.Navigate "https://mail.google.com/mail/?ui=html&zy=e"
'跳转URL 标准HTML版本
While oIE.Busy: Wend
'等待页面刷新完毕
For Each a In oIE.Document.GetElementsByTagName("A")
If a.innertext="撰写邮件" Then
a.click
Exit For
End If
Next
'点击撰写邮件
While oIE.Busy: Wend
'等待页面刷新完毕
With oIE.Document
.GetElementByID("to").value=mail_to
.GetElementsByName("subject")(0).value=mail_subject
.GetElementsByName("body")(0).innertext=mail_content
.GetElementsByName("nvp_bu_send")(0).click
End With
'写MAIL
WScript.Sleep 3000
While oIE.Busy: Wend
'等待页面刷新完毕
For Each a In oIE.Document.GetElementsByTagName("A")
If a.innertext="退出" Then
a.click
Exit For
End If
Next
'点击退出
oIE.Quit
'关闭浏览器
Set oIE=Nothing
'释放资源
'********************** end **********************
使用方法:
- 修改初始化中的5个参数,具体说明看脚本中的注释。
- 另存为以上脚本为 *.vbs文件,双击直接运行。
总结:
此脚本同样适合学习自动化测试的朋友,IE自动化模型和HTML DOM对于WEB自动化测试是非常重要的两种技术,感兴趣的朋友也可以去W3C学习下。
原文地址:http://blog.csdn.net/zzxxbb112/category/652993.aspx
- 【让Google-Gmail 能够自动化发送邮件】
- 【让Google-Gmail 能够自动化发送邮件】
- 让Google-Gmail 能够自动化发送邮件
- 用gmail发送邮件
- [原创]在Managed Code通过Google Gmail发送邮件以及如何通过Outlook配置Gmail
- 用Gmail成功发送邮件
- 如何使用GMail发送邮件
- C#使用Gmail发送邮件
- PHP 利用Gmail发送邮件
- 利用javamail 发送gmail邮件
- phpmailer发送gmail邮件实例
- javamail 发送gmail 邮件 例子
- Android 调用Gmail发送邮件
- Yii 使用gmail发送邮件
- C#使用gmail发送邮件
- Python 使用Gmail发送邮件
- java 用gmail邮件服务器 发送邮件
- C#发送QQ邮件和GMAIL邮件
- PHP: How to Get the Current Page URL
- 将表的字段的类型转换
- Matlab处理图像二三例
- CHM文件傻瓜式制作实例
- Erase VB.NET
- 【让Google-Gmail 能够自动化发送邮件】
- 如何设计数据库表实现完整的RBAC(基于角色权限控制)
- 2010-05-11 做梦
- 汇编向函数传参数
- autodel自动化删除日志文件脚本
- 表格特效代码全集
- 采用HttpModules来重写URLs
- 基于角色的权限管理数据库设计(RBAC)
- 谈Flex组件的生命周期