IE 取得打开网页中的所有email地址源码

<script language="VBScript">
    On Error Resume Next
    set links = external.menuArguments.document.links    //取得网页文档中的所有连接
    finded = 0
    echostr = ""
    for i = 0 to links.length-1   //循环遍历每一个连接
        if StrComp(Left(links(i).href, 7), "mailto:") = 0 then   //查看是否是邮件地址连接，查找"mailto:"
            echostr = echostr  + links(i).href + chr(13) + chr(10)  //所有的邮件地址组织成一个字符串，使用空格格开
            finded = finded + 1
        end if
    next
    clipboardData.setData "Text", echostr
    if finded <> 0 then
        alert echostr
    end if
</script>