Discussion :

[Vulcanos]

Bonjour et meilleurs voeux à tous,

Je voudrais envoyer un mail "simple" (c.à d. sans pièce jointe) en utilisant les composants Indy. Comme je n'ai pas d'expérience en la matière, je me suis largement inspiré de la FAQ pour un premier essai :

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
31
32
33
34
35
36
37
38
39
 
procedure TForm4.Button2Click(Sender: TObject);
var
  IdMessage: TIdMessage;
  IdSMTP: TIdSMTP;
  Message: TStrings;
  i: Integer;
begin
  IdMessage := TIdMessage.Create(nil);
  IdMessage.ContentType := 'multipart/alternative';
  IdMessage.From.Address := 'exp@free.fr';
 
  IdMessage.ReplyTo.Add.Address := 'exp@free.fr';
  IdMessage.Recipients.Add.Address := 'dest@free.fr' ;
  IdMessage.Subject := 'Sujet du message';
  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;
  with TIdText.Create(IdMessage.MessageParts, Message) do
    ContentType := 'text/html';
  IdSMTP := TIdSMTP.Create(nil) ;
  IdSMTP.Port := 25;
  IdSMTP.Host := 'smtp.free.fr';
  Try
    Try
      IdSMTP.Connect;
      IdSMTP.Send(IdMessage);
    except
      on e: exception do MessageDlg(e.Message, mtError, [mbOK], 0);
    end;
  finally
    IdSMTP.Disconnect;
    IdSMTP.Free;
    IdMessage.Free;
  end;
end;

A la compilation, j'ai le message d'erreur suivant :

"E2034 Trop de paramètres originaux"
correspondant aux lignes :

Code :

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

1
2
 
With TIdText.Create(IdMessage.MessageParts, Message)

Et là, je ne pige pas d'où provient le problème.

Merci de votre réponse.

[Rayek]

Vire cette ligne, elle te sert à rien le ContentType se définit directement dans le IdMessage.

[Vulcanos]

Salut Malatar,

Merci.

Pour ceux que ça intéresse, j'ai trouvé aussi ça :

http://delphi.about.com/od/internetintranet/l/aa020304a.htm

avec, pour Delphi 2005, la rectif suivante :

http://forums.about.com/n/pfx/forum.aspx?nav=messages&tsn=43&tid=8220&webtag=ab-delphi

(ça mériterait de figurer dans la FAQ !!! )

et ça fonctionne trés bien

A+