Domyślny program mailowy...

0

Mam pytanko... Jest jakaś komenda, która w prosty sposób otworzy domyślny program pocztowy i nowy list na konkretny adres (takie coś jak w HTML mailto:adres mniej więcej)?
Wysyłanie maili było już tu poruszane, ale na inny sposób... tzn. jak samemu obsłużyć wysyłanie maila, a mi to nie jest potrzebne...

0

uses ShellApi;

procedure TForm1.WyslijClick(Sender: TObject);
var
P : PChar;
begin
if Edit1.Text='' then
begin
ShowMessage('Wpisz adres');
end else begin
P := PChar('mailto:[email protected]?Subject=Temat&Body=Tu jest text maila');
ShellExecute(Handle,'open',PChar(P), nil, nil, SW_SHOW);
end;

0

Adam, wiem że Ci się nie chce, ale zaglądaj czasem do FAQ

1 użytkowników online, w tym zalogowanych: 0, gości: 1