如何在MS Outlook中从RSS删除链接

Question

我有几个RSS feed的列表，所有RSS feed都链接到StackOverflow主题。我通读了这些内容，并尝试不时学习一些新的技巧，并且只要有解决方案，就尝试回答问题。我想知道是否有一种方法可以在Outlook中使用VBA来测试链接的有效性。如果链接正确，我想将其保留在我的RSS列表中，如果链接错误，则要删除它。

以下是链接错误的示例：

https://stackoverflow.com/questions/50788651/number-guessing-game-python-3-player-chooses-bounds

您无法通过URL中的任何字符串来辨别，但是当您单击URL时，会收到一条消息，内容为“找不到页面”。

以下是一个很好的链接示例：

Getting MS-Outlook embedded images and saving them within the file system using MS-Access VBA

当您点击链接时，您看不到任何显示“找不到页面”的语言。

我在下面有一段代码，如果主题包含语言“ [保持中]”，它将删除RSS项。不过，这就是主题，它甚至无法测试链接是否包含“找不到页面”语言

Sub GetRssItem()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim subFolder As Outlook.Folder
Dim myItem As Object
Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderRssFeeds)
For i = 1 To 18
Set subFolder = myFolder.Folders(i)
   Debug.Print subFolder
      For Each myItem In subFolder.Items
        If InStr(myItem.Subject, "[on hold]") > 0 Or _
            InStr(myItem.Subject, "[closed]") > 0 Then
            Debug.Print myItem.Subject
            myItem.Delete
        End If
      Next myItem
Next i
End Sub

期待有启发性的讨论。谢谢。