Ciao Ragazzi
vorrei leggere la posta su un server pop3 tramite ASP, ho visto che bisogna installare sul server un'oggetto com che sarebbe il connettore e per esempio si può usare jmail solo che nella versione free con gli script molto banali che ho trovato in rete quando fa la connessione mi dice che in questa licenza non è supportato, volevo quindi sapere se conoscete qualche connettore free che permette di leggere la posta tramite asp.
Grazie
Ciao
usa i frame...
nella parte centrale metti i campi user e pwd e la form la fai puntare alla action della webmail
grazie per la risposta ma non è quello che cerco devo proprio leggere da asp tramite un connettore pop3 la posta, non mi serve una webmail classica, in realtà questa pagina asp si va ad inserire in una serie di webservices che già faccio girare sul server... come servizi
funzionerebbe tutto perfettamente con lo script qui sotto se solo la versione di jmail free lo permettesse...
questo è il codice asp che utilizzo ... nessuno conosce un connettore pop3 gratuito simile a jmail?
<% @LANGUAGE=VBSCRIPT %>
<%
'*************************************************
'* *
'* Produced by Dimac *
'* *
'* More examples can be found at *
'* http://tech.dimac.net *
'* *
'* Support is available at our helpdesk *
'* http://support.dimac.net *
'* *
'* Our main website is located at *
'* http://www.dimac.net *
'* *
'*************************************************
Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect "username", "password", "mail.mydomain.com"
Response.Write( "You have " & pop3.count & " mails in your mailbox!
" )
if pop3.count > 0 then
Set msg = pop3.Messages.item(1) ' Note the first element of this array is 1
' since the POP3 server starts counting at 1
ReTo = ""
ReCC = ""
Set Recipients = msg.Recipients
separator = ", "
' We now need to get all the recipients,
' both normal and Carbon Copy (CC) recipients
' and store them in a variabel
For i = 0 To Recipients.Count - 1
If i = Recipients.Count - 1 Then
separator = ""
End If
Set re = Recipients.item(i)
If re.ReType = 0 Then
ReTo = ReTo & re.Name & "(" & re.EMail & ")" & separator
else
ReCC = ReTo & re.Name & "(" & re.EMail & ")" & separator
End If
Next
' This function iterates through the Attachments object,
' and saves the attachment to the server's disk.
' It also returns a nicely formatted string with a
' link to the attachment.
Function getAttachments()
Set Attachments = msg.Attachments
separator = ", "
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End If
Set at = Attachments(i)
at.SaveToFile( "c:\EMail\attachments\" & at.Name )
getAttachments = getAttachments & "<a href=""/EMail/attachments/" & at.Name &""">" &_
at.Name & "(" & at.Size & " bytes)" & "</a>" & separator
Next
End Function
%>
<html>
<body>
<TABLE>
<tr>
<td>Subject</td>
<td><%= msg.Subject %></td>
</tr>
<tr>
<td>From</td>
<td><%= msg.FromName %></td>
</tr>
<tr>
<td>Recipients To</td>
<td><%= ReTO %></td>
</tr>
<tr>
<td>Recipients CC</td>
<td><%= ReCC %></td>
</tr>
<tr>
<td>Attachments</td>
<td><%= getAttachments %></td>
</tr>
<tr>
<td>Body</td>
<td><pre><%= msg.Body %></pre></td>
</tr>
</TABLE>
</body>
</html>
<%
end if
pop3.Disconnect
%>
aspemail.com
2000 post e sono più vecchio di 4 anni...
grazie a tutti....
sbagghiai - scusasse:
http://www.brinkster.com/asppop3.htm
2000 post e sono più vecchio di 4 anni...
grazie a tutti....
Ok tutto fantastico e sarebbe perfetto ma nel file che ti fanno scaricare manca la dll pop3svg c'è solo la dll smtp ho provato anche a cercarla in giro ma no c'è questa dll... tu come hai fatto?
io sapevo solo che esisteva...
2000 post e sono più vecchio di 4 anni...
grazie a tutti....
Permessi di invio
Rispondi quotando