Indy et email au format enrichi

Version imprimable

17/05/2013, 21h38
Jazz77

Indy et email au format enrichi
Bonjour

J'utilise indy dans mon application pour l'envoi d'Emails.
Pour la rédaction du message j'utilise Richedit

Pour l'instant je peux envoyer que des messages en mode texte simple
Code:

1 2 msg.Body.Text:=utf8toAnsi(Richmemo1.Text);
Ce que j'envisage, c'est envoyer des messages Email au format enrichi de type RTF ou HTLM

Est ce possible avec indy ?

Merci d'avance

Jazz

en cherchant, j'ai trouvé le code suivant qui envoi un message au format RTF.

Code:

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
 
uses 
 
procedure SendMail;
var
  MBuilder: TIdMessageBuilderRtf;
  MyMemoryStream: TMemoryStream;
begin
  try
    MBuilder := TIdMessageBuilderRtf.Create;
    MyMemoryStream := TMemoryStream.Create;
    MBuilder.RtfType := idMsgBldrRtfRichtext;
    // RichEdit1 has PlainText set to False
    // at design time I pasted some formatted text onto it
    RichEdit1.Lines.SaveToStream(MyMemoryStream);
    MBuilder.Rtf.LoadFromStream(MyMemoryStream);
    MBuilder.FillMessage(IdMessage1);
    IdSMTP1.Connect;
    IdSMTP1.Send(IdMessage1);
    IdSMTP1.Disconnect;
  finally
    MyMemoryStream.Free;
    MBuilder.Free;
  end;
end;

Le code faisant référence à l'unité IdMessageBuilder;

Est-ce la version Indy 9 ou 10 ?
Ou trouve t' on cette unité ?

Merci d'avance
Jazz

Bonjour,

Sous Linux, Indy fonctionne mal selon moi et la dernière release ne s'installe pas correctement ni sur Windows, ni sur Nux. Je viens d'y passer une heure... par curiosté. Si cela vous tente http://indy.fulgan.com/Getting the l...rtoise SVN.pdf. Les paquets "fulgan" ne sont pas directement exploitables par Lazarus : il m'a toujours fallu déplacer et regrouper le contenu de divers dossiers du paquet pour que cela fonctionne [http://forums2.atozed.com/search.php?keywords=lazarus].

Il a quelques temps, j'ai effectué ces modifications sur un paquet 10.5.8.4797 qui est installable. Jamais il ne m'a posé de problème sous Win Win7 32/64 bits.... mais je me contente de smtp et ftp.

Il s'installe également sous Linux (après une légère modification du code de idGlobal.pas). Il fonctionne pour le ftp client. Mais sous Nux (en tous cas en 64 bits), le smtp rencontre des problèmes de codage UTF8/16 ce qui fait que le source qui fonctionne sous Win ne fonctionne pas sur cet OS. Je viens de vérifier en réinstallant le paquet sur ma Squeeze 64 Lazarus 1.08...

Enfin bref, on sent que Indy, c'est du Windows à l'origine. En plus, les problèmes se font plus nombreux en 64 bits. Toujours les origines je suppose.

Pour rester positif, sous Windows avec Indy, il est effectivement possible d'envoyer des emails HTML incluant notamment des images. Je n'ai jamais réussi avec la 10.0.2.3... mais avec la 10.5.8.4797, je viens de tester le code ci-dessous : cela fonctionne sur une Lazarus 1.1 FPC 2.6.1 SVN 40369 - Win 64.

Mes uses
Code:

1 2 3 uses Classes, SysUtils, FileUtil, IdSMTP, IdMessage, IdAntiFreeze, IdText, IdAttachment, IdAttachmentFile, Forms, Controls, Graphics, Dialogs, StdCtrls, IdMessageParts, IdMessageBuilder;
[/code]
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 type { TForm1 } TForm1 = class(TForm) Button2: TButton; IdAntiFreeze1: TIdAntiFreeze; IdMessage1: TIdMessage; IdSMTP1: TIdSMTP; procedure Button2Click(Sender: TObject); private { private declarations } public { public declarations } end;
Le code
Code:

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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 function GenerateCID : String; var i : smallint; sTmp : String; begin Randomize; sTmp := ''; for i := 1 to 40 do sTmp := sTmp + IntToStr(Round(Random(9))); Result := sTmp; end; procedure TForm1.Button2Click(Sender: TObject); var email: TIdMessage; sCid : String; begin scID := GenerateCID; with IdMessage1 do begin From.Text := 'expediteur@mail.com'; Recipients.EMailAddresses := 'destinataire@mail.com'; Subject := 'Hello'; with TIdMessageBuilderHtml.Create do try with html do begin Clear; Add('<html>'); Add('<head>'); Add('</head>'); Add('<body><h1>Hello</h1>'); Add('<img src="cid:'+scId+'" />'); Add('Voici une image !</body>'); Add('</html>'); end; HtmlCharSet:= 'utf-8'; HtmlFiles.Add('monimage.jpg',scID ); FillMessage(IdMessage1); try idSMTP1.Connect(); try idSMTP1.Send(IdMessage1); ShowMessage('Envoyé'); except on E: Exception do ShowMessage('Erreur : ' + E.Message); end; finally idSMTP1.Disconnect(); end; finally Free; end; // email.Free(); end; end;
Pour que cela puisse compiler :
http://www.selzig.com/1305202100/indy.png

Cordialement. Gilles
PS:

Pour le texte enrichi donc à partir d'un RichMemo, je ne sais pas. Le RichMemo fonctionne mal lui aussi en Nux.
Mon paquet "adapté" indylaz.rar fait 2630 Ko. Si vous en avez besoin...
Adresse utile : http://www.indyproject.org/Sockets/B...080116.EN.aspx

Merci Gilles pour ta réponse.

Mon objectif est d'envoyer un message au format RTF par email sous Windows

J'ai vérifié le composant RichMemo et il me génère bien le document au format RTF.

J'ai réussi cependant à envoyer un émail au format Html, cependant RichMemo ne gère pas l'HTML .

J'ai cherché sans succès sur le net une unité qui converti le RTF en HTML.

je ne sais pas si il existe un composant de type Richmemo qui gère le HTML.

Votre paquet adapté indylaz.rar m'intéresse.

mon code est le suivant

Code:

1
2
3
4
5
uses
  Classes, SysUtils, FileUtil,
  SynMemo, Forms, Controls, Graphics, Dialogs, Buttons, ComCtrls, StdCtrls,
  ButtonPanel, ExtCtrls, IdSMTP, IdMessage, IdAttachmentFile, IdComponent,
  RichMemo, IdText, IdMessageBuilder;

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
procedure TFormMail.btnSendClick(Sender: TObject);
var
  // MBuilder: TIdMessageBuilderRtf;
  MyMemoryStream: TMemoryStream;
  MBuilder: TIdMessageBuilderRtf;
begin
  try
    MyMemoryStream := TMemoryStream.Create;
 
    msg.ReceiptRecipient.Name := 'jazz';  //'<Name of recipient>'
    msg.ReceiptRecipient.Address := edFrom.Text;  // <Email address of recipient>
 
    msg.From.Name := 'jazz';                     // Nom de l'expediteur
    msg.From.Address := edFrom.Text;       // Email expediteur
    msg.Sender.Name := edTo.Text;           // Email destinataire 
    msg.BccList.Add.Address := edCC.Text; // Email en copie cachée
 
    Msg.ContentType:='multipart/mixed';
    msg.IsEncoded:=true;
    msg.CharSet:='iso-8859-1';
    msg.Encoding:=meMIME;
 
    MBuilder := TIdMessageBuilderRtf.Create;
    MBuilder.RtfType := idMsgBldrRtfRichtext;
 
    RichMemo1.SaveRichText(MyMemoryStream);
    MyMemoryStream.SaveToFile('source2.rtf');
    MyMemoryStream.Position:=0;
 
    MBuilder.Rtf.LoadFromStream(MyMemoryStream);
    MBuilder.FillMessage(msg);
 
    msg.Subject := edSujet.Text;
    smtp.Host := edSMTP.Text;   // IP Address of SMTP server
    smtp.Port := 25;        // Port address of SMTP service (usually 25)
  except
    showmessage('ca plante');
  end;
  try
    try
      smtp.ConnectTimeout := 1000;
      smtp.Connect;
      Application.ProcessMessages;
      smtp.Send(MSG);
    except
      on E: Exception do
        StatusMemo.Lines.Insert(0, 'ERREUR: ' + E.Message);
    end;
  finally
    if smtp.Connected then
       smtp.Disconnect;
    MyMemoryStream.Free;
    MBuilder.Free;
  end; 
end;

Coridalement
jazz

Bonjour,

Désolé pour le retard,

Donc voici le paquet :

indy-10.5.8.4797.zip [~2.6Mo]

J'ai modifié le IdGlobal.pas comme proposé dans ce forum
Initialement
Code:

1 2 3 4 5 // LByteSize was decremented by the number of bytes stored in the output buffer Inc(Result, SizeOf(LBytes)-LByteSize); if Chars = nil then begin Exit; end;
devient
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 {$IFDEF Windows} // LByteSize was decremented by the number of bytes stored in the output buffer Inc(Result, SizeOf(LBytes)-LByteSize); if Chars = nil then begin Exit; end; {$ENDIF} //Add -> http://forums2.atozed.com/viewtopic.php?f=7&t=26264&start=0 {$IFDEF Linux} // LByteSize was decremented by the number of bytes stored in the output buffer //Inc(Result, SizeOf(LBytes)-LByteSize); Inc(Result, ByteCount-LByteSize); //Prepare for the next pass of the repeat (just in case, I think it should not do it again...) ByteCount:=LByteSize; {$ENDIF}
et le indy.lpk pour que le paquet s'installe en une seule fois. J'ai vérifié l'installation sous Windows7 et Ubuntu 13. RAS Ce sont encore les vieilles icônes (16 couleurs)...

Petits rappels :
Sous Linux, avec la version 4797, il y a un problème au niveau de l'UTF8 lors de l'utilisation de certains composants.
Le paquet ne s'installe pas correctement sur mon Mac OS.

J'ai également téléchargé le dernier trunk de Indy mais là.... Je ne sais pas comment cela fonctionne en Delphi mais le genre de code suivant ne passe pas en Lazarus
Code:

1 2 3 4 Procedure machin(const aInt : integer) begin inc(aInt); end;
En Lazarus, si aInt est définie comme constante, on ne peut pas l'incrémenter... Le code de idGlobal.pas du trunk contient une dizaine de ces "bizarreries"... et bloque à la compilation. C'est contournable assez facilement mais il y a d'autres problèmes signalés.

Cordialement. Gilles

27/05/2013, 12h40
Jazz77

Merci Gilles :ccool:*

Je n'ai toujours pas réussi à envoyer un mail au format Rtf mais je continue mon investigation.

cordialement

Jazz
27/05/2013, 16h21
Nullosse

Salut Jazz77,
va faire un tour ici pour une conversion rtf vers html. Je ne sais pas si cela marche mais le code existe.

Amicalement, nullosse
28/05/2013, 12h14
Jazz77

Merci nullosse pour l'info :ccool:

pour l'instant je focalise mon investigation sur les fonctionnalités d'Indy . Je pense qu' Indy intègre la fonction d'envoi de mail au format RTF.

Cordialement
Jazz