PureBoard

Verfasst: **10.10.2004 00:06**

Hallo,

hat jemand eine Ahnung, warum ich diesen winzigen Code nicht zum Laufen bekomme? Ich wollte eigentlich die POP3-Lib (Brendan Eyre
) nutzen, aber irgendiw scheine ich damit kein Glück zu haben:

Code: Alles auswählen

Procedure messageCallBack(msg, param1, param2)
  error = POP3_GetLastError() 
  error$ = POP3_ErrorString( error ) 
  MessageRequester("TEst", error$, 0)
  
EndProcedure

result = POP3_Init() 

version$ = POP3_GetLibraryVersionInfo() 
result = POP3_Connect("192.168.132.60", 110) 
result = POP3_Logon("gffgfgfl","hhjjfjjjgggl") 
nMessages = POP3_GetMsgCount() 

msgsize = POP3_GetMsgSize(1) 
result = POP3_SaveMsg("c:\mail.txt",1,@messageCallBack())
result = POP3_Logoff() 
result = POP3_Disconnect() 

POP3_Close()

End

Vielleicht hat ja jemand eine Idee.

Gruß
shim

Verfasst: **10.10.2004 09:35**

Wie wärs denn zb. mit anstatt immer nur result zu nehmen result1 , result2, result3 usw

Verfasst: **10.10.2004 10:48**

Was viel wichtiger ist: Den result Wert auch wirklich abfragen, ob also z.B.
wirklich eine Verbindung zur angegebenen IP hergestellt werden konnte
etc.

Verfasst: **10.10.2004 21:49**

Hmmm...

Es handelt sich um einen Mailserver direkt auf meinem Rechner, der sehr wohl über die IP ansprechbar ist... Logisch, wenn es eine Internetverbindung wäre, sollte der Result-Wert ausgewertet werden.

Es geht mir auch nur und ausschließlich um die

POP3_SaveMsg-Funktion

Alle anderen Funktionen gehen ja prächtig...

Thema abgeschlossen, selbst wenn ich die Mail speichere, habe ich noch immer nicht mein ergebnis, leider. Ich werde nach einer anderen Möglichkeit suchn.

Vielen Dank erstmal!

Lars

P.S.: Das mit den result-Werten werde ich mir hinter die Ohren schreiben, macht ja garnichts, wenn man plötzlich 2400 unterschiedliche Result-Variablen im Programm hat... Prima Idee.

Verfasst: **11.10.2004 23:25**

shim hat geschrieben: P.S.: Das mit den result-Werten werde ich mir hinter die Ohren schreiben, macht ja garnichts, wenn man plötzlich 2400 unterschiedliche Result-Variablen im Programm hat... Prima Idee.

??????????????????????????????????????????????????????????????????
sonst konntest du doch net auslesen wo nun der Fehler ist oda ?

Verfasst: **12.10.2004 10:50**

shim hat geschrieben:P.S.: Das mit den result-Werten werde ich mir hinter die Ohren
schreiben, macht ja garnichts, wenn man plötzlich 2400 unterschiedliche
Result-Variablen im Programm hat... Prima Idee.

Du kannst ja immer die gleiche Variable nehmen, z.B. "result".
Allerdings mußt Du auch abfragen was die Funktionen dann
zurückgeben, z.B.:

Code: Alles auswählen

result = OpenFile(....)
If result = 0
  MessageRequester("Fehler", "Konnte Datei nicht öffnen") : End
EndIf

; weiter im programm...

Oder gleich ohne Ergebniss-Variable, wenn Du diese nicht
brauchst:

Code: Alles auswählen

If POP3_Init()
  version$ = POP3_GetLibraryVersionInfo()
  If POP3_Connect("192.168.132.60", 110)
    If POP3_Logon("gffgfgfl","hhjjfjjjgggl")
      nMessages = POP3_GetMsgCount()

      If nMessages
        For i = 1 to nMessages
          msgsize = POP3_GetMsgSize(i)
          If POP3_SaveMsg("c:\mail"+Str(i)+".txt",1,@messageCallBack()) = 0
            MessageRequester("Fehler", "Konnte Mail "+Str(i)+" nicht speichern !")
          EndIf
        Next i
      Else
        MessageRequester("Info", "Keine neuen Nachrichten.")
      EndIf

      POP3_Logoff()

    Else
      MessageRequester("Fehler", "Fehler beim einloggen! Bitte überprüfen sie Ihre Verbindungsdaten.")
    EndIf

    POP3_Disconnect()

  Else
    MessageRequester("Fehler", "Verbindungsaufbau zu 192.168.132.60:110 fehlgeschlagen!")
  EndIf

  POP3_Close()

Else
  MessageRequester("Fehler", "POP3 Init fehlgeschlagen!")
EndIf

Das ist nur ein Beispiel! Bei Dir kommt es darauf an was diese
Befehle zurückgeben. Ich ging im Beispiel von 0 = Fehler
und !0 = OK aus.

Verfasst: **01.03.2005 11:56**

Hallo!

Irgendwann holt einen alles wieder ein...

Ich habe es nocheinmal probiert, aber selbst mit einem Code aus dem englischen Forum konnte ich keine Mail speichern. Alles andere funktioniert prächtig.

Tritt dieses Problem (s.o.) ausschließlich bei mir auf?

Grüße

Lars