14 svar · 336 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.
------------------
Utdrag nr 3 ur jispirs regelbok-->Sluta aldrig jaga en babbelfisk om du stöter på någon :e
Ett gott trams förlänger livet :e
Jo det har Jmail4 men jag vet ej hur det funkar fattar inte det lixom. :(
------------------
Utdrag nr 3 ur jispirs regelbok-->Sluta aldrig jaga en babbelfisk om du stöter på någon :e
Ett gott trams förlänger livet :e
med jmail4 så kan man väl bara skicka mail? Du måste oxå ha en pop3-komponent.
------------------
/bohlin
kaffe är djävulens dryck
glögg är guds dryck
men Jmail4 har en pop3 komponent installerat!
------------------
Utdrag nr 3 ur jispirs regelbok-->Sluta aldrig jaga en babbelfisk om du stöter på någon :e
Ett gott trams förlänger livet :e
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
Tack AG!
Har kollat det där redan men tyvärr så fattar jag inte riktigt hur det funkar ;)
------------------
Utdrag nr 3 ur jispirs regelbok-->Sluta aldrig jaga en babbelfisk om du stöter på någon :e
Ett gott trams förlänger livet :e
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
har fått ordning på pop hämtningen nu ;)
tack AG
------------------
Utdrag nr 3 ur jispirs regelbok-->Sluta aldrig jaga en babbelfisk om du stöter på någon :e
Ett gott trams förlänger livet :e
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? :q
------------------
Utdrag nr 3 ur jispirs regelbok-->Sluta aldrig jaga en babbelfisk om du stöter på någon :e
Ett gott trams förlänger livet :e
Med denna metod...
http://tech.dimac.net/isapiscript.dll?action=read&id=32584&refId=32592#DeleteSingleMessage
------------------
-------------------
What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle
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.
------------------
Mvh
Patrik aka Brimba
Brimbas lille ställe
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