Discussion :

[Bowen]

Je cherche à faire apparaitre un nom de destinataire sur un mail.
Que lorsque l'on envoie le mail, il n'y ait pas uniquement l'adresse du destinataire, mais également le nom tel qu'il est enregistré dans mon carnet d'adresse.
J'ai fait plusieurs essais de ce style :

Code :

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

1
2
 
Email.Destinataire[1] = "Nom en toutes lettres <xxxxx@gmail.com>"

Mais j'obtiens une erreur du style:

La dernière réponse du serveur SMTP est :
<553 5.0.0 <Nom en toutes lettres <xxxxx@gmail.com>... Unbalanced '<'

Je précise qu'avec la ligne formée en

Code :

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

1
2
 
Email.Destinataire[1] = "xxxxx@gmail.com"

le mail part bien et je le récupère dans ma boite mail.

[philippe_dev]

Je cherche à faire apparaitre un nom de destinataire sur un mail.
Que lorsque l'on envoie le mail, il n'y ait pas uniquement l'adresse du destinataire, mais également le nom tel qu'il est enregistré dans mon carnet d'adresse.
J'ai fait plusieurs essais de ce style :

Code :

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

1
2
 
Email.Destinataire[1] = "Nom en toutes lettres <xxxxx@gmail.com>"

Mais j'obtiens une erreur du style:

Je précise qu'avec la ligne formée en

Code :

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

1
2
 
Email.Destinataire[1] = "xxxxx@gmail.com"

le mail part bien et je le récupère dans ma boite mail.

avec la fonction EmailEnvoie on arrive à ce resultat

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
ContenuMessage = "Return-Path: <%1>"+ RC + ...
"From: ""%2"" <%1>"+ RC +...
"To: <%3>"+ RC +...
"Subject: %4"+ RC +...
"MIME-Version: 1.0"+ RC +...
"Content-Type: text/plain;"+ RC +...
" charset=""us-ascii"""+ RC +...
"Content-Transfer-Encoding: 7bit"+ RC + RC +"%5"+ RC
 
SI fSauveTexte("ContenuEmail.txt", ...
       ChaîneConstruit(ContenuMessage,Email.Expéditeur,Email.AdresseExpéditeur, ...
       Email.Destinataire[1],Email.Sujet,Email.Message)) = Faux ALORS
   Erreur(ErreurInfo())
SINON
   EmailEnvoie("SessionSMTP","ContenuEmail.txt")
   SI ErreurDétectée ALORS
      Erreur(ErreurInfo())
   FIN 
FIN

mais le problème que je n'ai pas resolu c'est joindre un fichier, pour cela j'utilise la fonction EmailEnvoieEessage, à la reception du mail j'ai toujours l'adresse mail de l'expediteur au lieu de "nom de société <adresse@fai>"

tjs preneur d'une solution

[Bowen]

En fait, j'ai trouvé, c'est bien simple

Code :

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

Email.Destinataire[1] = """Nom en toutes lettres"" <xxxxx@gmail.com>"

J'étais pas loin...