Login

[camaleonteplus]

volevo sapere solo se cosi ho fatto bene se no accetto consigli e suggerimenti
vi metto prima il codice:

procedure TForm1.SpedisciClick(Sender: TObject);
begin
SMTP.Host := Server.Text;
SMTP.Port := 25;
SMTP.MailAgent := Agent.Text;
  MailMessage.From.Address := Da.Text;
  MailMessage.From.Name := Nome.Text;
  MailMessage.Recipients.EMailAddresses := A.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);
  try
  try
  SMTP.Connect(3000);
  SMTP.Send(MailMessage);
  except on E:Exception do
  Messaggio.Lines.Insert(0, 'ERROR: ' + E.Message);
  end;
  finally
  if SMTP.Connected then
     SMTP.Disconnect;
end;
end;

procedure TForm1.AllegaClick(Sender: TObject);
begin
if OpenDialog1.Execute then
if FileExists(OpenDialog1.FileName) then
Allegato.Text := OpenDialog1.FileName;
begin
end;
end;

dal programma sopra puoi notare che l'autoindentificazione è senza login ma funziona. però so già che quando lo userò su una chiavetta USB non funzionerà perchè il computer ospite non è detto che abbia il mio gestore internet, allora ho pensato di aggiungere una opzione per includere quando serve anche un login e ho fatto cosi:

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

il programma me lo compila senza errori ma volevo sapere se cosi puo funzionare se questa scelta di login non deve stare all'interno del primo programma che hai vito. Aspetto vostre notizie.

[camaleonteplus]

funziona

[alka]

C'è un Regolamento in quest'area, da leggere e rispettare.