Discussion :

[rolivier]

Bonjour je dois realiser un programme qui envoi des mails automatiquement des qu'une action se passe.

Je suis assez debutant alors h'aimerais que l'on m'explique comment faire pour envoyer des mails sous builder d'une facon assez simple.

Merci de bien vouloir m'aider

[Invité]

la plus simple est de trouver une librarie, par exemple comme CHilkatMail..

[rolivier]

et omment on utilise cette librairie ????

merci de me donner plus de detail

[Invité]

déjà tu en cherches une sur le web.
souvent ils donnent des fichiers README ou c'est décrit pas à pas comment l'installer.

si tu sais pas ou chercher, tiens quelques adresses qui te seront peut etre utiles:

http://www.programmersheaven.com/
http://www.torry.net/
http://www.codeproject.com/
http://vclcomponents.com/

[rolivier]

merci pour ces infos mais je viens de voir qu'on pouvait utiliser la methode sendmail.J'aimerais avoir quelques explications sur cette methode car j'ai regarde l'aide mais j'ai des pb de connexion.

Merci de m'eclairer

[rolivier]

Voici mon code

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
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
if (NMSMTP11->Connected)
 
NMSMTP11->Disconnect();
 
else
{
NMSMTP11->Host="ip";
NMSMTP11->Connect();
}
 
NMSMTP11->PostMessage->ToAddress="toto@yahoo.fr";
 
NMSMTP11->PostMessage->Body="test de mail";
 
NMSMTP11->SendMail();
}
 
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::NMSMTP1Connect(TObject *Sender)
{
{
  Memo5->Clear();
  Memo5->Lines->Add("Connecté");
 
}
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::NMSMTP1SendStart(TObject *Sender)
{
Memo5->Lines->Add("Envoi de message");        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::NMSMTP1Failure(TObject *Sender)
{
 Memo5->Lines->Add("Echec de l'expédition du message");        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::NMSMTP1Success(TObject *Sender)
{
Memo5->Lines->Add("Message expédié");
exit(0);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::NMSMTP1RecipientNotFound(AnsiString Recipient)
{
Memo5->Lines->Add("Destinataire  "+Recipient+" non trouvé");
}
//---------------------------------------------------------------------------

il me sort 2 erreurs quand je rentre l'adresse de destination et le body

[C++ Erreur] mail.cpp(25): E2034 Impossible de convertir 'char *' en 'TStringList *'

Si quelqu'un voit d'ou ca vient et comment remedier merci de me faire signe

[ubu]

Il semble que les attributs Body et ToAddress soit de type TStringList et non char *.

Essaie donc plutôt:

Code :

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

1
2
3
NMSMTP11->PostMessage->ToAddress->Add("toto@yahoo.fr"); 
 
NMSMTP11->PostMessage->Body->Add("test de mail");

Au lieu de :

Code :

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

1
2
3
NMSMTP11->PostMessage->ToAddress="toto@yahoo.fr"; 
 
NMSMTP11->PostMessage->Body="test de mail";