La fonction de la connexion :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
void __fastcall TForm1::ConnectClick(TObject *Sender)
{
   IdIMAP41->Host="smtp.gmail.com";
   IdIMAP41->Username=Edit1->Text;
   IdIMAP41->Password=Edit2->Text;
   IdIMAP41->Port=143;
   IdIMAP41->Connect();
   if(IdIMAP41->Connected())
	Form2->ShowModal();
   else
	ShowMessage(" Try again ");
 
}
La fonction d'envoi :
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
 
void __fastcall TForm2::SendClick(TObject *Sender)
{
   IdSMTP1->Host="smtp.gmail.com";
   IdSMTP1->Username=Edit1->Text;
   IdSMTP1->Password=Edit2->Text;
   IdSMTP1->Password=25;
   if(!IdSMTP1->Authenticate())
   {
	   //delete IdSMTP1;
   }
   IdSMTP1->Connect();
   if(IdSMTP1->Connected())
	 {
		IdMessage1->CharSet = "iso-8859-1";
		//Message->Body->Add(Memo1->Lines);
		AnsiString DatePost = "Posté le " + Now().DateString() + " à "+ Now().TimeString();
		IdMessage1->Body->Add(DatePost);
		IdMessage1->ContentType= "text/plain";
		IdMessage1->From->Text= Form1->Edit1->Text;
		IdMessage1->Recipients->EMailAddresses=Edit1->Text;
		IdMessage1->Subject=Edit2->Text;
                IdSMTP1->Send(IdMessage1);
	 }
   else
	 {
		 ShowMessage(" Try again ");
	 }	
}
La premiere fonction permet de verifier si le compte existe ou pas, mais elle ne marche pas ( ça bougue).
La deuxieme fonction permet de se connecté et d 'envoyer un email, mais elle ne marche pas ( sa bougue).

j'envie de tester si le compte existe, si le cas je saisie l'email de le recepteur et le contenu de message ensuite j'envoi le message.