[aspdecoffeehouse] JMail: Problem mit Mail auslesen mit Attachment

[andreas . felix]

Title: JMail: Problem mit Mail auslesen mit Attachment

Guten Morgen

Wenn ich ein Mail sende mit Parameter f�r das Passwort, Titel und Text funktioniert das wunderbar beim auslesen. Nun m�chte ich aber noch ein Bild mitsenden. Dann habe ich folgende Fehlermeldung:

Laufzeitfehler in Microsoft VBScript error '800a0009'

Index au�erhalb des g�ltigen Bereichs: '[number: 1]'

/blog/receiveMail_test_mitbild.asp, line 60

habe mir erlaubt, euch mein ganzes file zu senden. Besten Dank f�r eure hilfe und gruss

andy

<%
Set DBConnection = Server.CreateObject("ADODB.Connection")
DBConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=mail;Data Source=server"

SQL = "SELECT cUserBlogname,cUserPasswort FROM BlogUser"

Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open SQL, DBConnection
 
Do while not RS.EOF
        Set pop3 = Server.CreateObject( "JMail.POP3" )
        pop3.Connect "[EMAIL PROTECTED]", "passwort", "mail.server.ch"

        i = pop3.count
        'Response.Write( "Du hast " & i & " Emails in Deiner Mailbox!<br><br>" )

        do while i > 0
                Set msg = pop3.Messages.item(i)
                TmpStr = pop3.GetMessageUID(i)

        ReTo = ""
        ReCC = ""

        Set Recipients = msg.Recipients
                separator = ", "

        For recipCount = 0 To Recipients.Count - 1
                If recipCount = Recipients.Count - 1 Then
                        separator = ""
                End If

                Set re = Recipients.item(recipCount)
                If re.ReType = 0 Then
                        ReTo = ReTo & re.Name & re.EMail & separator
                else
                        ReCC = ReTo & re.Name & re.EMail & separator
                End If
        Next

        BodyString = msg.Body

        MailString = REPLACE(REPLACE(REPLACE(BodyString, "#PW#", "" ), "#H#", ";;" ), "#T#",";;" )

        dataarray=SPLIT(MailString,";;")

        pw = dataarray(0)
        title = dataarray(1)   = hier ist mein Fehler
        longtext = dataarray(2)

        Set DatabaseConnection = Server.CreateObject("ADODB.Connection")
        DatabaseConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=mail;Data Source=server"

                 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("http://server/blog/images/" & at.Name)
                 Next

        Set RSUser = Server.CreateObject("ADODB.RecordSet")
        RSUser.Open SQLUser, DatabaseConnection

        SQLUser = "INSERT INTO TestMail (nUserID,cName,cEmpfaenger,cTitle,cLongText,dDatum,cAttachmentName,cAttachmentSize) VALUES (" & RSUser("nUserID") & ",'" & msg.From & "','" & ReTo & "','" & title & "','" & longtext & "','" & msg.Date & "','" & attachmentName & "','" & attachmentSize & "')"

        DatabaseConnection.Execute(SQLUser)

        pop3.DeleteSingleMessage(i)

        DatabaseConnection.Close

        set msg=nothing
                i = i -1
        loop

        pop3.Disconnect
        RS.MoveNext
loop

%>

| [aspdecoffeehouse] als archive@jab.org 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