Envoi d email avec Delphi

Version imprimable

21/08/2006, 09h03
Cpt Anderson

Envoi d email avec Delphi

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
21/08/2006, 10h05
Cpt Anderson

Je me répond à moi meme: apparament, notre serveur smtp n'a pas besoin de spécification de port. Donc cela fonctionne...
21/08/2006, 10h08
portu

Voici un code qui marche bien.
Attention à l'adresse SMTP !!! Elle doit être celle de votre FAI
Pièce jointe 3960
22/08/2006, 11h30
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...:cry:

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

Quelqu'un a-t-il une suggestion ?

merci
22/08/2006, 12h54
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...
22/08/2006, 14h06
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 :marteau:

Citation:

Envoyé par 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 :marteau:

Je suis incapable de te dire comment on fait ! :aie: :lol:

Quoique je subodore une différence notable entre ceci :

Code:

ContentType := 'text/html';

et celà :

Code:

ContentType := 'text/plain';

Si tu vois ce que je veux dire...

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

Code:

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:

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...:mrgreen: :aie: