mailto...

0

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???

0

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.

0

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.

0

ShellExecute(Handle,'open',pchar(edit1.text),nil,nil,SW_SHOWNORMAL);

0

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

0

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.

0

Poprawka :)

ShellExecute(Handle,'open',pchar('mailto:'+edit1.text),nil,nil,SW_SHOWNORMAL);

0

No wlasnie ! :) --Ozyrys Pozdrawiam {hello}
[email protected]

DELPHI 6 RULEZ

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