打印超链接中的附件

Question

我的问题是有关打印电子邮件中超链接附带的附件。

我收到的电子邮件包含1到3个超链接，标题为“下载”（不带引号）。

我需要一个可以提取超链接中的附件并进行打印的宏。

我对VBA一点也不了解，this可能是我想要的最接近的东西。下面的宏（来自上面的链接）用于打开电子邮件中的所有超链接（在浏览器中）。

我只想下载在Outlook中选择的电子邮件的标题为“下载”的超链接中的附件。

感谢您的帮助。

Sub HyperlinkAddress()

Dim msg As Object
Dim oDoc As Object
Dim h As Object

Set msg = ActiveExplorer.Selection.Item(1)

If msg.GetInspector.EditorType = olEditorWord Then

    Set oDoc = msg.GetInspector.WordEditor

    For Each h In oDoc.Hyperlinks
        Debug.Print "Displayed text: " & h.TextToDisplay & vbCr & " - Address: " & h.Address
        h.Follow
    Next

End If

Set msg = Nothing
Set oDoc = Nothing
Set h = Nothing

End Sub