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]
**********************************************************************
