批量获取邮件中的超链接地址

收到一封邮件，50个链接需要下载，可以通过以下方法导出到txt文本，再用脚本批量下载。
1、复制邮件正文到excel；
2、插入宏
Sub ExtractHL()

    Dim HL As Hyperlink

    For Each HL In ActiveSheet.Hyperlinks

    HL.Range.Offset(0, 1).Value = HL.Address

    Next

    End Sub

3、执行宏，单元格的又边一格会显示超链接地址；
4、将链接复制粘贴到文本文档即可