利用VBA实现139邮箱的自动登录代码怎么写
导读:本文共1233.5字符,通常情况下阅读需要4分钟。同时您也可以点击右侧朗读,来听本文内容。按键盘←(左) →(右) 方向键可以翻页。
摘要: hao268网站,风格清新,无任何广告,实在是良心之作。其首页中的邮箱账户,可以方便的直达各个常用邮箱。本程序利用VBA,实现139邮箱的自动登录。<select id="hao_mail_options" onChange="MailLogin.change(this)"><option><... ...
目录
(为您整理了一些要点),点击可以直达。hao268网站,风格清新,无任何广告,实在是良心之作。其首页中的邮箱账户,可以方便的直达各个常用邮箱。本程序利用VBA,实现139邮箱的自动登录。
<select id="hao_mail_options" onChange="MailLogin.change(this)">
<option></option><option>@163.com</option><option>@qq.com</option><option>@126.com</option><option>@yeah.net</option><option>@sina.com</option><option>@sohu.com</option> <option>@21cn.com</option> <option>@188.com</option> <option>@aliyun.com</option> <option>@189.cn</option> <option>@139.com</option> <option>@gmail.com</option> <option>@hotmail.com</option> <option disabled="disabled">--其它帐号--</option> <option>百度帐号</option> <option>新浪微博</option> <option>QQ空间</option><option>支付宝</option><option>人人网</option>
<option>开心网</option><option>知乎帐号</option></select>
'@139.com是第11个元素
Sub 邮箱登录()
On Error Resume Next
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate "https://www.hao268.com"
Do Until ie.ReadyState = 4
DoEvents
Loop
With ie.Document
.getelementbyid("hao_mail_username").Value = "yourname"
.getelementbyid("hao_mail_options")(11).Selected = True'选中@139.com
.getelementbyid("hao_mail_passwd").Value = "yourpassword"
.getElementById("emailsubmit").Click
End With
End Sub
利用VBA实现139邮箱的自动登录代码怎么写的详细内容,希望对您有所帮助,信息来源于网络。