Communautés partenaires en ligne
Communautés partenaires en ligne
Nous sommes le 23 Mai 2018, 18:42

Heures au format UTC + 1 heure [ Heure d’été ]




Poster un nouveau sujet Répondre au sujet  [ 1 message ] 
Auteur Message
 Sujet du message: pps impossible a ouvrir
MessagePosté: 24 Fév 2018, 15:45 
Hors ligne
Novice
Novice

Inscription: 23 Fév 2018, 18:39
Messages: 1
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[I], "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


Haut
 Profil  
 
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 1 message ] 

Heures au format UTC + 1 heure [ Heure d’été ]


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  
News News Plan de site Plan de site SitemapIndex SitemapIndex
Développé par phpBB® Forum Software © phpBB Group
Traduction par phpBB-fr.com
phpBB SEO
Astuces-Internet - FAQ Windows Vista - Développement photos -
Optimiser Windows - Aide Informatique - Photo