About AspPOP3

AspPOP3 allows you to receive mail using the industry standard POP3 protocol from any program that can use ActiveX/OLE components. Features include:

1. POP3 (retrieve) Messages
2. Multiple File Attachments
3. File attachments support MIME and UUEncoding
4. US Ascii and ISO-8859-1 character sets
5. Exposes standard headers via properties and special properties via a method.

Simple Retrieve Mail Example

Using the component is as simple as

1. Creating the object
2. Setting a few properties
3. Calling the Retrieve method

Download AspPop3 Sample Files (2k, zip file)

The following code demonstrates how to use AspPOP3 from VBScript.

Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mailhost.localisp.net"
Mailer.UserName   = "myname"
Mailer.Password   = "mypassword"
Mailer.OpenPop3
'We could do multiple retrieves here but this demo only shows the selected message.
Mailer.MailDirectory = "d:\usermail\myname"
Mailer.RetrieveToFile 1, "1.txt"
Mailer.ClosePop3

The file d:\usermail\myname\1.txt now holds the complete message text for this message. You could optionally do the following:

Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mailhost.localisp.net"
Mailer.UserName   = "myname"
Mailer.Password   = "mypassword"
Mailer.OpenPop3
'We could do multiple retrieves here but this demo only shows the selected message.
Mailer.Retrieve 1
Mailer.ClosePop3

You can now use Mailer's properties to examine each part of the message. For example:

Mailer.MessageID
Mailer.Date
Mailer.Subject
Mailer.FromName
Mailer.FromAddress
Mailer.BodyText

And so on, contain the respective message properties.

Notes About Creating the Pop3 Object

You can create the mailer object at three different points in time:

• Immediately before retrieving email
• At the application scope
• At the session scope

You will have to decide when and where it is appropriate to create the object based on your particular application. If you aren't sure which way to create the object reference, or for typical usage, you should create the object immediately before retrieving your email. Your code would look like this:

Set Mailer = Server.CreateObject("POP3svg.Mailer")
... [Set properties]
if Mailer.Retrive intMsgNo then ...

Creating these local references, as demonstrated above, allow you to use the object on multiple application threads at the same time.

If you wish to create and reuse the object at the application or session scope you must insure that only one user is using the application or session object reference using some queing mechanism. To create an object reference at the application scope your code would look something like this:

if Not IsObject (Application("Mailer")) then
  Set Mailer = Server.CreateObject("POP3svg.Mailer")
  Application.Lock
  Set Application("Mailer") = Mailer
  Application.Unlock
else
  Response.write "Cached application object reference being used<p>"
  Set Mailer = Application("Mailer")
end if

Finally, to create an object reference at the session level, your code might look something like this:

if Not IsObject (session("Mailer")) then
  Set Mailer = Server.CreateObject("POP3svg.Mailer")
  Set session("Mailer") = Mailer
else
  Response.write "Cached session object reference being used<p>"
  Set Mailer = session("Mailer")
end if

Questions about AspPOP3

AspPOP3 Properties

if Mailer.GetAttachmentInfo (intCount) then
  Response.Write "ContentType=" & Mailer.AttContentType

if Mailer.GetAttachmentInfo (intCount) then
  Response.Write "FileName=" & Mailer.AttFileName

if Mailer.GetAttachmentInfo (intCount) then
  Response.Write "File Size=" & Mailer.AttFileSize

Mailer.Retrieve intMsgNumber
Response.Write "This message has " & Mailer.AttachmentCount & " attachments"

Mailer.Retrieve intMsgNumber
Response.Write "This message is " & Mailer.BodyText

If Mailer.Encoding = 1 then Response.Write "UUEncoded"

Response.Write "From " & Mailer.FromAddress

Response.Write "From " & Mailer.FromName

if Mailer.MessageCount = 0 then
  Response.Write "There are no messages on the server."
end if

if Mailer.Priority = 1 then
  Response.Write "This message is high priority"
end if

If Mailer.ReturnReceipt then
  'User expected return receipt on this message
end if

AspPOP3 Component Methods