AspPOP3 2.x

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.

Changes in AspPOP3 2.0

AspPOP3 2.0 builds on the functionality of AspPOP3 1.0 by replacing the POP3 "plumbing" with an improved implementation, provides automatic decoding of file attachments, provides a complete type library and provides dual interface support.

AspPOP3 Installation

To use this ASP component move the DLL into a subdirectory (like \winnt\system32 for NT or \windows\system for Win95). Please use the version of regsvr32 that is included with this component or the version that comes with Microsoft ASP (they are the same version).

To register the component on the system change to the directory where you installed the DLL and type:

regsvr32 pop3svg.dll

You may need to modify this example based on the directory you have installed the component to.

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

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.MailDirectory = "d:\usermail\myname"
Mailer.OpenPop3

rem We could do multiple retrieves here but this demo only shows the
rem  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

rem We could do multiple retrieves here but this demo only shows the
rem  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

About purchasing AspPOP3

1. The registration license fee covers only one CPU per license.Dual CPU systems require one license for each CPU. You can purchase by following the link from http://www.serverobjects.com/products.htm.

About Upgrades

1. Users can upgrade for free for minor version changes. For example, upgrades from version 1.00 to 1.99 are free. The upgrade from 1.99 to 2.0 may carry an additional license fee.
2. The latest version of the components are always available at http://www.serverobjects.com/products.htm. If a fee is associated with obtaining the upgrade it will be noted on that page.

Upgrade Instructions

To upgrade the component from a previous version please follow these steps:

1. Stop all IIS related services such as Gopher, FTP and W3SVC.
2. Change to the directory where the component is located and type "regsvr32 /u pop3svg.dll"
3. Move the new copy of pop3svg.dll to the current directory and type "regsvr32 pop3svg.dll"
4. Restart the necessary services.

Questions about AspPOP3

If Mailer.GetPopHeader (1) Then
  Response.Write Mailer.GetHeaderField("Message-Id")
End If

Technical Support

If you require technical support please see our tech support page at http://www.serverobjects.com/support.htm

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
  rem User expected return receipt on this message
end if

AspPOP3 Component Methods