je besoin d'aide

comment on peut change un champs dans un base de donne access apartir d'un message de retour d'envoi un mail

code que je utelise ::::: avec le nom de table=messagetable le champs=sent

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.emettre_message;
begin
    StatusMemo.Clear;
 //setup SMTP
  SMTP.Host := ledHost.Text;
  SMTP.Port := 25;
 //setup mail message
  MailMessage.From.Address := ledFrom.Text;
  MailMessage.Recipients.EMailAddresses := ledTo.Text + ',' + ledCC.Text;
  MailMessage.Subject := ledSubject.Text;
  MailMessage.Body.Text := Body.Text;
 
   try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;
end; (* btnSendMail