14 svar · 339 visningar · startad av jispir
Har precis fått ordning på en mail server och undrar därför om någon vet var jag kan ladda hem ett färdigt webmail script alltså så jag kan kolla min mail från webben.
Helst ska det vara i ASP har Jmail4 som mail komponent.
MailDaemon har det inbyggt...
Jo det har Jmail4 men jag vet ej hur det funkar fattar inte det lixom. 
med jmail4 så kan man väl bara skicka mail? Du måste oxå ha en pop3-komponent.
men Jmail4 har en pop3 komponent installerat!
Visst finns det i Jmail 4. Tog mig tid att kolla nu 
'POP3simple.asp
<% @LANGUAGE=VBSCRIPT %>
<%
Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect "username", "password", "mail.mydomain.com"
Response.Write( "You have " & pop3.count & " emails in your mailbox!<br><br>" )
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:\attachments\" & at.Name )
getAttachments = getAttachments & "<a href=""/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
%>
Ett exempel från deras sida.
Lite länkar: http://tech.dimac.net/isapiscript.dll?action=read&id=32584 http://tech.dimac.net/isapiscript.dll?action=read&id=32559
Andreas
Vad jag fattar som ska du endast behöva byta ut följande:
pop3.Connect "username", "password", "mail.mydomain.com"
mot exempelvis:
pop3.Connect "andreas", "arnebertil", "mail.digital-network.nu"
Tog inte med mitt lösenord av säkerhetsskäl Hoppas du förstår principen.
Andreas
Kul att man kan hjälpa nångång
Har själv ett problem, lite längre ner, som jag tror löser sig snart.
Andreas
nu kom jag till ett jätte stort problem
Hur ska jag göra om jag vill radera ett mess från webmailen? 
Ohh noo!
Jag köpte en gång webbplats hos digital-network.org.
Det var en kille som hette Alex, och av mina totalt två månader fungerade sidan ungefär 5 dagar.
Digital-network.org känner jag inte till, däöremot fanns det emgång en hosting som hette digital-network.net, hade dem ett tag de var dock ganska amatörmässiga. Mitt fungerade dock längre än 5dar
Andreas