La fonction de la connexion :
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 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 premiere fonction permet de verifier si le compte existe ou pas, mais elle ne marche pas ( ça bougue).
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 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.
Partager