[asp] mail ophalen

[Verwijderd]

hoe kan je via asp mail bekijken van een te specificeren mailserver (pop in dit geval) zoals op www.mail2web.com

[Verwijderd]

met jmail moet het kunnen

[xtra]

JMail moet het inderdaad kunnen en is gratis voor persoonlijk gebruik: http://tech.dimac.net/

Hier heb je nog wat pop-componenten:
http://component-dll.aspobjects.com/ASP_Components/email/pop/

[didio]

Kan ook met CDO, ik heb ooit eens een klein tooltje geschreven.. here it is..

Deze app, draaide ik als een JOB op SQL server en stuurde email door naar een ander email adres, een soort email forwarding service dus.

code:

<%
Dim objDropDirectory
Dim colMessages
Dim strEmail
Dim strUser

Set objDropDirectory = CreateObject("CDO.DropDirectory")
Set colMessages = objDropDirectory.GetMessages()

For Each objMessage in colMessages
    strTo = objMessage.To
    strUser = Mid(strTo, 2, Instr(strTo, "@") -2)

    Dim objConn, objCmd
    Set objConn = CreateObject("ADODB.Connection")
    Set objRec = CreateObject("ADODB.RecordSet")
    Set objCmd = CreateObject("ADODB.Command")
    objConn.Open "Provider=SQLOLEDB; Data Source=EROS; Initial Catalog=webmail; User ID=sa; Password=xxx;"
    objCmd.CommandText = "spFindUser"
    objCmd.ActiveConnection = objConn
    objCmd.CommandType = &H0004
    objCmd.Parameters.Append objCmd.CreateParameter("Username", 200, &H0001, 50, strUser)
    objRec.Open = objCmd.Execute

    If Not objRec.EOF Then
        Set objSendMessage = CreateObject("CDO.Message")
        objSendMessage.To = objRec("Email")
        objSendMessage.From = objMessage.From
        objSendMessage.Subject = objMessage.Subject
        objSendMessage.TextBody = objMessage.TextBody
        objSendMessage.Send
        Set objSendMessage = Nothing
    End If

    objConn.Close
    Set objConn = Nothing
    objRec.Close
    Set objRec = Nothing
    Set objCmd = Nothing
Next
colMessages.DeleteAll

Set objDropDirectory = Nothing
%>