probléme d'idIMAP et idSMTP (envoi d'email)
La fonction de la connexion :
Code:
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:
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.
