何度か聞か れていることを知っているので、この質問をもう一度するのはばかだと思います。私の人生では、すでに提供されている回答でもこのコードを機能させることはできません。そのため、現在のコードを提供することで、誰かが私が間違っている場所を特定するのを手伝ってくれることを願っています:
Dim RSSReader As New Xml.XmlTextReader("https://stackoverflow.com/feeds")
Dim RSSDoc As New Xml.XmlDocument()
Dim NSMgr As New Xml.XmlNamespaceManager(RSSDoc.NameTable)
NSMgr.AddNamespace("atom", "http://www.w3.org/2005/Atom")
RSSDoc.Load(RSSReader.GetRemainder())
RSSReader.Close()
For Each Node As Xml.XmlNode In RSSDoc.SelectNodes("atom:entry", NSMgr)
AddAtomMessage(Account, Node)
Next
上記のコードに基づいて、For/Each 行の「SelectNodes」によってノードが返されないため、「AddAtomMessage」メソッドは実行されません。