---
title: "JMail 4.3"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13186-jmail-4-3"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Robson"
published: "2001-12-14T11:54:00.000Z"
updated: "2001-12-14T11:57:00.000Z"
replies: 1
views: 147
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13186-jmail-4-3"
---

# JMail 4.3

## #1 — Robson, 2001-12-14T11:54Z

Tjena,
Fick hjälp av en kille häromdan (OveRRidE), som gav mig denna kod.

\<%
Do Until i = pop3.count 
i = i + 1
Set msg = pop3.Messages.item(i)
%\>
\<tr\>
\<td\>\<%=msg.FromName%\>\</td\>
\<td\>\<a href="read.asp?id=\<%=i%\>"\>\<%=msg.Subject%\>\</a\>\</td\>
\<td\>\<%=msg.From%\>\</td\>
\<td\>\<%=msg.Date%\>\</td\>
\</tr\>
\<% 
Loop
End If %\>

Den skulle skrivas in "lite längre ner"??? Kan någon hjälpa mig var, och ifall något annat skall bort..?

Grejen é att jag vill ha upp samtliga mail - inte bara det senaste. Därför behövs en loop...men VAAAAAAAR!!!

\<% @LANGUAGE=VBSCRIPT %\>
\<%

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
'\*                                               \*
'\*   Produced by Dimac                           \*
'\*                                               \*
'\*   More examples can be found at 				 \*
'\*   <http://tech.dimac.net>                        \*
'\*                                               \*
'\*   Support is available at our helpdesk        \*
'\*   <http://support.dimac.net>                     \*
'\*                                               \*
'\*   Our main website is located at              \*
'\*   <http://www.dimac.net>                         \*
'\*                                               \*
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

  Set pop3 = Server.CreateObject( "JMail.POP3" )

  pop3.Connect "username", "password", "www.webbhotell.com"

  Response.Write( "You have " & pop3.count & " mails 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 & " (\<a href=""mailto:"& re.EMail &"""\>" & re.EMail & "\</a\> )" & separator
		else
			ReCC = ReTo & re.Name & " (\<a href=""mailto:"& re.EMail &"""\>" & re.EMail & "\</a\> )" & 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:\\EMail\\attachments\\" & at.Name )
		 	getAttachments = getAttachments & "\<a href=""/EMail/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

%\>

\[Redigerat av Robson den 14 dec 2001\]

Permalänk: https://www.webforum.nu/p/13186

## #2 — Robson, 2001-12-14T11:57Z

Grejen é att jag vill ha upp samtliga mail - inte bara det senaste. Därför behövs en loop...men VAAAAAAAR!!!

Permalänk: https://www.webforum.nu/p/300803

---

Tråden på webben: https://www.webforum.nu/amne/asp/13186-jmail-4-3