also hier ist mal der code:
(ist ein wenig komplizierter, da ich anhand der email-id �berpr�fe, ob ich
die mail bereits in der datenbank gespeichert habe ... )
do while(loopcontrol <= allMessages)
id = pop3.GetMessageUID(loopcontrol)
'*************************PRUEFEN OB MAIL BEREITS ABGEFRAGT
*******************
mailAlreadyIn = false
sql = "SELECT mailID FROM mailIDs WHERE user = '"&user&"'"
set RSMails = conn.Execute(sql)
do while (NOT RSMails.EOF)
mailID = RSMails.fields.item("mailID")
if(mailID = id) then
mailAlreadyIn = true
end if
RSMails.moveNext
loop
RSMails.close
'***************************************************************************
****
if(NOT mailAlreadyIn)then
'***** ANZAHL DER NEUEN MAILS SPEICHERN
Session("Mailbox") = Session("Mailbox")+1
sql = "INSERT INTO mailIDs VALUES ('"&user&"','"&id&"')"
set RS = conn.Execute(sql)
Set msg = pop3.DownloadSingleMessage(loopcontrol)
'************* ERSTELLEN DER RECIPIENTS EINER MAIL
***************************
ReTo = ""
ReCC = ""
Set Recipients = msg.Recipients
separator = ", "
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.EMail & separator
else
ReCC = ReTo & re.EMail & separator
end if
next
'***************************************************************************
**
datum = msg.Date
fromName = msg.fromName
from = msg.From
CC = ReCC
BCC = ReCC
Subject = msg.Subject
Body = Server.HTMLEncode(msg.Body)
HTMLBody = Replace(msg.HTMLBody,"","")
on error resume next
size = msg.size
postfach = "Posteingang"
sql = "INSERT INTO mails VALUES
('"&datum&"','"&user&"','"&fromName&"','"&from&"',"&SQLString(CC)&","&SQLStr
ing(BCC)&","&SQLString(Subject)&","&SQLString(HTMLBody)&","&SQLString(Body)&
",'"&size&"','"&id&"','"&postfach&"','unread')"
set RSMailspeichern = 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
attachmentName = at.Name
if attachmentName = ".msg" then
newName = attachmentName&id
at.SaveToFile( Session("Pfad")&newName )
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Session("Pfad")&newName, 1, True)
ausgabe = f.ReadAll
f.DeleteFile ( Session("Pfad") & newName )
f.close
sql = "UPDATE mails SET Body = " & SQLString(ausgabe) & " WHERE id = '"
& id & "'"
set RSUpdate = conn.Execute(sql)
else
attachmentPfad = Session("Pfad") & id & "\"
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.CreateFolder(attachmentPfad)
f.close
at.SaveToFile( attachmentPfad & attachmentName )
On Error Resume Next
attachmentSize = at.Size
sql = "INSERT INTO attachments VALUES
('"&id&"','"&attachmentName&"','"&user&"','"&attachmentSize&"')"
set RS = conn.Execute(sql)
On Error Goto 0
end if
Next
end if
loopcontrol = loopcontrol + 1
loop
----- Original Message -----
From: "Claudius Ceteras" <[EMAIL PROTECTED]>
To: "AspGerman Kaffeehaus" <[EMAIL PROTECTED]>
Sent: Wednesday, November 13, 2002 10:34 AM
Subject: [aspdecoffeehouse] RE: [aspdecoffeehouse] AW: [aspdecoffeehouse]
�berpr�fung...
> dann erz�hl ich euch mal von murphy-
>
> also ich habe eine schleife, die mails von der mailbox abruft
> und sie in die
> datenbank schreibt.
> wenn ich mir einfach nur die mails anzeigen lasse, sprich die
> variablen, in
> denen ich den inhalt
> abgespeichert habe (from, subject, body etc...), dann zeigt
> er mir ALLE
> emails an.
> speichere ich diese variablen in der schleife in eine datenbank, dann
> passiert es ab und an,
> dass er einfach welche nicht in die datenbank schreibt ...
> kann mir das nun
> jemand erkl�ren?
On error resume next?
Gib Dir die Mails aus UND speichere sie in der DB....
Sicher, dass du alles richtig machst?
Claudius
| [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
