利用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郵箱的自動登錄代碼怎么寫”的知識吧。