ShellExecute(Handle,'open','mailto:[email protected]',nil,nil,SW_SHOWNORMAL);
chodzi o kawalek: 'mailto: [email protected]'
jak w to miejsce wstawic e-mail z np TEdit???
ShellExecute(Handle,'open','mailto:[email protected]',nil,nil,SW_SHOWNORMAL);
chodzi o kawalek: 'mailto: [email protected]'
jak w to miejsce wstawic e-mail z np TEdit???
var
email, mailto : string;
begin
email := '[email protected]';
mailto := 'mailto:'+email;
ShellExecute(Handle,'open', mailto ,nil,nil,SW_SHOWNORMAL);
Nie sprawdzalem, powinno dzialac :) --Pozdrawiam {hello}
Tomasz K.
Poprawka:
var
email, mailto : string;
begin
email := '[email protected]';
mailto := 'mailto:'+email;
ShellExecute(Handle,'open', PChar(mailto),nil,nil,SW_SHOWNORMAL);
end;
--Pozdrawiam {hello}
Tomasz K.
ShellExecute(Handle,'open',pchar(edit1.text),nil,nil,SW_SHOWNORMAL);
hm... no nie wiem ZIOMBER.... bo wtedy w edit'cie bedzie trzeba wpisac : "mailto:[email protected]" a nie sam adres maila przynajmniej tak mi sie zdaje.... ;)--Ozyrys Pozdrawiam {hello}
[email protected]
DELPHI 6 RULEZ
No to trzecia poprawka. Sory ze tak na raty ale zawsze o czyms zapomne :)
var
email, mailto : string;
begin
email := Edit1.Text;
mailto := 'mailto:'+email;
ShellExecute(Handle,'open', PChar(mailto),nil,nil,SW_SHOWNORMAL);
end;
--Pozdrawiam {hello}
Tomasz K.
Poprawka :)
ShellExecute(Handle,'open',pchar('mailto:'+edit1.text),nil,nil,SW_SHOWNORMAL);
No wlasnie ! :) --Ozyrys Pozdrawiam {hello}
[email protected]
DELPHI 6 RULEZ