利用VBA实现139邮箱的自动登录代码怎么写

这篇文章主要为大家分析了利用VBA实现139邮箱的自动登录代码怎么写的相关知识点，内容详细易懂，操作细节合理，具有一定参考价值。如果感兴趣的话，不妨跟着跟随小编一起来看看，下面跟着小编一起深入学习“利用VBA实现139邮箱的自动登录代码怎么写”的知识吧。

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邮箱的自动登录代码怎么写的相关知识点，内容详细易懂，操作细节合理，具有一定参考价值。如果感兴趣的话，不妨跟着跟随小编一起来看看，下面跟着小编一起深入学习“利用VBA实现139邮箱的自动登录代码怎么写”的知识吧。