Programowanie w języku Delphi » FAQ

Jak wysłać pocztę aby w liście znalazła się zawartość listboxa

  • 2006-06-28 13:42
  • 0 komentarzy
  • 334 odsłony
  • Oceń ten tekst jako pierwszy
W danej procedurze umieszczamy:

var
  P : PChar;
begin
  P := PChar('mailto:[email protected]?Subject=Temat_maila&Body=' + Listbox1.Items.GetText);
  ShellExecute(Handle, 'open', PChar(P), nil, nil, SW_SHOW);
end;



Lub inaczej

ShellExecute(Handle, 'open', PChar('mailto:[email protected]?Subject=Temat_maila&Body=' + Listbox1.Items.GetText), nil, nil, SW_SHOW);


Do listy uses trzeba dopisać moduł ShellApi.