4D Tech mailing list wrote > Hi, > > I'm just investigating to solve an error while downloading an email using > IMAP. But so far I'm stuck. > After using the command "IMAP_Download" of the Internet Commands plugin I > got an error with code 10099 and the description "Error with IMAP > PARTIAL". > > I'm not have any clue how to solve the problem, any ideas? > > Regards > Lutz Epperlein
Lutz, try this workaround. I thought this was a problem with v12 only, but it should work with newer versions too C_LONGINT($errorNum;$0;$vL_ImapID;$1;$2;$vL_msgLfdNum;$vL_pos;$State) C_TEXT($fileName;$3;$vSentText;$vT_RequestCmd) C_BLOB($blob;$Blob_Received;$vX_SendingBlob) $vL_ImapID:=$1 $vL_msgLfdNum:=$2 $fileName:=$3 $vSentText:="" $vT_RequestCmd:="" If (Application version#"12@") $errorNum:=IMAP_Download ($vL_ImapID;$vL_msgLfdNum;0;$fileName;0) Else $vT_ReceivedText:="" $vT_RequestCmd:="FETCH "+String($vL_msgLfdNum)+" (FLAGS RFC822)" $vSentText:="A654"+" "+$vT_RequestCmd+Char(13)+Char(10) $vL_ErrorNum:=TCP_Send ($vL_ImapID;$vSentText) If ($vL_ErrorNum=0) SET BLOB SIZE($blob;0) Repeat DELAY PROCESS(Current process;30) $vT_ReceivedText:="" $vL_ErrorNum:=TCP_Receive ($vL_ImapID;$vT_ReceivedText) If ($vT_ReceivedText#"") If (BLOB size($blob)=0) $vL_pos:=Position(Char(10);$vT_ReceivedText) If ($vL_pos>0) $vT_ReceivedText:=Substring($vT_ReceivedText;$vL_pos+1) End if End if $vL_pos:=Position(Char(13)+Char(10)+")"+Char(13)+Char(10)+"A654 OK FETCH completed";$vT_ReceivedText) If ($vL_pos>0) $vT_ReceivedText:=Substring($vT_ReceivedText;1;$vL_pos-1) End if TEXT TO BLOB($vT_ReceivedText;$blob;Mac text without length;*) End if Until ($vT_ReceivedText="") | ($vL_ErrorNum#0) If (BLOB size($blob)>0) BLOB TO DOCUMENT($fileName;$blob) $vL_ErrorNum:=0 End if End if End if $0:=$vL_ErrorNum Best Regards Armin -- View this message in context: http://4d.1045681.n5.nabble.com/IMAP-Download-and-Error-with-IMAP-PARTIAL-tp5751265p5751283.html Sent from the 4D Tech mailing list archive at Nabble.com. ********************************************************************** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:4d_tech-unsubscr...@lists.4d.com **********************************************************************
