Accents tronqués dans le sujet et corps du mail envoyé

Product :4D Write
Product :4D Internet Command
4D : v13.2
OS : Windows X

Bonjour

Pour faire un mailing, j’imprime avec 4d write un courrier qui est envoyé après en pièce jointe (pas de pb), Le sujet et le corps du mail sont renseignés par des champs texte, lorsqu’on reçoit le mail les accents sont tronqués ? voir ci dessous

Ci-joint en pice jointe l’attestation demandŽe.

merci de votre aide

le code ci dessous

$corps mail:=[COURRIER]CORPS DU MAIL
$NomFichier:=$TITRE+".pdf"
$chemin:=$chemin+"\"+$NomFichier

$pdfprintername:=“Microsoft Print to PDF”
FIXER IMPRIMANTE COURANTE($pdfprintername)
$RESULT:=OK
WR FIXER OPTION IMPRESSION (ZoneWrite;wr option destination;2;0;$chemin) //Document path must also be set as 3rd value
WR FIXER OPTION IMPRESSION (zoneWrite;wr option nom doc à imprimer;0;0;$TITRE)
WR EXECUTER COMMANDE (zoneWrite;wr cmd figer références)
WR IMPRIMER (zoneWrite;wr impression valeurs;1)
ADJOINDRE ELEMENT(“QUE MAILING”)
WR LIRE INFO COMMANDE (zoneWrite;wr cmd références;$coche_l)
Si ($coche_l=1)
WR EXECUTER COMMANDE (zoneWrite;wr cmd références)
Fin de si
$corps mail:=[COURRIER]CORPS DU MAIL

Repeter
MESSAGE("Le document “+$TITRE+” est en création ")
ENDORMIR PROCESS(Numero du process courant;120) //1/60 eme de seconde
Jusque (Tester chemin acces($chemin)=Est un document) | (Nombre de ticks>400)

Au cas ou
: (Non(Wr_Verif (“SMTP_New”;SMTP_New ($SMTP_ID))))
: (Non(Wr_Verif (“SMTP_Host”;SMTP_Host ($SMTP_ID;[CONSTANTE]MAIL NOM SERVEUR;0))))
//: (Non(Wr_Verif (“SMTP_Host”;SMTP_Host ($SMTP_ID;“smtp.bbox.fr”;0))))
: (Non(Wr_Verif (“SMTP_From”;SMTP_From ($SMTP_ID;[CONSTANTE]MAIL FROM;0))))
: (Non(Wr_Verif (“SMTP_To”;SMTP_To ($SMTP_ID;$MsgÀ;0))))
: (Non(Wr_Verif (“SMTP_Subject”;SMTP_Subject ($SMTP_ID;$Objet;0))))
: (Non(Wr_Verif (“SMTP_Comments”;SMTP_Comments ($SMTP_ID;“Envoyé via 4D”))))
: (Non(Wr_Verif (“SMTP_Body”;SMTP_Body ($SMTP_ID;$corps mail;0))))
: (Non(Wr_Verif (“SMTP_Attachment”;SMTP_Attachment ($SMTP_ID;$chemin;2;0))))
: (Non(Wr_Verif (“SMTP_authentification”;SMTP_Auth ($SMTP_ID;$mail serveur;$mail mdp))))
: (Non(Wr_Verif (“SMTP_Send”;SMTP_Send ($SMTP_ID;0))))
Sinon
$EnvoyeOK:=Vrai //Message composé et envoyé avec succès
MESSAGE(“Message et pièce jointe envoyés avec succès.”)
Fin de cas

Si ($SMTP_ID#0) //Si un message a été créé en mémoire, nous devons l’effacer maintenant
//EFFACER FENETRE
MESSAGE(“Fermeture de la cession d’envoie d’email”)
$OK:=Wr_Verif (“SMTP_Clear”;SMTP_Clear ($SMTP_ID))
Fin de si

Bonjour

Si ta base est en unicode, essaie de glisser un

$Err:=SMTP_SetPrefs (0;15;-1)

pour forcer l’encodage en utf-8

ahrrr les accents sont encore tronqués

Repeter
MESSAGE("Le document “+$TITRE+” est en création ")
ENDORMIR PROCESS(Numero du process courant;120) //1/60 eme de seconde
Jusque (Tester chemin acces($chemin)=Est un document) | (Nombre de ticks>400)

$Err:=SMTP_SetPrefs (0;15;-1)

Au cas ou
: (Non(Wr_Verif (“SMTP_New”;SMTP_New ($SMTP_ID))))
: (Non(Wr_Verif (“SMTP_Host”;SMTP_Host ($SMTP_ID;[CONSTANTE]MAIL NOM SERVEUR;0))))
//: (Non(Wr_Verif (“SMTP_Host”;SMTP_Host ($SMTP_ID;“smtp.bbox.fr”;0))))
: (Non(Wr_Verif (“SMTP_From”;SMTP_From ($SMTP_ID;[CONSTANTE]MAIL FROM;0))))
: (Non(Wr_Verif (“SMTP_To”;SMTP_To ($SMTP_ID;$MsgÀ;0))))
: (Non(Wr_Verif (“SMTP_Subject”;SMTP_Subject ($SMTP_ID;$Objet;0))))
: (Non(Wr_Verif (“SMTP_Comments”;SMTP_Comments ($SMTP_ID;“Envoyé via 4D”))))
: (Non(Wr_Verif (“SMTP_Body”;SMTP_Body ($SMTP_ID;$corps mail;0))))
: (Non(Wr_Verif (“SMTP_Attachment”;SMTP_Attachment ($SMTP_ID;$chemin;2;0))))
: (Non(Wr_Verif (“SMTP_authentification”;SMTP_Auth ($SMTP_ID;$mail serveur;$mail mdp))))
: (Non(Wr_Verif (“SMTP_Send”;SMTP_Send ($SMTP_ID;0))))
Sinon
$EnvoyeOK:=Vrai //Message composé et envoyé avec succès
MESSAGE(“Message et pièce jointe envoyés avec succès.”)
Fin de cas

chez moi j’ai ceci :

<code 4D>
C_LONGINT($L_Erreur)
$L_Erreur:=SMTP_SetPrefs (-1;15;-1)
$L_Erreur:=SMTP_Charset (0;1) //appliquer les préférences

</code 4D>

Merci, Pour le corps du mail c’est OK, mais pour l’objet du mail c’est KO ?

Dynamic Svres ATTESTATION EDS // le è de Sèvres

$Err:=SMTP_SetPrefs (0;15;-1)
$L_Erreur:=SMTP_Charset(0;1)//appliquer les préférences
Au cas ou
: (Non(Wr_Verif (“SMTP_New”;SMTP_New ($SMTP_ID))))
: (Non(Wr_Verif (“SMTP_Host”;SMTP_Host ($SMTP_ID;[CONSTANTE]MAIL NOM SERVEUR;0))))
//: (Non(Wr_Verif (“SMTP_Host”;SMTP_Host ($SMTP_ID;“smtp.bbox.fr”;0))))
: (Non(Wr_Verif (“SMTP_From”;SMTP_From ($SMTP_ID;[CONSTANTE]MAIL FROM;0))))
: (Non(Wr_Verif (“SMTP_To”;SMTP_To ($SMTP_ID;$MsgÀ;0))))
: (Non(Wr_Verif (“SMTP_Subject”;SMTP_Subject ($SMTP_ID;$Objet;0))))
: (Non(Wr_Verif (“SMTP_Comments”;SMTP_Comments ($SMTP_ID;“Envoyé via 4D”))))
: (Non(Wr_Verif (“SMTP_Body”;SMTP_Body ($SMTP_ID;$corps mail;0))))
: (Non(Wr_Verif (“SMTP_Attachment”;SMTP_Attachment ($SMTP_ID;$chemin;2;0))))
: (Non(Wr_Verif (“SMTP_authentification”;SMTP_Auth ($SMTP_ID;$mail serveur;$mail mdp))))
: (Non(Wr_Verif (“SMTP_Send”;SMTP_Send ($SMTP_ID;0))))
Sinon
$EnvoyeOK:=Vrai //Message composé et envoyé avec succès
MESSAGE(“Message et pièce jointe envoyés avec succès.”)
Fin de cas

: Patrick MANSON

$Err:=SMTP_SetPrefs (0;15;-1)
Ce n’est pas le code que j’ai donné

autant pour moi, mais c’est toujours KO pour le sujet du mail

$L_Erreur:=SMTP_SetPrefs (-1;15;-1)
$L_Erreur:=SMTP_Charset (0;1) //appliquer les préférences
Au cas ou
: (Non(Wr_Verif (“SMTP_New”;SMTP_New ($SMTP_ID))))
: (Non(Wr_Verif (“SMTP_Host”;SMTP_Host ($SMTP_ID;[CONSTANTE]MAIL NOM SERVEUR;0))))
//: (Non(Wr_Verif (“SMTP_Host”;SMTP_Host ($SMTP_ID;“smtp.bbox.fr”;0))))
: (Non(Wr_Verif (“SMTP_From”;SMTP_From ($SMTP_ID;[CONSTANTE]MAIL FROM;0))))
: (Non(Wr_Verif (“SMTP_To”;SMTP_To ($SMTP_ID;$MsgÀ;0))))
: (Non(Wr_Verif (“SMTP_Subject”;SMTP_Subject ($SMTP_ID;$Objet;0))))
: (Non(Wr_Verif (“SMTP_Comments”;SMTP_Comments ($SMTP_ID;“Envoyé via 4D”))))
: (Non(Wr_Verif (“SMTP_Body”;SMTP_Body ($SMTP_ID;$corps mail;0))))
: (Non(Wr_Verif (“SMTP_Attachment”;SMTP_Attachment ($SMTP_ID;$chemin;2;0))))
: (Non(Wr_Verif (“SMTP_authentification”;SMTP_Auth ($SMTP_ID;$mail serveur;$mail mdp))))
: (Non(Wr_Verif (“SMTP_Send”;SMTP_Send ($SMTP_ID;0))))
Sinon
$EnvoyeOK:=Vrai //Message composé et envoyé avec succès
MESSAGE(“Message et pièce jointe envoyés avec succès.”)
Fin de cas