如何点击Hotmail邮箱里面的链接那？

Question

<UL id=MoveTo_dropdown class=c_m onclick=$menu.closeCurrent();>
    <LI> <A title=收件箱 href="javascript:;"
    fid="00000000-0000-0000-0000-000000000001" aId="MoveTo">
    <DIV>收件箱 </DIV> </A>
    <LI> <A title=垃圾邮件 href="javascript:;"
    fid="00000000-0000-0000-0000-000000000005" aId="MoveTo">
   

onclick="PerfRecorder.startTimer(false, 'VI-LN');" srchKw="" ft="i" fst="INBOX"
fid="00000000-0000-0000-0000-000000000001">
  <LI id=00000000-0000-0000-0000-000000000001
  class="FolderItemSelected BoldText" fid="fid" d="1" count="1"> <A
  title="收件箱 (1)" href="javascript:;"> <SPAN class=Caption>收件箱 <SPAN
  style="DISPLAY: inline">( <SPAN>1 </SPAN>) </SPAN> </SPAN> </A> </LI>
  <LI id=00000000-0000-0000-0000-000000000005 fid="fid" d="1" count="0"> <A
  title=垃圾邮件 href="javascript:;"> <SPAN class=Caption>垃圾邮件 <SPAN
  style="DISPLAY: none">( <SPAN> </SPAN>) </SPAN> </SPAN> </A> </LI>


<TBODY
  
>
  <TR id=9e508723-c490-4be7-806d-61c78cbe9568 class=InboxContentItemUnread
  mad="10|0|8CC7C2268718640||" msg="msg">
    <TD class=Chk name="msgChkCell" unselectable="on"> <INPUT title=选择邮件
      type=checkbox name=msgChk> </TD>
    <TD class=Ico> <IMG class=i_new alt=未读
      src="http://bl148w.blu148.mail.live.com/mail/clear.gif"> </TD>
    <TD class=Frm> <A>Windows Live Hotmail 成员服务 </A> </TD>
    <TD class=Imp> </TD>
    <TD class=Att> </TD>
    <TD class=Sbj> <A href="javascript:;">开始使用 Windows Live Hotmail‏ </A> </TD>
    <TD class=Dat>6:51 </TD> </TR> </TBODY> </TABLE> </DIV> </DIV>
<DIV class="PaginationContainer BorderTop">
<DIV class=PageNavigationMsgRange>1 封邮件 </DIV>


网页的部分代码

晕死，原来这个代码点击草稿好用来着，现在又用不了了
Dim aSet As Object
Dim Str1 As String
Dim i
Str1 = "草稿"        '判断是否为要点击的A标签的特征字符
'历遍所有A标签，查找含有"发送"字符的A标签并点击
Set aSet = WebBrowser1.Document.All.tags("a")
For i = 0 To aSet.Length - 1
    If (InStr(1, aSet(i).innerText, Str1)) Then
      aSet(i).onclick

如何点击收件箱，然后再点击邮件查看邮件那