Hi Bernd, Thanks.
Actually, I did a little searching around on the knowledge base, and 4D didn’t actually break it. They have added more features to 4D IC, and it is a lot simpler now. Check out the presentation from Keisuke at the 4D summit 2016. Kind Regards, Rudy Mortier Two Way Communications bvba ----------------- > On 04 Nov 2016, at 12:00, Bernd Fröhlich <[email protected]> wrote: > > Two Way Communications wrote: > >> Hi Bernd, >> >> I have discovered this message from you, a few years ago. >> >> I am having the same issue with 4D v15. >> When I try to send an email, there is no error, but my ISP send back an >> error message. >> >> Have you found a solution for this? > > Hi Rudy, > > here is my solution (straight from my code to send a message. $x is the BLOB > to encode): > > > BASE64 ENCODE($x) //Seit V14 fügt 4D leider keine Zeilenumbrüche mehr nach > 60 Zeichen ein. Also selber machen, da AppleMail sonst nicht dekodieren kann: > SET BLOB SIZE($y;BLOB size($x)*1.1) //Genug Platz für die einzufügenden > Zeilenumbrüche lassen. Wird am Ende auf die korrekte Größe verkleinert. > $ix:=0 > $iy:=0 > $lCount:=0 > While ($ix<BLOB size($x)) > If ($ix%1000=0) > TB_MessageDisplay ($tMessage;String($ix)) > End if > If (($x{$ix}#10) & ($x{$ix}#13)) //Die von BASE64 ENCODE eingefügten > Umbrüche (In V14 nach ca. 40.000 Zeichen) ignorieren > $y{$iy}:=$x{$ix} > $iy:=$iy+1 > $lCount:=$lCount+1 > End if > $ix:=$ix+1 > If ($lCount>76) > $y{$iy}:=13 > $y{$iy+1}:=10 > $iy:=$iy+2 > $lCount:=0 > End if > End while > SET BLOB SIZE($y;$iy) > $tAttachments:=$tAttachments+Convert to > text($y;"ISO-8859-1")+Char(13)+Char(10) > > > Might not be the most elegant way but works for me. > I wonder why 4D broke it... > > Greetings from Germany, > Bernd Fröhlich > ********************************************************************** > 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:[email protected] > ********************************************************************** ********************************************************************** 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:[email protected] **********************************************************************
