Guten Morgen Werner,
so sieht die PRG jetzt aus nach deinem vorschlag, aber jetzt passiert gar nichts. ergibt zwar Meldung ab, aber kein Download und kein Löschen der email
Code: Alles auswählen
* connect to POP3 server
? "Connecting to POP3 server " + LTrim(Str(nProxyPort))
nCode = XseePop3ConnectSSL(0, nProxyPort, nPop3Port, @cPop3Server, @cPop3User, @cPop3Pass, Chr(0))
if nCode < 0
ShowError(nCode)
return
endif
* get # messages waiting
? "Getting message status..."
* decode downloaded email ?
if nDecodeFlag = TRUE
? "Email will be decoded"
else
* do not decode downloaded files !
? "Email will NOT be decoded!"
nCode = XseeIntegerParam(0, SEE_RAW_MODE, 1)
endif
do while lWeiter = .t.
nNbrMsg:=XseeGetEmailCount(0)
msgbox(var2lchar(nNbrMsg))
For i = 1 to nNbrMsg
? "Reading Message ", LTRIM(STR(nMsgNbr)), ", please wait..."
nCode = XseeGetEmailFile(0, nMsgNbr, @cEmailName, @cEmailDir, @cAttachDir)
if nCode < 0
ShowError(nCode)
* return
endif
? "Saved as ", LTRIM(cEmailName)
* display "From:" header
cBuffer = SPACE(256)
nCode = XseeGetHeader(0, SEE_GET_FROM, @cBuffer, 255)
if nCode > 0
? "From: " + Left(cBuffer, nCode)
endif
cHeader:=cBuffer
* display "Subject:" header
cBuffer = SPACE(256)
nCode = XseeGetHeader(0, SEE_GET_SUBJECT, @cBuffer, 255)
if nCode > 0
? "Subject: " + Left(cBuffer, nCode)
endif
cBetreff:=cBuffer
* get list of attachment file names
cBuffer = SPACE(1024)
nCode = XseeDebug(0, SEE_GET_ATTACH_NAMES, @cBuffer, 1024)
if nCode > 0
? "Attachment names are:"
? Left(cBuffer, nCode)
endif
* get list of attachment file types
cBuffer = SPACE(1024)
nCode = XseeDebug(0, SEE_GET_ATTACH_TYPES, @cBuffer, 1024)
if nCode > 0
? "Attachment types are:"
? Left(cBuffer, nCode)
endif
Do Case
Case At("visulution",cUser) >0
// email-empfänger rauslesen ??
If substr(cBetreff,1,5) = "12345"
aDir:=Directory((cAttachDir+"\*.*") )
For z = 1 to Len(aDir)
cFile:=aDir[z][1]
nPos:=At("-",cFile)
cNeufile:=substr(cFile,nPos+1)
Copy File( (cAttachDir+"\"+cfile)) to (cImport+"\"+cNeufile )
Next z
lLoesch:=.t.
Else
lLoesch:=.f.
Endif
FileDelete( (cAttachDir+"\*.*") )
Case At("transfer",cUser) >0
// abfrage nach KD-Nr. im Betreff
If substr(cBetreff,1,5) = "12345"
aDir:=Directory((cAttachDir+"\*.*") )
For z = 1 to Len(aDir)
cFile:=aDir[z][1]
nPos:=At("-",cFile)
cNeufile:=substr(cFile,nPos+1)
Copy File( (cAttachDir+"\"+cfile)) to (cImport+"\"+cNeufile )
Next z
lLoesch:=.t.
Else
lLoesch:=.f.
Endif
FileDelete( (cAttachDir+"\*.*") )
Case At("inventur",cUser) >0
aDir:=Directory((cAttachDir+"\*.*") )
For z = 1 to Len(aDir)
cFile:=aDir[z][1]
nPos:=At("-",cFile)
cNeufile:=substr(cFile,nPos+1)
Copy File( (cAttachDir+"\"+cfile)) to (cVerz+"\"+cNeufile )
Next z
lLoesch:=.t.
FileDelete( (cAttachDir+"\*.*") )
EndCase
* uncomment the following to delete the email
*** deleting message from server
If lLoesch = .t.
nCode = XseeDeleteEmail(0, nNbrMsg)
? "Message ", LTRIM(STR(nNbrMsg)), " deleted from server."
Endif
Next i
lLoesch:=.f.
If File("emaillesen.txt")
lWeiter:=.f.
Endif
sleep(1000)
enddo
? "Closing connection."
nCode = XseeClose(0)
nCode = XseeRelease()
FErase("emaillesen.txt")
return