我遇到一个难题:我用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

解决方案 »

  1.   

    晕,如此发邮件,真是...
    163的邮箱支持smtp呀
      

  2.   

    想发邮件还是用常规方法做,用hack页面的方法做是很傻的,好好学习SMTP编程吧
      

  3.   

    发送标签及(收信人的地址)的HTML代码在iframe的页面里!
      

  4.   

    163老用户可以SMTP,但是貌似2007年后的新用户都不支持SMTP了
      

  5.   

    我这个是新邮箱,smtp邮箱我只知道一点,用UOtlook和foxmail吧,我认为用Web.Document 已经上路,先把这个Document搞清了再学习SMTP编程。也许真的很傻。谢谢指教。以后我一定补上这一课。
      

  6.   

    要好好学习SMTP编程之前我也做个网站也是这种类型,你可以参考一下:
    http://www.miaomu.com