Использование XML DOM в VB и MS Office/VBA

Листинг 6. Код ASP-страницы для вывода информации о содержимом архива почты

<%@LANGUAGE="VBSCRIPT"%>
<HTML>
<HEAD>
<TITLE>Архив поступающей почты</TITLE>
</HEAD>
<BODY>
<H2>Архив поступающей почты</H2>
<HR>
<%
dim xmlDoc
dim msgNode
dim attachNode
dim returnAddress

set xmlDoc=createObject("Microsoft.XMLDOM")
xmlDoc.load "d:/xmlpro/mailbag.xml" 'server.mapPath("d:/xmlpro/mailbag.xml")
for each msgNode in xmlDoc.selectNodes("//mailItem")
response.write "<H4>"+msgNode.selectSingleNode( _
       "subject").text+"</H4>"

for each attachNode in msgNode.selectNodes( _
      "attachments/attachment")
 response.write "<IMG SRC='" _
    + attachNode.selectSingleNode("pathName").text _
    + attachNode.selectSingleNode("fileName").text _
    + "'><br>"
next
response.write "<p>Адрес отправитель: "
set returnAddress = msgNode.selectSingleNode("senderEmail")
if not (returnAddress is nothing) then
   response.write "<A HREF='"+returnAddress.text+"'>"
end if
response.write msgNode.selectSingleNode("sender").text
if not (returnAddress is nothing) then
   response.write "</A>"
end if
response.write " / время получения "
response.write msgNode.selectSingleNode( _
   "receivedTime").text
response.write "<pre>"+msgNode.selectSingleNode( _
   "body").text+"</pre>"
response.write "<HR>"
next
%>
</BODY>
</HTML>

Возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует