Discussion :

[Nimothenicefish]

BOnjour, bonjour

Je cherche comment joindre un fichier lors de l'envoie d'un email. Voici mon code pour cet envoie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//Connexion au serveur effectuée avec EmailOuvreSession
User est une chaîne = "******"
Password est une chaîne = "test"
NomUser est une chaîne
SI EmailOuvreSessionSMTP(User, Password,"premmia", 25) = Vrai ALORS 
	NomUser = User
	//remplissage des variables Email
	Email.AdresseExpéditeur = "******@ch-niort.fr"
	Email.Expéditeur = "******@ch-niort.fr"
	Email.NbDestinataire = 1
	Email.Destinataire[1] = "*******@hotmail.fr"
	Email.Sujet = "Envoyer des emails avec windev !"
	Email.Message = "Youpii ca marche ! =)"
 
	//Lors de la connexion nous avons récupéré le nom de l'utilisateur dans la variable NomUser
	//Envoie le mail
	EmailEnvoieMessage(NomUser)
	SI ErreurDétectée ALORS
		Erreur("EmailEnvoieMessage a échoué ' " + ErreurInfo(errMessage) + " ' ")
	SINON
		Info("EmailEnvoieMessage a réussi")
	FIN
SINON
	NomUser = " "
	Erreur("Impossible d'établir la connexion"+RC+EmailMsgErreur(Email.Erreur))
FIN

merci

[Jannus]

F1 email l'exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Email.NbAttache = 0            // Le nombre de pièces attachées

Voire même directement Email.Attache ou Email.NbAttache

[Nimothenicefish]

Email.Attache[1] = "chemin du fichier"
Email.NbAttache = 1

ca marche super avec ca ^^

Merci !!

[edzodzinam]

Merci merci beaucoup tu m'as aidé à voir l'erreur que je faisais dans mon code. Surtout ne pas mettre Email.NbAttache avant Email.Attache.