pps impossible a ouvrir

Discussions gérénales sur Microsoft Windows Vista, des différentes versions.
Verrouillé
rod11352
Novice
Novice
Messages : 1
Enregistré le : 23 févr. 2018, 17:39
Configuration matérielle : pc intel core 2duo cpu 2.33ghz mémoire vive de 3 go os 32 bits sous windows vista service pack 2
Etes vous un robot ? : Non

pps impossible a ouvrir

Message par rod11352 »

avec le logiciel windev 19, j'essaye de m'envoyer un fichier pps que je n'arrive pas a ouvrir lors de la réception. le fichier pps stocké sur le disque dur s'ouvre parfaitement. en l'envoyant par mail, je le réécrit sur mon disque dur et la impossible à ouvrir (impossible d'ouvrir E:\e2.pps. le type de fichier n'est pas pris en charge).

code du bouton envoi du fichier:
////////////////////////////////////////////////////////////////// mise a blanc du e mail HTML et creation de la structure Email

objEmail..Sujet = "test"//sle_sujet
objEmail..Expediteur = comptes.adresse_e_mail
objEmail..AdresseExpéditeur = comptes.adresse_e_mail
objEmail..HTML = SAI_Texte_HTML
objEmail..Message = ""
objEmail..ConfirmationLecture = Faux//AR_EMAIL

Ajoute(objEmail..Destinataire, "toto@orange.fr")

SI PAS EmailChargeFichierAttaché(objEmail,"E:\essai1.pps") ALORS Erreur(ErreurInfo(errComplet))

// La jauge est gérée par la procédure GestionProgression
EmailJauge(GestionProgression)
EmailEnvoieMessage(objSMTPSession, objEmail)

SI ErreurDétectée ALORS
Erreur("Envoi du message",CR,ErreurInfo(errRésumé),CR,ErreurInfo(errComplet))
EmailFermeSession(objSMTPSession)
RETOUR
FIN

// on signale que le message est ecrit
message_ecrit = Vrai

// Annulation de cette jauge
EmailJauge("")

// Fermeture de la session SMTP
EmailFermeSession(objSMTPSession)

code du bouton réception du mail:
// Ré-initialiser toutes les variables de la structure émail
EmailRAZ()

// on lit le premier mail (pour mon exemple il n'y a qu'un seul mail)
EmailLitPremier(objPOP3Session)

// on calcule la taille du mail pour la jauge
taille_message_lu = EmailTailleMessage(objPOP3Session, Table_Mail.num_message[indice_table_mail])

JAUGE_mails_reception..Valeur = 0
JAUGE_mails_reception..BorneMax = taille_message_lu
EmailJauge(GestionProgression)

//FichierASauver est une chaîne

// je met un nom de fichier en dur e2.pps
POUR I = 1 A Email.NbAttache
//FichierASauver = fSélecteur("", "e2", "Nom du fichier à sauvegarder", "pps", "pps", fselCrée)
SI PAS EmailSauveFichierAttaché(Email.Attache, "e:\e2.pps") ALORS Info(ErreurInfo(errComplet)) //FichierASauver)
FIN

// fermeture de session
EmailFermeSession(objPOP3Session)//COMPTEs.identifiant_de_messagerie)

je n'ai pas d'erreur de fonctionnement.
merci pour les réponses
Verrouillé