[DELPHI] Login con scelta modalità di autenticazione

[camaleonteplus]

vorrei attivare una scelta qualdo invio l'email con login e non login ho fatto cosi ma non funziona, per il login ho usato il componente TradioBotton.

procedure TForm1.SpedisciClick(Sender: TObject);
begin
//setup SMTP
SMTP.Host := Server.Text;
SMTP.Port := 25;
SMTP.MailAgent := Agent.Text;
//setup mail message
 MailMessage.From.Address := Da.Text;
 MailMessage.From.Name := Nome.Text;
 MailMessage.Recipients.EMailAddresses :=
 A.Text + ' ' + Lista.Text;
 MailMessage.CCList.EMailAddresses := CC.Text;
 MailMessage.BccList.EMailAddresses := Ccn.Text;
 MailMessage.Subject := Oggetto.Text;
 MailMessage.Body.Text := Messaggio.Text;
 if FileExists(Allegato.Text) then
 TIdAttachment.Create(MailMessage.MessageParts,
                        Allegato.Text);
//send mail
 try
 try
 SMTP.Connect(10000);
 SMTP.Send(MailMessage);
 except on E:Exception do
 Messaggio.Lines.Insert(0, 'Errore: ' + E.Message);
 end;
 finally
 if SMTP.Connected then
    SMTP.Disconnect;
Status.Caption := 'Email Inviata';
end;
end;

procedure TForm1.AutentificatoClick(Sender: TObject);
begin
Smtp.Username := Username.Text;
Smtp.Password := Password.Text;
Smtp.AuthenticationType := atLogin;
end;

[alka]

Originariamente inviato da camaleonteplus
vorrei attivare una scelta qualdo invio l'email con login e non login ho fatto cosi ma non funziona [...]

Dire "non funziona" in questo campo equivale a dire "sto male" al dottore: non fornisce alcuna indicazione del problema, che deve invece deve essere dettagliata.

Cosa significa "non funziona"? Non ottieni il risultato previsto? Hai un errore? La mail non viene spedita? Viene spedita con un formato diverso? In sostanza, cosa succede?

Occorre essere precisi nel descrivere i propri problemi se si vogliono ottenere delle risposte sensate.