Je suis sur un exécutable qui compare des fichiers csv et que envoie le résultat pas mail. Hélas, si ça marche très bien sous Mac OS, Sous Linux les caractère accentués passent très mal et donne ceci : Voici la liste des départs et arrivées
Dans CreateMail(0, "noreply@bobonne.be", "Test Liste des mouvements",#PB_UTF8) que ce soit #PB_UTF8 ou #PB_Ascii, le résultat est identique.
Dans nano, les accents sont correctes et c'est à la réception du mail que l'on voit que c'est mal passé. Les messages dans la consoles sont aussi correctement accentués.
Code : Tout sélectionner
EnableExplicit
OpenConsole()
Define Result.i, Progress.i, I.i, ServeurSMTP.s, PortSMTP.i
InitNetwork()
ServeurSMTP = "smtp.bobonne.be"
PortSMTP = 25
If CreateMail(0, "noreply@bobonne.be", "Test Liste des mouvements",#PB_UTF8)
SetMailBody(0, "Bonjour," + #CRLF$ +
"Voici la liste des départs et arrivées dans le fichier : "+FormatDate("%dd/%mm/%yyyy",Date()) + #CRLF$ + #CRLF$ + #CRLF$ +
#CRLF$ + #CRLF$ +"Cordialement,"+ #CRLF$ +"Le script automatique de contrôle csv")
AddMailRecipient(0,"gerard@bobonne.be", #PB_Mail_To)
Result = SendMail(0, ServeurSMTP, PortSMTP, #PB_Mail_Asynchronous)
Repeat
Progress = MailProgress(0)
Delay(300)
Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
If Progress = #PB_Mail_Finished
PrintN("Courriel envoyé avec succès !")
Else
PrintN("Erreur : Le courriel n'a pu être envoyé !")
EndIf
FreeMail(0)
EndIf
Avez-vous une idée du problème ?
Je vous en remercie.