Help
Para fazer a conexão é possuir o endereço IP ou nome do servidor onde queremos conectar ( Ex: pop3.provedor.com.br ). Tendo esta informação, vamos ver como iniciar o código de conexão no exemplo abaixo:
connect_pop3.asp
<%
'Vamos criar o Objeto;
Dim Mailer
Set Mailer = Server.CreateObject("POP3svg.Mailer")
'Servidor de E-mail à ser conectado;
Mailer.RemoteHost = "pop3.provedor.com.br"
'Coloque o Login e a Senha para abrir a conta;
Mailer.UserName = "Login"
Mailer.Password = "Senha"
'Abre a conexão POP3
Mailer.OpenPop3
%>A conexão com o servidor de mensagens POP3, foi estabelecida, você pode fazer uma série de operações, como listar mensagens, ler, apagar ... etc ... aqui vamos apenas mostrar como listar e ler as mensagens, as demais funcionalidades, podem ser conferidas no site do fabricante. A seguir, veremos exemplos de dois arquivos, um monta a lista de mensagens e o segundo faz a leitura de uma determinada mensagem. Vamos ver abaixo, o arquivo que lista as mensagens:
list_pop3.asp
<%
'Abre a conexão
Dim Mailer
Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "pop3.provedor.com.br"
Mailer.UserName = "Login"
Mailer.Password = "Senha"
Mailer.OpenPop3
'Verifica o número de mensagens no servidor
Dim iMessages
iMessages = Mailer.MessageCount
Response.Write "Existem " & iMessages & " mensagens no servidor.<p>"
Dim iLoop
'Montando uma tabela
Response.Write "<table border=1 align=center cellspacing=1>"
Response.Write "<tr><th> </th><th>Assunto</th><th>De</th></tr>"
'Faz um Loop com todas as mensagens
For iLoop = 1 to iMessages
If Mailer.Retrieve(iLoop) then
Response.Write "<tr>"
Response.Write "<td><a href=""read_pop3.asp?ID=" & _
iLoop & """>Ler Msg</a></td>"
Response.Write "<td>" & Mailer.Subject & "</td>"
Response.Write "<td>" & Mailer.FromName & " (<a href=""mailto:""" & _
Mailer.FromAddress & """>" & Mailer.FromAddress & _
"</a>)</td>"
Response.Write "</tr>"
End If
Next 'iLoop
Response.Write "</table>"
'Fecha a Conexão
Mailer.ClosePop3
%> Estamos listando as mensagens na caixa postal a qual você usou para se conectar. Vamos ver agora, como fica o código referente a página que retorna uma mensagem escolhida para leitura.
read_pop3.asp
<%
'Abre a conexão
Dim Mailer
Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "pop3.provedor.com.br"
Mailer.UserName = "Login"
Mailer.Password = "Senha"
Mailer.OpenPop3
'Retorna a mensagem escolhida
If Mailer.Retrieve(Request("ID")) Then
Response.Write "<b>Assunto</b>: " & Mailer.Subject & "<br>"
Response.Write "<b>Mensagem</b>: <pre>" & _
Server.HtmlEncode(Mailer.BodyText) & "</pre><br>"
Else
'Retorna um erro caso id incorreto;
Response.Write "Mensagem Nº " & Request("ID") & " não foi encontrada..."
End If
'Fecha a conexão
Mailer.ClosePop3
%>
