Credo che possa essere d'aiuto il codice quindi eccolo
- Codice: Seleziona tutto
begin
IdMessage1.Clear;
IdMessage1.From.Address:=edit2.text;
IdMessage1.Body.Add('asdfasdf');
//IdMessage1.ReplyTo.EMailAddresses:=edit2.text;
IdMessage1.Recipients.EMailAddresses:=edit1.text;
IdMessage1.Subject:='prova in delphi';
IdMessage1.Priority:=mpNormal;
//----------------------------------------------------------------//
// connessione al server smtp //
//----------------------------------------------------------------//
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:='smtp.mail.yahoo.com';
IdSMTP1.Username:='s_inety@yahoo.com' ;
IdSMTP1.Password:='xxxxxxxxxx';
IdSMTP1.Port:=25;
Application.ProcessMessages;
IdSMTP1.Connect(300);
try if IdSMTP1.Connected then showmessage('Try');
idSMTP1.SendMsg(IdMessage1); //Envoi du message
//idsmtp1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
showmessage('Fatto x lui');
//if idsmtp1.Connected then
//label1.Caption:='Connesso'else label1.Caption:='gay';
end;
Sono 3 giorni che ci sto sbattendo sopra la testa senza risultato.... xkè continua a non funzionare... non è ke sapete dirmi dove sbaglio?