Kto mi powie dlaczego nie działa wysyłanie maila, dostanie piwo albo cokolwiek innego:
mam taki kod:
tresc:=form1.memo1.Text+'%0D%0A'+'%0D%0A'+rez;
shellExecute(Handle, 'open', PCHAR('mailto:'+edit1.Text+'?Subject=Subskrypcja&Body='+tresc), nil, nil, sw_ShowNormal);
rez to zmienna string i przechowuje kawałek tekstu.
memo1.text - to jest tekst wiadomości do wysłania
edit1.text - to jest e-mail odbiorcy
Kiedyś to chyba działało(bo robiłem testy i wszystko było ok)
Ale teraz w ogóle nic się nie dzieje... A domyślny program pocztowy mam ustawiony