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

最新推荐文章于 2024-06-19 23:21:33 发布

chenlia

最新推荐文章于 2024-06-19 23:21:33 发布

阅读量2.9k

点赞数

分类专栏： IT界新闻文章标签： gmail 脚本 vbscript html each 测试

IT界新闻专栏收录该内容

6 篇文章 0 订阅

订阅专栏

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 **********************