Lotus Notes - Buscar texto en archivo .xml anexo a correo Lotus Notes

Public Function getDOM() As Variant

		Dim oXML As Variant

		Set oXML  = CreateObject( "Msxml2.DOMDocument" )

		oXML.async = False

		oXML.resolveExternals = False

		Set getDOM = oXML

End Function

Public Function getDomFromURI( sURI As String ) As Variant

		Dim oXML As Variant

		Set oXML = getDom()

		Call oXML.load( sURI )

		If oXML.parseError.errorCode <> 0 Then

			Error 9999 , oXML.parseError.reason & " - " & oXML.parseError.srcText

		End If

		Set getDomFromURI = oXML

End Function

Set oXML = getDomFromURI("c:\temp\file.xml")

Call oXML .setProperty("SelectionLanguage", "XPath")

Set nodeBook = xmlDoc.selectSingleNode("//book");

If nodeBook .getAttribute("aqui el nombre del atributo") = "1" Then

    bla bla bla ....

End If

Set currNode = oXML .selectSingleNode("//book/author")

MsgBox(currNode.text)