Je réalise des essais d’envoie de message et j’ai eu la surprise de détecter un dysfonctionnement sur PB550.
En effet si vous exécutez le prg suivant après avoir placé l’ email correctement.
Sous PB531 en 32 ou 64 bits en ASCII ou en unicode tout est OK.
Par contre sous PB550 en 32 ou en 64 bits le corps du message principal n’apparait pas si au moins une pièce jointe est associée.
Avez-vous le même Problème que moi ?
Code : Tout sélectionner
if InitNetwork()
De$ = "XXXXXXXXX@free.fr" ; --- Ton adresse Email
Pour$ = "XXXXXXXX@free.fr"; --- Celle du destinataire (ça peut être la même)
Sujet$ = "Ca va fonctionner cette fois éèçà?"
Serveur$ = "smtp.free.fr" ;;; si vous êtes chez FREE
If CreateMail(0, De$, Sujet$)
;;;; ;**************** Pour ne pas envoyer de pièce jointe annulez ou envoyer autant de pièces jointes que vous le désirez ******************
Repeat
fichiert$=OpenFileRequester("Choisissez un fichier ou annulez", "", "", 0)
fichier$=GetFilePart(fichiert$)
Tfichier=FileSize(Fichiert$)
If Tfichier>0
If AddMailAttachment(0, fichier$, fichiert$ )
mes$="Pièce jointe correctement créée éèçàù//"
Else
mes$= "Impossible de créer la pièce jointe "
EndIf
EndIf
Until Tfichier<1
;;;; ;**************** Pour ne pas envoyer de pièce jointe annulez ou envoyer autant de pièces jointes que vous le désirez ******************
SetMailBody(0, "Ceci est un essai de PP éèçàù !" + #CR$ + "2ème ligne du message")
AddMailRecipient(0, Pour$, #PB_Mail_To)
AddMailRecipient(0, Pour$, #PB_Mail_Cc )
Debug GetMailBody(0)
; delay(200)
Go = SendMail(0, Serveur$)
Repeat
Progress = MailProgress(0)
Delay(300)
Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
If Progress = #PB_Mail_Finished
Debug "Courrier OK !"
Else
Debug "Courrier non reçu !"
EndIf
If Go
MessageRequester("OK!", mes$+"Message envoyé avec succès :-)", 64)
Else
MessageRequester("Argl!", "Il en veut pas de ton message :-/", 48)
EndIf
EndIf
endif