read email inbox ASP

DrRakha

read content of email inbox using SMTP in asp

Code:

<html>

<%

 Dim objSession, strEmail, strEmails, objInbox, intCurrentID
 'create an instance of the CDONTS.Session object
 objSession = Server.CreateObject("CDONTS.Session")
 'use SMTP protocal to create session to email account .
 objSession.LogonSMTP("emailpassword", "[email protected]")
 'get content of inbox.
 objInbox = objSession.Inbox
 'get all messages in inbox folder.
 strEmails = objInbox.Messages
 intCurrentID = Trim(Request.QueryString("MsgId"))
 Response.Write("Email inbox content:")
 If ("" = intCurrentID Or Not IsNumeric(intCurrentID)) Then
 ' loop on emails.
 ' show list of emails.
 Dim intCount = 0
 For Each strEmail In strEmails
 intCount = intCount + 1
 'create a link to email message.
 Response.Write("<a href=""")
 Response.Write(Request.ServerVariables("SCRIPT_NAME"))
 Response.Write("?MsgId=" & intCount & """>" & strEmail.Subject)
 Response.Write("</a>")
 Response.Write(" Sender : " & strEmail.Author)
 Response.Write(" ")
 Next
 Else
 strEmail = strEmails(intCurrentID)
 Response.Write("Email Subject : " & strEmail.Subject & " ")
 Response.Write("Email Sender : " & strEmail.Sender & " ")
 Response.Write("Email Message : " & strEmail.Text)
 End If
 'close session.
 objSession.LogOff()
%>
</html>

Java

C/C++

PHP

C#

HTML

CSS

ASP

Javascript

JQuery

AJAX

XSD

Python

Matlab

R Scripts

Weka

read email inbox ASP

Topic Tags