Discussion :

[nut62]

Mon but est d'envoyer un email avec un corps de message en html et une piece jointe. Tout marche bien sans la piece jointe. Par contre, dès que j'ajoute la pièce jointe, plus de html ...
J'utilise Indy 9 avec Delphi 7.

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
 IdMessage1:=TIdMessage.Create(nil);
  IdSMTP1:=TIdSMTP.Create(nil);
 
  With IdMessage1 do
    Begin
      CharSet:='iso-8859-1';
      Encoding:=meMIME;
      ContentType:='text/html';
      Body.Add('<b>Mon message </b>');
      From.Text:='moi@mondomaine.com';
      Recipients.EMailAddresses:='toi@tondomaine.com';
      Subject:='mon sujet';
      TIdAttachment.Create(IdMessage1.MessageParts,'tralala.pdf);
    End;
  IdSMTP1.Host:='mail.monserveur.com';
  IdSMTP1.Connect();
 
  try
    IdSMTP1.send(IdMessage1);
  finally
    IdSMTP1.Disconnect;
  End;
 
  IdMessage1.Free;
  IdSMTP1.Free;

Si qqn a une idée...

Ah, j'ai essaye également ceci, mais ça marche pas mieux

Code :

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

1
2
3
4
5
With TIdText.Create(IdMessage1.MessageParts) do
         begin
           ContentType:='text/html';
           Body.Add('<b>Mon message </b>');
         end;

[fayenciel]

Voici un bout de code qui fonctionne

sur la fiche sont posés 1 TIdMessage et 1 TIdSMTP


//******************************
// Confection du message
//******************************
If messagedlg('envoyez le message ?',mtConfirmation,[mbyes,MbNo],0) = Mrno then exit;

// Assignation du memo au corps du message
IdMessage1.SetBody(Memo1.Lines);

// Definition du niveau de priorité
IdMessage1.Priority := mpHighest;

// Adresse de l'emetteur du message
IdMessage1.From.Address := 'toto@toto.com';

// Sujet du message

IdMessage1.Subject := 'le sujet du message';


// Destinataire du message
IdMessage1.Recipients.EMailAddresses := Mail.Text; // Tedit

IdMessage1.ReceiptRecipient.Address := 'toto@toto.com';

// Pièces jointes
TIdAttachment.Create(IdMessage1.MessageParts, 'c:\toto.Pdf');


//******************************
// paramêtre du client SMTP
// (connexion au serveur)
//******************************

IdSMTP1.Username := 'toto@toto.com';
IdSMTP1.Host := 'smtp.free.fr';
IdSMTP1.Password := 'xxxxxxx';

// Poster
Try
IdSMTP1.Connect(300);
IdSMTP1.Send(IdMessage1);
Finally
IdSMTP1.Disconnect;
IdMessage1.MessageParts.Clear;
End;
ShowMessage('Opération terminée');
end;

et voili !!!

[nut62]

Meme chose, dès que j'ai une piece jointe, le html n'est pas interprété...

[nut62]

Pour info, c'est un bug dans l'unité IdMessageClient
Il y a des 'text/plain' de codés "en dur"... ligne 359 et 277
A mon avis, le prb est ligne 359. En tous cas, une fois ces 2 lignes corrigées et le tout recompilé, tout est ok.

Le prb est référencé sur sourceforge.