strXmlData = « [email protected] [email protected] ; email de [email protected] ; email d'email ; envoyer le dkfj soumis d, fkjdkjl de kdkfj de workds de d, djfkjd, kdfkdjfkd d'akjkjfkjdk, jkdjkjdfkjaldfj de DF »
'Charger les données de XML
placer l'objXML = le CreateObject (« Microsoft.XMLDOM »)
objXML.Async = « faux »
objXML.LoadXML (strXmlData)
'Faire une boucle par tous les noeuds et montrer leurs valeurs
Pour chaque objNode dans objXML.DocumentElement.ChildNodes
Wscript.Echo objNode.Nodename et « = » et objNode.Text
Après
'Accéder aux noeuds de nom, et les assigner aux variables
strMailFrom = objXML.GetElementsByTagName (« MailFrom »). Article (0). Texte
strMailTo = objXML.GetElementsByTagName (« MailTo »). Article (0). Texte
strMailCc = objXML.GetElementsByTagName (« MailCc »). Article (0). Texte
strMailBcc = objXML.GetElementsByTagName (« MailBcc »). Article (0). Texte
strMailSubject = objXML.GetElementsByTagName (« MailSubject »). Article (0). Texte
strMailBody = objXML.GetElementsByTagName (« MailBody »). Article (0). Texte
'Valeurs variables d'affichage
Wscript.Echo « strMailFrom= » et strMailFrom
Wscript.Echo « strMailTo= » et strMailTo
Wscript.Echo « strMailCc= » et strMailCc
Wscript.Echo « strMailBcc= » et strMailBcc
Wscript.Echo « strMailSubject= » et strMailSubject
Wscript.Echo « strMailBody= » et strMailBody
|