VBA自动登陆163信箱

原创 2007年10月01日 18:22:00

 Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All(9).Value = "myusername"
.Document.Forms(0).All(13).Value = "mypassword"
.Document.Forms(0).All(35).Click
End With
MsgBox "Ok"
End Sub

或者:

Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All("username").Value = "myusername"
.Document.Forms(0).All("password").Value = "mypassword"
.Document.Forms(0).All("登录邮箱").Click
End With
MsgBox "Ok"
End Sub

附:

Sub show163tags()
Dim i As Byte
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
On Error Resume Next
For i = 1 To 100
If Len(.Document.Forms(0).All(i).Name) > 0 Then Debug.Print "i=" & i; "  name=" & .Document.Forms(0).All(i).Name
Next
End With
MsgBox "ok"
End Sub

返回:

i=9  name=username
i=13  name=password
i=17  name=selType
i=24  name=remUser
i=26  name=secure
i=35  name=登录邮箱
i=40  name=登录网盘
i=62  name=style
i=63  name=product

vb发送邮件接收邮件vba邮箱操作方法

vb发送邮件接收邮件vba邮箱操作方法 一般可以用jmail的DLL进行收发邮件,适合服务器,单机使用。 也可以用cdo组件发送邮件,或者用OUTLOOK等客户端配套使用。 也可用WINSOCK...
  • xiaoyao961
  • xiaoyao961
  • 2014年11月28日 00:29
  • 2141

EXCEL VBA 发邮件示例

  • 2008年10月17日 21:29
  • 28KB
  • 下载

VBA,VB 自动登录网站

很多时候大家都需要登录网站, 查询一下信息。可不可以在office中登录呢?可以,用VBA即可。需要添加到引用  Microsoft Internet Controls  Microsoft HTML...
  • to_gengqing
  • to_gengqing
  • 2010年04月18日 11:46
  • 1876

Outlook VBA编程手册

  • 2008年05月06日 15:46
  • 601KB
  • 下载

vba 发邮件

vba 发送邮件 ,outlook有一个程序正在试图以您的名义发送电子邮件
  • liliaq
  • liliaq
  • 2017年02月10日 10:08
  • 852

VBS 自动登陆新浪信箱

VBS 自动登陆新浪信箱 Set ie = CreateObject("internetexplorer.application") set sh=WScript.CreateObject("...
  • xiaotao_liu
  • xiaotao_liu
  • 2013年01月04日 16:20
  • 594

163邮箱自动登陆python+selenium

python+selenium实现163邮箱自动登陆 让我们先来预览一下代码运行效果吧: 现在直接主题,首先分析163邮箱登陆页面的网页结构:(按F12或单击鼠标右键选择审查元素) 1、...
  • qq_34120459
  • qq_34120459
  • 2018年01月28日 19:52
  • 32

在命令行下收发邮件

今天,看到网上介绍说用命令行下来收发邮件,因此具体写一下过程.收邮件: 打开“开始”菜单中的“运行”对话框,输入命令telnet 及远程服务器端口号,如: telnet pop3.163.com...
  • greenerycn
  • greenerycn
  • 2007年02月17日 17:23
  • 3427

Excel VBA开发自动发送邮件

本案例用Excel VBA调用Outlook自动发送邮件
  • chenxianping
  • chenxianping
  • 2017年04月27日 17:37
  • 2767

基于Python+Selenium2登录163邮箱实例--纯干货

一、业务流程: 1、打开浏览器,自动填写用户名和密码,登录成功后跳转到相应的页面。 2、验证相应页面的url与给定的url是否一致,如果一致则测试通过,如果不一致,则不通过。 3、另外,在执行过程中如...
  • andyzhouh
  • andyzhouh
  • 2017年06月13日 16:08
  • 468
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBA自动登陆163信箱
举报原因:
原因补充:

(最多只允许输入30个字)