布吉京南华庭:我遇到一个难题：我用VB自动登陆163邮箱，成功了，并自动点了写信标签，现在想发信，但找不...

来源：百度文库编辑：中财网时间：2024/05/03 08:44:42

我遇到一个难题：我用VB自动登陆163邮箱，成功了，并自动点了写信标签，现在想发信，但找不到发送标签及（收信人的地址）的HTML代码，请哪位高手能给我出个主意，谢谢！
下面是源程序

Dim gj As Boolean
Sub Form_Load()
Web.Navigate "http://mail.163.com/"
'While Web.ReadyState <> 4: DoEvents:Wend
End Sub
Private Sub Web_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
On Error Resume Next 'If URL <> "" Or PostData <> "" Then SAVF URL, POSTDATE 'not is empty
End Sub
Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As IHTMLDocument2
Dim rr As DOMChildrenCollection
On Error Resume Next
Set doc = Web.Document
Dim ctag
Dim tmp As String
If InStr(doc.nameProp, "163网易") > 0 Then '
doc.All.Item("username").focus 'id
doc.All.Item("username").Value ="XXXXX"
doc.All.Item("Password").Value = "*****"
Set ctag = doc.All.Item("登录邮箱")
If ctag.Type = "submit" Then
End If
ctag.Click
End If
If InStr(doc.nameProp, "网易电子邮箱") > 0 And gj = 0 Then
Set ctag = doc.frames(0)
Set rr = ctag.Document.All.Item("set_a_line_area3")
For i = 0 To rr.All.length - 1 '.className("gWmBtn").focus
Set ctag = rr.All(i)
If ctag.className = "gWmBtn" Then '在这是重复运行设计boon跳过
If (Not pDisp Is Web.Object) Then Exit Sub '判断当前网页是否调入完毕
ctag.Click
DoEvents
gj = True
Exit For
End If
Next
End If
End Sub

我遇到一个超难题我遇到了一个难题(急) 我遇到了难题。我遇到难题了? 我遇到的难题大家好我遇到一个难题我想找个人我一个朋友遇到的法律方面的难题向全世界的网民宣布我遇到了一个难题我的一个好朋友遇到了难题！爱情高手进！我在重新安装XP系统遇到一个难题遇到了一个难题大家帮我看看~ 我遇到了电脑难题！！！帮帮我,我遇到难题拉小弟遇到一个难题！！！我遇到难题了，请高手指点！遇到难题了，大家帮帮我！！！我遇到的一道数学难题我遇到的一道数学难题高手进来啊，我遇到难题了如果遇到难题,我应该怎么办？我的一位朋友遇到的难题我遇到的英语学习的难题我遇到感情难题，请高人赐教！！我遇到难题了!请帮忙一下