Discussion :

[pierrot67]

Bonjour

je voudrais dans mon mail lier le champ adresse de mail avec le champ Mail de ma base de donnée mais il m'affiche type incompatible "string et tstringfield"
Comment pourrais-je faire.



Merci.

[TicTacToe]

derrier ton champs, mets .AsString

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TaChaine := TonChamp.AsString

[pierrot67]

Merci

ça marche mais pendant que j'y suis et qu'apparement tu touches
en prog pourrais tu m'aiguiller pour un attachment tidattachment avec les composants indy10 impossible de trouver que ce soit sur le net.

voila mon code

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TCourriel.Button3Click(Sender: TObject); 
begin 
Close; 
end; 
 
procedure TCourriel.Button2Click(Sender: TObject); 
begin 
Screen.Cursor:=crHourGlass; 
IdMessage1.Clear; 
IdMessage1.From.Text :=Edit4.Text; 
IdMessage1.ReplyTo.EMailAddresses:=Edit4.Text; 
IdMessage1.Recipients.EMailAddresses:=edit3.text; 
IdMessage1.Date:=Date; 
IdMessage1.Subject:=edit2.text; 
IdMessage1.Priority:=mpNormal; 
IdMessage1.Body.Assign(Memo1.Lines); 
if not (Edit1.Text='') 
then Tidattachment.create(IdMessage1.MessageParts,edit1.text); 
IdSMTP1.AuthType:=atdefault; 
IdSMTP1.Host:='SMTP.free.fr'; 
IdSMTP1.Port:=25; 
IdSMTP1.UserName:='xxxxx'; 
IdSMTP1.Password:='xxxxx'; 
IdSMTP1.Connect; 
try 
IdSMTP1.Send(IdMessage1); 
finally 
IdSMTP1.Disconnect; 
Screen.Cursor:=crDefault; 
Statusbar1.panels[0].text := 'le message à été envoyé'; 
end; 
end; 
 
procedure TCourriel.Button1Click(Sender: TObject); 
begin 
if OpenDialog1.Execute then 
Edit1.Text:=OpenDialog1.FileName; 
end; 
 
end.