Notifikationer

Markér alle som læst Log ud

jes_petersen Nybegynder

03. april 2001 - 22:12 Der er 7 kommentarer og
1 løsning

Tjek mail via ASP/PHP

Er det muligt at lave et script, der tjekker indkommende mail fra en bestemt POP3-konto og derefter smider det op i en database? Det skal enten være lavet i ASP eller PHP, men allerhelst ASP. Der må gerne bruges komponenter, men prøv at undgå det...

Synes godt om

netsrac Praktikant

03. april 2001 - 22:15 #1

ASP - Det kan laves med Jmail 4, ikke uden komponent.

Synes godt om

jes_petersen Nybegynder

03. april 2001 - 22:17 #2

Okay, netsrac - men Jmail er lidt gratis, er den ikke ;-) - i så fald vil jeg gerne vide hvordan...

Synes godt om

bjarke-b Nybegynder

03. april 2001 - 22:18 #3

En demo med komponenten ASPPop3+

http://www.activeserverpages.dk/aspdigital/kapitel5/pop3.asp

Synes godt om

netsrac Praktikant

03. april 2001 - 22:24 #4

Et eksempel på brug af Jmail4 til at hente mail fra pop3, Jmail er ikke gratis og jeg tvivler på at du finder et komponent som er gratis til at tjekke pop3.

<% @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

%>

Synes godt om

jes_petersen Nybegynder

03. april 2001 - 22:28 #5

Okay, Netsrac - tak for hjælpen - jeg er igang med at downloade Jmail nu, og det ser ud til, at den er gratis... Jeg har i hvert fald ikke læst noget om priser ;-)

Synes godt om

netsrac Praktikant

03. april 2001 - 22:30 #6

Shareware versionen er gratis, men den kommercielle koster 19$

Synes godt om

jes_petersen Nybegynder

03. april 2001 - 22:36 #7

Nå, men det er jo også til at overkomme ;-)

Synes godt om

netsrac Praktikant

03. april 2001 - 22:36 #8

Ja :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering	4	23/04/202616:10	21/08/202611:03
Hjælp til Api.asmx Af lurup i Andet programmering	1	17/03/202609:27	17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering	2	12/11/202514:10	21/08/202611:08
Hjælp til programmering af website Af hamdenlange i Andet programmering	16	17/08/202522:26	19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering	8	24/07/202513:06	28/07/202517:03

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS