我遇到一个难题：我用VB自动登陆163邮箱，成功了，并自动点了写信标签，现在想发信，但找不到发送标签及（收信人的地址）的HTML代码，请哪位高手能给我出个主意，谢谢！
我遇到一个难题：我用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 --------------------编程问答-------------------- 晕，如此发邮件，真是...
163的邮箱支持smtp呀 --------------------编程问答-------------------- 想发邮件还是用常规方法做，用hack页面的方法做是很傻的，好好学习SMTP编程吧
--------------------编程问答-------------------- 发送标签及（收信人的地址）的HTML代码在iframe的页面里！ --------------------编程问答--------------------
163老用户可以SMTP，但是貌似2007年后的新用户都不支持SMTP了
--------------------编程问答--------------------
不在呀，我怎么找都找不到--------------------编程问答-------------------- 我这个是新邮箱，smtp邮箱我只知道一点，用UOtlook和foxmail吧，我认为用Web.Document 已经上路，先把这个Document搞清了再学习SMTP编程。也许真的很傻。谢谢指教。以后我一定补上这一课。 --------------------编程问答-------------------- 要好好学习SMTP编程
之前我也做个网站也是这种类型，你可以参考一下：
http://www.miaomu.com
补充：VB , 网络编程
