Avatar billede Slettet bruger
27. juli 2002 - 14:02 Der er 6 kommentarer og
2 løsninger

JMail og pop3

Hej...

Et hurtigt spørgsmål - kan man tjekke eksterne pop3-konti med JMail - altså mail-konti der ligger på en hel anden server / andet domæne?

I så fald - hvordan?

pop3.Connect "email@noget.dk", "noget", "mail.noget.dk"
synes ikke rigtigt at kunne gøre det.
Avatar billede Slettet bruger
27. juli 2002 - 14:08 #1
Og hvis ikke - kan man så med flg. komponenter: ASPmail eller ASPemail?
Avatar billede sth Novice
27. juli 2002 - 23:21 #2
ja det kan man da :)

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 & "&nbsp;(" & re.EMail & ")" & separator
  else
    ReCC = ReTo & re.Name & "&nbsp;(" & 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

%>
Avatar billede sth Novice
27. juli 2002 - 23:22 #3
linien: pop3.Connect "username", "password", "mail.mydomain.com"
skal lige rettes så den passer til dig.
Avatar billede cht Nybegynder
28. juli 2002 - 09:59 #4
Du kan evt. få et helt pop3 mail system på http://cht.dk/pop3/ eller http://cht.dk/mail/
Forskellen på de to er at den sidste gemmer meddelelserne i en database, hvilket giver forskellige muligheder. Du kan evt. også læse mere på http://cht.dk
Avatar billede Slettet bruger
28. juli 2002 - 10:28 #5
sth > kender godt JMail POP3 muligheden - men virker det også hvis du skal hente mail fra en hel anden mail-server og altså ikke har noget at gøre med det domæne/server hvor din ASP ligger?

cht > Kan dit script tjekke (det ser det ud til) - mails fra eksterne mail-servere? Hvis ja - hvordan ser din linie

pop3.Connect "username", "password", "mail.mydomain.com"

ud?
Avatar billede cht Nybegynder
28. juli 2002 - 11:02 #6
Den ser således ud:

pop3.Connect session("pop3username"), session("pop3password"), session("servername"), session("serverport")

Man skal selvfølgelig have defineret de forskellige sessions og man kan godt bruge nedenstående, hvis det er standartporten (110) der skal bruges:

pop3.Connect session("pop3username"), session("pop3password"), session("servername")
Avatar billede Slettet bruger
28. juli 2002 - 11:28 #7
Tak for hjælpen - ved sgu ikke lige hvad der er gået galt - har fået det til at virke.
Avatar billede sth Novice
29. juli 2002 - 15:07 #8
Ja jeg henter da mails fra forsk. steder, så mit svar må være ja
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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