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
Partager