strXmlData = „ [email protected] [email protected]; [email protected] e-mail; e-mail e-mail; e-mail Onderwerp workds kdkfj dkfj D, D fkjdkjl, djfkjd, akjkjfkjdk kdfkdjfkd, df jkdjkjdfkjaldfj “
'Van de lading Xml- gegevens
reeks objXML = CreateObject („Microsoft.XMLDOM“)
objXML.Async = „Vals“
objXML.LoadXML (strXmlData)
De 'lijn door alle knopen en toont hun waarden
Voor Elke objNode in objXML.DocumentElement.ChildNodes
Wscript.Echo objNode.Nodename & „=“ & objNode.Text
Daarna
De 'knopen van de toegang door naam, en wijzen aan variabelen toe
strMailFrom = objXML.GetElementsByTagName („MailFrom“). Punt (0). Tekst
strMailTo = objXML.GetElementsByTagName („MailTo“). Punt (0). Tekst
strMailCc = objXML.GetElementsByTagName („MailCc“). Punt (0). Tekst
strMailBcc = objXML.GetElementsByTagName („MailBcc“). Punt (0). Tekst
strMailSubject = objXML.GetElementsByTagName („MailSubject“). Punt (0). Tekst
strMailBody = objXML.GetElementsByTagName („MailBody“). Punt (0). Tekst
'De veranderlijke waarden van de vertoning
Wscript.Echo „strMailFrom=“ & strMailFrom
Wscript.Echo „strMailTo=“ & strMailTo
Wscript.Echo „strMailCc=“ & strMailCc
Wscript.Echo „strMailBcc=“ & strMailBcc
Wscript.Echo „strMailSubject=“ & strMailSubject
Wscript.Echo „strMailBody=“ & strMailBody
|