Nel mio programma di posta elettronica qundo invio un messaggio ad un contatto, sembre che lo memorizzi in memoria, perchè quando cambio con un nuovo indirizzo lui continua ad inviare msg sempre al primo indirizzo che avevo digitalizzato. ecco il codice.
come faccio ad azzerarlo?codice:procedure TForm1.SpedisciClick(Sender: TObject); begin //setup SMTP SMTP.Host := Server.Text; SMTP.Port := 25; //Camuffare il programma SMTP.MailAgent := Agent.Text; //setup mail message 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); //send mail try try SMTP.Connect(10000); SMTP.Send(MailMessage); except on E:Exception do Messaggio.Lines.Insert(0, 'ERROR: ' + E.Message); end; finally if SMTP.Connected then SMTP.Disconnect; Status.Caption := ('Email Inviata'); end; end;