ACHTUNG CODE::::!!!!
<% @LANGUAGE=VBSCRIPT %>
<% Response.Buffer = true
If (Session("loggedIn") <> "loggedIn") then
Response.Clear
response.redirect("loggin.htm")
else
if (Session("MailboxSize")>=20000000) then
response.write("Ihre Mailbox ist voll. Bitte l�schen Sie einige Ihrer
gespeicherten Mails um Platz zu schaffen.")
else
'************************* SQL STRING FUNCTION
********************************
function SQLString( stri )
Dim neu
Dim neu2
if len(stri) = 0 or isnull(stri) then
SQLString = "NULL"
exit function
end if
neu = replace( stri, "'", "´" )
neu2 = replace( neu, chr(34), " " )
SQLString = "'" & neu2 & "'"
end function
'***************************************************************************
****
user = Session("mailAdresse")
loopControl = 1
Set pop3 = Server.CreateObject( "JMail.POP3" )
on error resume next
pop3.Connect
Session("mailAdresse"),Session("passwort"),Session("mailServer")
if Err.number <> 0 then
Response.Write ("Die Verbindung zum Emailserver konnte nicht hergestellt
werden.<br><br>Bitte probieren Sie es sp�ter noch einmal.")
Session("loggedIn")=""
else
'***** ANZAHL DER NEUEN MAILS SPEICHERN
Session("Mailbox") = 0
if pop3.count > 0 then
'************************* DATABASE CONNECTION
********************************
set conn=Server.CreateObject("adodb.connection")
cnpath="DBQ=" & server.mappath(Session("Datenbank"))
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
'***************************************************************************
****
' DAS HIER WAR RUMPROBIERERREI
pop3.DownloadUnreadMessages
response.write(pop3.count) // da steht dann
34
msgDown = pop3.GetLastUnreadMessage
'GetLastUnreadMessage(): Integer
'Returns the ID of the first unread (message that has not been downloaded by
ANY client software) message.
'Return 0 if no messages has been accessed, -1 if this command is not
supported by the server. Note this
'command has been removed from the POP3 specification (RFC1725), so it may
not be supported by all
'mail servers.
response.write("msgDown:")
response.write(msgDown) // hier bekomme ich 0 zur�ck... in
der doku steh dazu das hier:
response.write("<br>")
id = pop3.GetMessageUID(1)
response.write(id)
do while(msgDown<>0)
Response.write("msgDown:")
Response.write(msgDown)
Set msg = pop3.DownloadSingleMessage(msgDown)
datum = msg.Date
fromName = msg.fromName
from = msg.From
CC = ReTo
BCC = ReCC
Subject = msg.Subject
Body = msg.Body
HTMLBody = Server.HTMLEncode(msg.HTMLBody)
size = msg.size
response.write(loopControl)
response.write("Size: ")
response.write(size)
response.write("<br>")
id = now & loopControl
postfach = "Posteingang"
sql = "INSERT INTO mails VALUES
('"&datum&"','"&user&"','"&fromName&"','"&from&"','"&CC&"','"&BCC&"',"&SQLSt
ring(Subject)&","&SQLString(HTMLBody)&","&SQLString(Body)&",'"&size&"','"&id
&"','"&postfach&"')"
set RS = conn.Execute(sql)
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)
On Error Resume Next
at.SaveToFile( Session("Pfad") & at.Name )
attachmentName = at.Name
attachmentSize = at.Size
sql = "INSERT INTO attachments VALUES
('"&id&"','"&attachmentName&"','"&user&"','"&attachmentSize&"')"
set RS = conn.Execute(sql)
On Error Goto 0
Next
'***** ANZAHL DER NEUEN MAILS SPEICHERN
Session("Mailbox") = Session("Mailbox")+1
msgDown = pop3.GetLastUnreadMessage
loop
conn.close
Set conn = Nothing
pop3.Disconnect
'response.redirect("mailbox.asp?postfach=Posteingang")
else
Session("Mailbox") = Session("Mailbox")+0
response.redirect("mailbox.asp?postfach=Posteingang")
end if
end if
end if
end if
%>
----- Original Message -----
From: Buchner Gerhard <[EMAIL PROTECTED]>
To: AspGerman Kaffeehaus <[EMAIL PROTECTED]>
Sent: Tuesday, September 03, 2002 1:43 PM
Subject: [aspdecoffeehouse] AW: Re: AW: jmail again
> also ich m�chte mit "GetLastUnreadMessage" die erste
> ungelesene nachricht von der mailbox abrufen. aber ich
> bekomme st�ndig null zur�ck geliefert, obwohl mehrere
> ungelesene mails in der mailbox sind... und wenn der
> mailserver dies nicht unterst�tzen w�rde, w�rde ich angeblich
> -1 zur�ck bekommen.
Schick mal Code dazu.
Du bekommst dabei nur die ID der Message.
> pop3.count // (hier bekomme ich immer eins niedriger als bei
> messages.count, z.b. 34) und set messages = pop3.DownloadMessages
> messages.count // (35)
Evtl. beginnt die Z�hlweise einmal bei 0 und einmal bei 1.
> ich wei� nicht, inwieweit du da schon erfahrung hast...
So gut wie gar nicht. Hatte ich ja auch nicht behauptet ;-)
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
