让Google-Gmail 能够自动化发送邮件

 

      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学习下。

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值