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