Discussion :

[Cpt Anderson]

salut à tous,

voulant envoyer des mails automatiques, j'ai scruté les FAQ et je suis tombé sur http://delphi.developpez.com/faq/?pa...et#envoyermail

j'ai suivi scrupuleusement le code pour envoyer mes mails avec les composants "Indy" mais rien ne se passe. Il n'y a pas d'exception non plus.

A votre avis, est ce que cela peut etre du à un firewall ou y'a t-il un pb dans le code.

Merci

[Cpt Anderson]

Je me répond à moi meme: apparament, notre serveur smtp n'a pas besoin de spécification de port. Donc cela fonctionne...

[portu]

Voici un code qui marche bien.
Attention à l'adresse SMTP !!! Elle doit être celle de votre FAI
Pièce jointe 3960

[Cpt Anderson]

J'ai un autre problème à soumettre : lorsque je rajoute le message à envoyer, celui doit être du type Tstrings donc j'utilise une stringList. Je la remplie avec mes info et une mise en forme (espaces, saut de ligne etc), mais losrque je recois l'email, la mise en forme a disparu, le texte est ecrit tout à la suite...

Je viens d'essayer avec un memo, ca fait exactement la meme chose...

Quelqu'un a-t-il une suggestion ?

merci

[LadyWasky]

Peut être parce que vous l'envoyez codé façon "HTML" (du coup sans les balises html, et en plus avec des retours chariots supprimés puisque considérés comme inutiles) au lieu de l'envoyer en disans que c'est du texte brut ?

Je me trompe surement...

[Cpt Anderson]

je l'envoie facon HTML et je viens de rajouter les balises qui vont bien du coup ca fonctionne.

Ca n'explique pas comment il faut faire si tu mets du texte brut

[LadyWasky]

je l'envoie facon HTML et je viens de rajouter les balises qui vont bien du coup ca fonctionne.

Ca n'explique pas comment il faut faire si tu mets du texte brut

Je suis incapable de te dire comment on fait !

Quoique je subodore une différence notable entre ceci :

Code :

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

 ContentType := 'text/html';

et celà :

Code :

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

ContentType := 'text/plain';

Si tu vois ce que je veux dire...

Du coup je serais pour rectifier le code de la FAQ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//Ici on va créer les différentes parties du message
  //Au cas où le client ne gère pas les messages HTML :
  With TIdText.Create(IdMessage.MessageParts, Message) Do
  Begin
    ContentType := 'text/plain';
    Body.Insert(0, 'Ce message est un message HTML... Configurez votre client de courrier électronique' +
   'pour le visionner de manière appropriée');
  end;
 
  //Ajout du message au format HTML (en supposant que Message contient du HTML) :
  with TIdText.Create(IdMessage.MessageParts, Message) do
    ContentType := 'text/html';

comme ceci :

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
 
var MessageTexteSeulement:boolean;
...
 
MessageTexteSeulement:=True; //False si on envoi du HTML
...
 
//Ici on va créer les différentes parties du message
//Au cas où le client ne gère pas les messages HTML :
  With TIdText.Create(IdMessage.MessageParts, Message) Do
  Begin
    ContentType := 'text/plain';
    if not MessageTexteSeulement then
    Body.Insert(0, 'Ce message est un message HTML... Configurez votre client de courrier électronique' +
   'pour le visionner de manière appropriée');
  end;
 
  //Ajout du message au format HTML (en supposant que Message contient du HTML) :
 
 if not MessageTexteSeulement then 
  with TIdText.Create(IdMessage.MessageParts, Message) do
    ContentType := 'text/html';

Ca devrait marcher...