N
navin
Hello All,
I need to read emails from outlook through my webpage and retrieve the
subject line. I am using the below code to do this, but when i test
this, it just hangs around and does nothing and gives timeout error
after sometime.
<head>
<meta http-equiv="Content-Language" content="en-us">
</head>
<%
Const olFolderInbox = 6
Dim msgCount
Set objOutlook = Server.CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
Set objUFolder = objFolder.Folders("Oracle POs")
Set colItems = objUFolder.Items
Set colFilteredItems = colItems.Restrict("[Subject] = '4918852'")
For Each objMessage In colFilteredItems
%>
<table border="1" width="100%" id="table1">
<tr>
<td><%= objMessage.Subject %></td>
</tr>
<%
Next
%>
</table>
Please help and advice on how to read outlook mails? I have searched
on this topic but did not get any solution.
Thank you very much for the help..
Navin
I need to read emails from outlook through my webpage and retrieve the
subject line. I am using the below code to do this, but when i test
this, it just hangs around and does nothing and gives timeout error
after sometime.
<head>
<meta http-equiv="Content-Language" content="en-us">
</head>
<%
Const olFolderInbox = 6
Dim msgCount
Set objOutlook = Server.CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
Set objUFolder = objFolder.Folders("Oracle POs")
Set colItems = objUFolder.Items
Set colFilteredItems = colItems.Restrict("[Subject] = '4918852'")
For Each objMessage In colFilteredItems
%>
<table border="1" width="100%" id="table1">
<tr>
<td><%= objMessage.Subject %></td>
</tr>
<%
Next
%>
</table>
Please help and advice on how to read outlook mails? I have searched
on this topic but did not get any solution.
Thank you very much for the help..
Navin