Problem z shellExecute - POMÓŻCIE, BO SIĘ ZABIJĘ

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

Weź zrób pokolei:
1.Umieść:
a) Edit1
b)Button1
c)Memo1 (i nic tam nie wpisuj ani nic nie rób).
2.Wpisz w button1Click:
procedure TForm1.Button1Click(Sender: TObject);
var
tresc, rez: String;

begin
rez:='ss';
tresc:=form1.memo1.Text+'%0D%0A'+'%0D%0A'+rez;
shellExecute(Handle, 'open', PCHAR('mailto:'+edit1.Text+'?Subject=Subskrypcja&Body='+tresc), nil, nil, sw_ShowNormal);
end;

Jak nie działa jeszcze to pisz... ;-)

Weź zrób pokolei:
1.Umieść:
a) Edit1
b)Button1
c)Memo1 (i nic tam nie wpisuj ani nic nie rób).
2.Wpisz w button1Click:
procedure TForm1.Button1Click(Sender: TObject);
var
tresc, rez: String;

begin
rez:='ss';
tresc:=form1.memo1.Text+'%0D%0A'+'%0D%0A'+rez;
shellExecute(Handle, 'open', PCHAR('mailto:'+edit1.Text+'?Subject=Subskrypcja&Body='+tresc), nil, nil, sw_ShowNormal);
end;

Jak nie działa jeszcze to pisz...

ekchem , ekhem ;-) może jeszcze najlepiej żeba nasz biedny Juhas podczas kompilacji nie oddychał, wtedy nie będzie musiał myśleć o sposobie śmierci ;-). Mat05 ;-) nie będę cię komentował ;-) morderca ;-). Pod warunkiem że ten program będzie sie kompilował kilka dobrych minut ;).
Juhas u mnie to działa, zobacz u siebie konfigurację klienta pocztowego (wierzę że sprawdzałeś tysiąc razy, ale czasami dopiero po tysięcznym pierwszym widać;-).
Wyślij komus innemu do przetestowania, albo pokaż więcej kodu.

Tego nie rozumiem:
tresc:=form1.memo1.Text+'%0D%0A'+'%0D%0A'+rez;

Jeżeli w memo znajduje sie kilka linijek tekstu to powinienes StringReplace'm zamienić wszystkie znaki Cr i Lf (#13 i #10) na %0D i %0A.

A z tym zabijaniem to powiem: życze miłego dnia.

ekchem , ekhem ;-) może jeszcze najlepiej żeba nasz biedny Juhas podczas kompilacji nie oddychał, wtedy nie będzie musiał myśleć o sposobie śmierci ;-). Mat05 ;-) nie będę cię komentował ;-) morderca ;-). Pod warunkiem że ten program będzie sie kompilował kilka dobrych minut ;).

Czego tam? :-P Ja to sprawdzałem, u mnie jest oki, a błąd mógł tutaj tez jakiś popełnić. Ale najprawdopodobniej jest coś z klien :-) tem pocztowym...

Nic nie działa...

Ani ponowne kładzenie komponentów, ani nic... Sprawdzałem miliony razy, czy rzeczywiście mam domyślnego klienta poczty... Nawet usunąłem i jeszcze raz zainstalowałem program pocztowy(OE)
Ale nic nie daje :(

LUDZIE! PLEASE BITTE :)
Kto mi pomoże dostanie skrzynkę browara :)

Nic nie działa...

Ani ponowne kładzenie komponentów, ani nic... Sprawdzałem miliony razy, czy rzeczywiście mam domyślnego klienta poczty... Nawet usunąłem i jeszcze raz zainstalowałem program pocztowy(OE)
Ale nic nie daje :(

LUDZIE! PLEASE BITTE :)
Kto mi pomoże dostanie skrzynkę browara :)

Może przeinstaluj Wina?? :

Może przeinstaluj Wina??

Niestety nie mogę :( Nie mam tyle miejsca na dysku(mam dwie partycje po 2 GB) i nic nie mogę usunąć, bo potrzebuję wszystko, co mam...

Ale Ty masz naprawde dziwny przypadek :|

No i co tu zrobić?

No więc tak! Delphi jest nieraz trochę pojebane. Jeśli Ci to kiedyś działało to moim zdaniem powinieneś "odświeżyć" kod, to znaczy napisać go jeszcze raz, odręcznie, bez kopiowania. Ja tak kiedyś zrobiłem i zadziałało! Nie wiem jak u ciebie, ale możesz spróbować. Powodzenia!
SMYQ

MOżę usuń plik wykonywalny i pozwól delkowi go zbudować bo ja miałem kedyś takie coś że nie kasował pliku wykonywalnego i niby ok ale musiałem ręcznie kasować wykonywalny.

Ja wysyłałem maila w ten sposób:

procedure TForm1.SendMail(SendTo: String; Nr : String);
begin
StrHolder1.Strings.Clear;
StrHolder1.Strings.Add(SendTo);
try
NMSMTP1.Connect;
NMSMTP1.PostMessage.ToAddress.AddStrings(StrHolder1.Strings);
NMSMTP1.PostMessage.FromAddress := '[email protected]';
NMSMTP1.PostMessage.Subject := 'tytuł';
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.Body.Add('tekst);
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
end;

O ile problem jeszcze istnieje to radze zrobic tak :

1. Wpisac jako parametry funkcji bezposredni adres (a nie z memo czy edit).
2. Jezeli nadal nie działa to sprawdzic konfiguracje programu pocztowego wpisując w menu start\uruchom\ jakiegos przykładowego maila. (tzn. np. mailto:[email protected]).

Dzieki temu sprawdzisz co nie dziala - program, czy klient poczty.

3. Jezeli nadal nie działa to przeinstalować Windows :-) .

1. Wpisac jako parametry funkcji bezposredni adres (a nie z memo czy edit).

niestety nie wchodzi w grę :(
Bo adresy muszą być zmienne

2. Jezeli nadal nie działa to sprawdzic konfiguracje programu pocztowego wpisując w menu start\uruchom\ jakiegos przykładowego maila. (tzn. np. mailto:[email protected]).

To działa
Czyli coś z programem... Ale co? U innych przecież działa :|

Hmmm, jezeli u innych działa kod który u ciebie nie działa to naprawdopodobniej, bład nie jest w tym kodzie :-) . Proponuje zrobic DLA TESTU następująco : stworzyc nowy projekt, umiescic na nim buttona, otworzyc helpa, w oparciu o niego napisac w OnClick ShellExecute (z przykładowym, STAŁYM adresem) tak, aby wyłapać wartośc zwracaną przez tą funkcję i sprawadzić czy nie jest ona jedną z podanych w helpie wartości błedów.

Ogolnie kiedy nalezy znaleźć jakis trudny do wykrycia bład, nie powinno sie zaczynac od końca. Po kolei sprawdź każdy odcinek kodu, a nawet zrob (tak jak ci podałem) oddzielną aplikacje sprwadzającą.

Jezeli mimo to funkcja nie dziala - przeinstaluj Delphi.
[cya]

Stworzyłem nową aplikację... Zrobiłem normalnie, że adresem była stała... Działało...

Potem zrobiłem, że adres brał z edita. Działało...

Wszystko działało w nowej aplikacji, a w tamtej nie chce :|

A jak w tamtej usunąłem tą formę z projektu(tą właśnie z shellExecute) i stworzyłem ją na nowo, też nie działało :(

Troche stary topic, ale myśle że dobry do zadania mojego pytania:) Czy jest możliwość żeby za pomoca mailto wysłać wiadomość z załącznikiem?

Nie, przez ShellExecute się nie da.
I nie odkurzaj prehistorycznych tematów, lepiej było założyć nowy.