Bonjour,
Je suppose que c'est une éternel question que de savoir comment envoyer un email en delphi
J'ai donc chercher et ai trouvé qu'avec le ShellExecute on pouvait le faire.
Mais j'ai un problème, c'est que le message qui apparaît dans mon email ne possède pas les retour ligne.
voici ce que j'ai écrit pour composer mon message :
procedure TForm1.Button1Click(Sender: TObject);
begin
P30:= Jour_absence+' - '+Type_jour+' - '+Code_absence;
Liste_jour:= liste_jour+P30+CHR(13)+CHR(10);
Memo1.Text:= liste_jour;
end;
et ce que j'ai écrit pour envoyer l'email :
procedure TForm1.Button2Click(Sender: TObject);
begin
adr := 'xxxxx@infrabel.be';
sujet := 'P30 de ..............';
messge := Memo1.Text;
email := 'mailto:'+adr+'?subject='+sujet+'&body='+messge;
Memo2.text := email ;
ShellExecute(handle, 'open', Pchar(email), nil, nil, sw_normal);
end;
Pourtant quand j'envois vers une fenêtre mémo le Pchar(email), je vois bien que le corps du message possède les retours lignes !!!
Si quelqu'un a une idée ou me dire comment faire autrement...
merci
Partager