Discussion :

[Helpme33]

Bonjour mon problème est le suivant :
Expédier un mail dont l’adresse de l’expéditeur est différente de celle du compte serveur avec gmail.
Le destinataire reçoit :
- De : marcel@gmail.com
et non
- De : monexpéditeur@orange.fr
Code :

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
27
28
29
30
sServer est une chaîne = "smtp.gmail.com"
sUser est une chaîne = "marcel@gmail.com"
sPwd est une chaîne = "monPWD"
EmailChangeTimeOut(10)
EmailOuvreSessionSMTP(sUser, sPwd, sServer, 578, Faux, emailOptionSécuriséTLS)//,EmailOptionDéfaut)
SI ErreurDétectée ALORS
	Erreur()
	RETOUR
FIN
//Remise à zéro des variables Email
EmailRAZ()
//Expéditeur du message
Email.Expéditeur = "MonExpediteur@orange.fr"
//Destinataire(s) du message
Email.Destinataire[1] = "MonDestinataire@free.fr"
Email.NbDestinataire = 1
Email.Priorité = emailPrioritéHaute
//Sujet et contenu du message
Email.Sujet = "Anomalie "
Email.Message = "GMAIL ______________" + DateVersChaîne(DateDuJour(),"JJ/MM/AAAA")
Email.HTML = ""
//Envoi du message
EmailEnvoieMessage(sUser)
SI ErreurDétectée ALORS
	Erreur(ErreurInfo(errMessage))
SINON	
	LIB_TRANS2 = "Ok"
FIN
//Fermeture de la session SMTP
EmailFermeSession(sUser)

Pouvez-vous m’aider, merci d’avance ?

[Invité]

Aider à faire quoi? Avez vous un message d'erreur?

[rudolfrudolf]

Bonjour,

@Romulus001 A priori il veut que ce soit monexpéditeur@orange.fr qui apparaisses chez le destinataire du mail et actuellement c'est marcel@gmail.com qui apparait.

@Helpme33 Utilisez les balises de code pour rendre votre code plus lisible.


Edit : un petit bout de code ou je balance un mail de notification et c'est bien l'adresse mail que je veux qui apparait chez le destinataire :

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
//Ouverture d'une session SMTP
	EmailOuvreSessionSMTP("SessionSMTP", parametres.adresse_serveur_mail)
	SI ErreurDétectée ALORS
		Erreur()
		RETOUR
	FIN
 
	//Remise à zéro des variables Email
	EmailRAZ()
 
	//Expéditeur du message
	Email.Expéditeur =RéseauUtilisateur()+"@xxx.xx"
 
 
	//Destinataire(s) du message
	Email.Destinataire[1] = parametres.email_1
	Email.NbDestinataire = 1
 
	//en copie du message
	Email.Cc[1] = parametres.email_2
	Email.NbCc = 1

En espérant avoir aidé