HotMail'den Mail açmak Delphi kodu

[csyasar]

Hotmail'i açarak yeni mail göndermek için ama şifreniz kayıtlı değil ise sizden şifre istiyor...

Kod: Tümünü seç

uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
var
  ToAddress: String;
  EightSpaces: String;
begin
 ShellExecute(0,'open','mailto: bilmemkime@delphiturkiye.com?subject=benimkonu&body=benim mesaj',
               NIL, NIL, SW_SHOWNORMAL);


 ToAddress := 'bilmemkime@delphiturkiye.com';
  EightSpaces := '        ';
  ShellExecute(Handle, PChar('open'), PChar('rundll32.exe'),
               PChar('C:\PROGRA~1\INTERN~1\HMMAPI.DLL,MailToProtocolHandler'
               + EightSpaces + ToAddress), nil, SW_NORMAL);
End;

[emrahkaraarslan]

arkadaşım bu kodu yahoo içinde kullanabiliyormuyuz yada kullanılmıyorsa nasıl kullanabiliriz