[Indy] Mail HTML avec images incluses

Version imprimable

02/03/2010, 11h50
r0d

[Indy] Mail HTML avec images incluses

Bonjour,

je cherche un exemple de code qui utilise Indy (composant IdSMTP), et qui permet d'envoyer un mail HTML avec des images "embedded", c'est à dire ce sont des images envoyées en pièces jointes mais grâce aux protoles mime et cid, elles sont affichées directement dans le mail (mail qui finalement n'est qu'une page HTML).

J'ai trouvé des exemples en VB et en Delphi, mais rien en C++. Et dans les exemples fournis avec Indy, il n'y a pas d'exemple qui fait ça.

Quelqu'un a-t-il une idée, un lien?
Merci par avance.
02/03/2010, 12h05
pottiez

Salut,
ton exemple avec Delphi utilise-t-il aussi le composant Indy ?
Si oui, il est possible de traduire le code Delphi en BCB, si c'est les même version des composants Indy c'est encore mieux :D
02/03/2010, 12h13
r0d

Citation:

Envoyé par pottiez

Salut,
ton exemple avec Delphi utilise-t-il aussi le composant Indy ?

Oui, mais je ne suis pas sûr qu'il fasse exactement ce que je veux. C'est celui-ci.

Citation:

Envoyé par pottiez

Si oui, il est possible de traduire le code Delphi en BCB, si c'est les même version des composants Indy c'est encore mieux :D

Comment puis-je savoir quelle version de Indy j'ai? (c'est Borland c++ builder 6.0 ... oui je sais... mais j'ai pas le choix :cry: )
02/03/2010, 12h29
pottiez

De base dans BCB 6 c'est la version 8.0.25 d'Indy, je vais essayer de te transcrire ca en BCB ;)
02/03/2010, 12h39
r0d

wah merci :D

Sinon j'ai trouvé du code sur google.code.search qui semble correspondre mieux à ce que je veux faire:

http://www.google.com/codesearch/p?h...a=N&cd=3&ct=rc
( fonction MontaCabecalhoEmailModelo1, ligne 156 )

Voila le code traduit en BCB (désolé pour le délai, je suis aller manger entre deux :D)

On part du principe que tu as posé un composant TIdSMTP sur ta fenêtre et que celui-ci est appelé SMTP, ainsi qu'un bouton, l'envoie du message se fait dans l'évènement OnClick du bouton.

La configuration du composant TIdSMTP est la suivante :
AuthentificationType : atLogin
UserId : ton login SMTP
Password : ton mot de passe de compte SMTP

fichier .h de la fenêtre (en gros j'y ai rajouté la déclaration du TIdMessage)

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
//---------------------------------------------------------------------------
 
#ifndef Unit5H
#define Unit5H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdMessageClient.hpp>
#include <IdSMTP.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // Composants gérés par l'EDI
  TIdSMTP *SMTP;
  TButton *Button1;
  void __fastcall Button1Click(TObject *Sender);
  void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:    // Déclarations de l'utilisateur
  TIdMessage* IdMsgSend;
public:        // Déclarations de l'utilisateur
  __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

.cpp de la fenêtre

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  IdMsgSend = new TIdMessage(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  IdMsgSend->Clear();
 
  IdMsgSend->ContentType = "Multipart/Alternative";
  IdMsgSend->Subject = "Sujet du message";
 
 
  // add a plain text message part
  TIdText *idtTextPart = new TIdText(IdMsgSend->MessageParts,NULL);
  idtTextPart->ContentType = "text/plain";
  idtTextPart->Body->Add("This is the plain part of the message."); 
 
  TStringList* body = new TStringList();
  body->Add("Test");
 
  // add the HTML message part
  idtTextPart = new TIdText(IdMsgSend->MessageParts,body);
  idtTextPart->ContentType = "text/html";
 
  IdMsgSend->From->Address = "me@mycompany.com";
  IdMsgSend->From->Name = "Me";
 
  IdMsgSend->Sender->Address = "me@mycompany.com";
  IdMsgSend->Sender->Name = "Me";
 
 
  // add the recipients  TIdEmailAddressList
 
  IdMsgSend->Recipients->Clear();
  IdMsgSend->Recipients->Add()->Address = "address1@somecompany.com";
  IdMsgSend->Recipients->Add()->Address = "address2@somecompany.com";
 
 
  IdMsgSend->Subject = "Some Subject";
 
  // add an attachment
  TIdAttachment* attachment = new TIdAttachment(IdMsgSend->MessageParts, "C:\\Documents and Settings\\alexandrep\\Mes documents\\Mes images\\fleche.JPG");
 
  SMTP->Host = "smtp.isp.com";
  SMTP->Port = 25;
 
    SMTP->Connect();
 
    bool test = SMTP->Connected();
 
    bool test2 = SMTP->Authenticate();
 
    SMTP->Send(IdMsgSend);
 
    SMTP->Disconnect();
 
  ShowMessage("Message Sent");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  delete IdMsgSend;
}
//---------------------------------------------------------------------------

Il faudrait testé avec ton client messagerie pour voir si l'image est bien affiché dans le message, car je n'en suis pas sur, sinon ce code est fonctionnelle :D

Le code Google à l'air d'être plus adapté à ce que tu recherche ;)

02/03/2010, 15h30
r0d

wah :merci:

Je vais tester ça tout de suite je te tiens au courant :D

Encore merci :ccool:
02/03/2010, 17h15
r0d

Arf, ça ne fonctionne pas. Je ne parviens même pas à envoyer un mail "normal" (que du texte quoi), je me mange une exception: "acces denied" (sous-entendu, enfin, de ce que je pense comprendre, c'est l'acces au serveur smtp qui m'est refusé). Alors que ça fonctionne farpaitement avec les mêmes paramètres et une lib tierce (chilkat) en c++ "normal".

Mais de toutes façons, je n'ai pas le choix, il faut que ça marche sous Borland 6, donc j'y retourne :aie:

Si je parviens à pondre un code qui fonctionne, je le posterai.
02/03/2010, 17h19
pottiez

Vérifie bien la configuration de ton composant TIdSMTP, moi j'ai eu cette erreur lorsque mon composant n'avais pas la bonne valeur dans la propriété AutentificationType ;)

Citation:

Envoyé par pottiez

La configuration du composant TIdSMTP est la suivante :
AuthentificationType : atLogin
UserId : ton login SMTP
Password : ton mot de passe de compte SMTP
02/03/2010, 17h24
r0d

Bien vu, c'était ça :ccool:
J'arrive donc maintenant à envoyer un mail "normal". Je passe aux fichiers joints :)

edit: fichiers joints ok. Mais ils ne sont pas inclus dans la page html. J'y retourne.

Salut

Si c est juste une image à afficher :

Code:

1
2
3
 TIdAttachment* attachment = new TIdAttachment(IdMsgSend->MessageParts, "C:\\Documents and Settings\\alexandrep\\Mes documents\\Mes images\\fleche.JPG");

attachment->ContentType = "image/bmp";

parcontre le nom s affiche
Et encore : pour numericable pas asLogin mais asNone

Pour la version 2006 , il y a ContentId qui permet d inserer l image dans le code html

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
IdMessage1->Clear();
// set properties as needed...
IdMessage1->Encoding = meMIME;
 
TIdText *txt = new TIdText(IdMessage1->MessageParts, NULL);
txt->Body->Text = "plain text message here.";
txt->ContentType = "text/plain";
 
TIdText *html = new TIdText(IdMessage1->MessageParts, NULL);
html->Body->Text = "<html><body>html message here.<br><img 
src="cid:logo"></body></html>";
html->ContentType = "text/html";
 
TIdAttachment *attachment = new TIdAttachment(IdMessage1->MessageParts, 
"c:\\path to\\file.bmp");
attachment->ContentDisposition = "inline";
attachment->ContentID = "<logo>";
attachment->ContentType = "image/bmp";
attachment->FileName = "file.bmp";

Salut

Je t ai trouvé un composant Delphi tout à fait compatible avec bcb6

Tout d abord , merci à Pottiez qui m a traduit une partie du code et egalement à l auteur qui fournit tout çà gratuitement

Le soft a besoin de :
un bouton
un memo
un statictext
un progressbar
un opendialog
et les petits nouveaux
un SMTP2000
un MailMessage2000
un ImgParser2000

Je te poste les codes en te mettant en garde sur la fonction SendMessageA() qui me renvoye une erreur : unresolved in ... .obj

Si quelquun a une idée , merci , j ai dejà rencontré cette erreur mais je ne sais plus où et comment ( activx vlc ? )

En espèrant t avoir aider

Bonne journée

http://www.delphipages.com/comp/timgparser-4686.html

Download
http://www.delphipages.com/download.php?id=3128

Unit.cpp

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)

#pragma link "ImgParser2000"
#pragma link "Mail2000"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{ 
  OpenDialog1->InitialDir =  ExtractFilePath(Application->ExeName)+"Newsletter";
  if (OpenDialog1->Execute() )
     {Memo1->Lines->LoadFromFile(OpenDialog1->FileName); }

  ImgParser20001->HTMLText->Text = Memo1->Lines->Text;
  ImgParser20001->Parse();
  ProgressBar1->Position = 0;
  StaticText1->Caption = "";

 ////////////  here
   char* Position;
  char* OldPos;
  char* P;
  if( ImgParser20001->CreateCID()) //si CreateCID est une méthode ou if( ImgParser20001->CreateCID) si CreateCID est une propriété
  {
  Memo1->Lines->Text = ImgParser20001->HTMLText->Text;
  ProgressBar1->Position = 0;
  StaticText1->Caption = "";
  }

  P = Memo1->Lines->Text.c_str();
  Position = StrPos(P, "cid:");
  while(Position != NULL)
  {
    Memo1->SelStart = Position-P;
    Memo1->SelLength = 4;
    OldPos = Position+4;
    Position = StrPos(OldPos, "cid:");
  }
 ////////////  here

  SMTP2->Host ="smtp.truc.fr";
  SMTP2->UserName = "user";
  SMTP2->Password = "pass";

    if (SMTP2->Connect())
    {
    if (SMTP2->Helo())
    {
      Msg->Reset();
      Msg->ToList->Clear();
      Msg->CcList->Clear();
      Msg->SetFrom("cedtest", "cedtest@test.fr");
    // deux lignes du dessous avec SendMessageA()
    //  Msg->SetReplyTo("cedtest", "cedrc@numericable.fr");
    //  Msg->ToList->Add("cedtest", "cedrc@numericable.fr");
      Msg->Subject = "IMGParser-Testnewsletter";
      ImgParser20001->HTMLText->Text = Memo1->Text;
      ImgParser20001->AttachFiles();
      ImgParser20001->CreateCID();
      Msg->SetTextHTML(ImgParser20001->HTMLText->Text);

////////      ImgParser20001->LBNewIMGTags->Items->Add();

      Msg->SetTextPlain("This E-Mail needs a HTML Mail-Client1");

      if (Msg->NeedRebuild)
       { Msg->RebuildBody();}


      if ( //SMTP2->SendMessageA()
           SMTP2->SendMessageTo("emailfrom","emailto")
         )
        { ShowMessage("Newsletter sent."); }
      else
       { ShowMessage("Error: Newsletter not sent."); }





    }
    SMTP2->Quit();
    }
ProgressBar1->Position = 0;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::ImgParser20001Progress(TObject *Sender,
      TProgressMode Mode, int Max, int Position, AnsiString Info)
{
  ProgressBar1->Max = Max;
  ProgressBar1->Position = Position;
  StaticText1->Caption = Info;


}
//---------------------------------------------------------------------------
void __fastcall TForm1::SMTP2Progress(TObject *Sender, int Total,
      int Current)
{
  ProgressBar1->Max = Total;
  ProgressBar1->Position = Current;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{

    SMTP2->Port = 25 ;
    SMTP2->TimeOut = 60   ;
    SMTP2->MailMessage = Msg  ;
    SMTP2->PacketSize = 102400  ;
    SMTP2->OnProgress = SMTP2Progress  ;
    SMTP2->Handshaking = hsAuto   ;

    Msg->Charset = "iso-8859-1"  ;
    Msg->TextEncoding = etQuotedPrintable  ;
    Msg->AttachEncoding = etQuotedPrintable  ;
    Msg->EmbedMethod = emContentID  ;
    Msg->ContentLocationBase = "http://localhost/"  ;

    ImgParser20001->CheckFilenames = True   ;
    ImgParser20001->MailMessage = Msg  ;

}
//---------------------------------------------------------------------------

Unit.h

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
 
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
 
#include "Unit1.h"
#include <Dialogs.hpp>
 
#include <ComCtrls.hpp>
#include "ImgParser2000.hpp"
#include "Mail2000.hpp"
 
 
 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TButton *Button1;
        TButton *Button2;
        TSMTP2000 *SMTP2;
        TMailMessage2000 *Msg;
        TImgParser2000 *ImgParser20001;
        TOpenDialog *OpenDialog1;
        TStaticText *StaticText1;
        TMemo *Memo1;
        TProgressBar *ProgressBar1;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall ImgParser20001Progress(TObject *Sender,
          TProgressMode Mode, int Max, int Position, AnsiString Info);
        void __fastcall SMTP2Progress(TObject *Sender, int Total,
          int Current);
        void __fastcall FormCreate(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

04/03/2010, 15h56
r0d

Merci beaucoup pour ton aide :)
Mais en ce moment je suis sur un autre truc. Je reviendrai à cette histoire de mail d'ici quelques jours. Je vous tiendrai au courant :)
Encore merci.
04/03/2010, 18h50
cedni

Mais de rien
J ai juste oublié de te signaler que cet exemple necessite de copier le dossier newsletter fourni avec les composants dans ton répertoire de travail

++
05/03/2010, 20h06
dz_robotix

Merci Bcp!
08/03/2010, 11h56
r0d

Bonjour,

j'ai un petit soucis avec

Code:

attachment->ContentID = ...;

Je ne sais pas quelle version de Indy j'ai (je n'ai pas trouvé comment faire pour savoir ça), mais sur ma version, la propriété ContentID n'existe pas :calim2:
Et je ne vois rien qui y ressemble :cry:

En revanche tout le reste y est, donc j'imagine que je dois avoir une version où l'envoi d'images "embedded" est possible.
08/03/2010, 13h12
cedni

Salut

Oui je sais

Si je ne me trompe pas , c est à partir de 2006 que les composants indy fournis ont cette propriété

C est pourquoi je t ai proposé d utiliser un composant venant de delphi qui lui grace à un parseur fait ce qu il faut vis à vis du protocole cid

Sinon pour determiner la version d indy , je ne sais pas
Et perso , j ai essayé d installer indy 10 , çà marche pas trop
Conseil : prendre la seconde methode c est vite fait

++
10/03/2010, 17h58
r0d

Pinaise, je suis parvenu à faire un truc qui fonctionne sauf... pour gmail.
C'est à dire que sur tous les client mail que j'ai testé, mon mail s'affiche nickel (comme une zolie page html avec des images et tout), et il n'y a que gmail qui ne m'affiche que le texte (sans même interpréter de HTML) et qui gère les images en tant que pièces jointes :cry:
10/03/2010, 19h06
cedni

Avec Indy ou TMail2000 ?
11/03/2010, 09h44
r0d

Avec Indy.
Je ne connais pas assez l'environnement Borland pour faire fonctionner TMail2000 (qui est écrit en pascal).
11/03/2010, 10h45
cedni

Salut

Bcb 6 ?

Tu peux poster ton code ? Je n y suis pas parvenu avec indy

Faut savoir que c++builder et le pascal c est une longue histoire d amour (sans être ironique )

Pour l installer
D abord dezipper dans un repertoire ( qui devra resté là où il est )
Dans builder , component , install component

Chosir into a new package
Sur le bouton dialog du haut choisir d abord dans type de fichier : pas
Puis selectionner les deux fichiers pas

Dans le dialog du bas , choisir le repertoire où tu as dezippé et donner un nom
Clicquer sur ok

Enfin compile et install , les composants doivent etre apparrus dans la palette

++
11/03/2010, 11h30
r0d

Ok, merci beaucoup :)
Mais en fait, ce Mail2000 ne me conviens pas car moi je veux faire un exécutable simple en mode console, et je perdrais trop de temps à l'adapter.

Dès que j'aurais 2 minutes, je posterai mon code (mais je ne peux pas le poster "tel quel", je dois virer certaines choses avant).