Discussion :

[r0d]

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.

[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

[r0d]

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.

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

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 )

[pottiez]

De base dans BCB 6 c'est la version 8.0.25 d'Indy, je vais essayer de te transcrire ca en BCB

[r0d]

wah merci

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 )

[pottiez]

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

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 :

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
//---------------------------------------------------------------------------
 
#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 :

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
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

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

[r0d]

wah

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

Encore merci

[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

Si je parviens à pondre un code qui fonctionne, je le posterai.

[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

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

[r0d]

Bien vu, c'était ça
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.

[cedni]

Salut

Si c est juste une image à afficher :

Code :

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

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 :

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
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";

[cedni]

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 :

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
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 :

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
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

[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.

[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

++

[dz_robotix]

Merci Bcp!

[r0d]

Bonjour,

j'ai un petit soucis avec

Code :

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

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
Et je ne vois rien qui y ressemble

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

[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

++

[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

[cedni]

Avec Indy ou TMail2000 ?

[r0d]

Avec Indy.
Je ne connais pas assez l'environnement Borland pour faire fonctionner TMail2000 (qui est écrit en pascal).