[Delphi] SMPT - nie wysyła plików

Odpowiedz Nowy wątek
Rozczochrana
2005-01-22 12:41
Rozczochrana
0

Mam Delphi 6,
Oto prosty kod, który znalazłam w kilku książkach :


procedure TForm1.Button1Click(Sender: TObject);
begin
  try
  smtp1.host:=edthost.text;
  smtp1.port:=edtport.text;
  smtp1.fromname:=edit1.text;
  smtp1.hdrfrom:=edit2.text;
  smtp1.hdrto:=edit3.text;
  smtp1.hdrreplyto:=edit4.text;
  smtp1.hdrsubject:=edit5.text;
  smtp1.mailmessage.assign(memo1.Lines);
  smtp1.Connect;
  smtp1.Mail;
  except
    messagebox(0,'Wystąpił błąd - nie wysłano Maila','',mb_ok);
  end;
end;
end.  

Wszystko się ładnie kompiluje i z tego co piszą powinno działać!
U mnie nie działa :( - tylko wyświetla mi ten komunikat : 'Wystąpił błąd - nie wysłano Maila'
Już nie wiem co czynić :( wszytkie Faq przeleciałam i dalej to samo!
Prosze pomocy - bo jak mi program nie wyśle maila to ja studia obleje :(

Proszę administratorów, aby sie nie bawili moim kosztem (postami), bo ja nie wiem za co one są wywalane.

Pozostało 580 znaków

2005-01-22 12:55

Rejestracja: 17 lat temu

Ostatnio: 4 miesiące temu

Lokalizacja: UE

0

wysylanie i laczenie daj w

try finallly

try
Polacz
finally
Wyslij

Ja na przyklad uzywalem w jakims programie takiej procedury:

procedure TMainFrm.Wyslij;
var
Zalacznik:String;
begin
Zalacznik:=lbZalacznik.Caption;
//pobranie captiona, w ktorym jest sciezka do pliku

SMTP.Host := 'smtp.wp.pl';
SMTP.Port := 25;
SMTP.Username:=LOGIN;
SMTP.Password:='HASLO;

Msg.From.Address:=ADRES;
Msg.Recipients.EMailAddresses:=ADRES;
Msg.Subject:=TEMAT;
Msg.Body.add(Zalacznik);

if FileExists(Zalacznik) then
ShowMessage(Zalacznik);
    TIdAttachment.Create(Msg.MessageParts,Zalacznik);
  try
    try
      SMTP.Connect(1000);
      SMTP.Authenticate;
      SMTP.Send(MSG);
    except on E:Exception do
      Caption:='ERROR: ' + E.Message;
    end;
 except
 Msg.Body.Add('Brak archiwum');
       SMTP.Connect(1000);
      SMTP.Authenticate;
      SMTP.Send(MSG);

end; (* btnSendMail Click *)

end;

ps: uzywalem TidSMTP z pakietu INDY


Pozdrawiam. Karol

Pozostało 580 znaków

Rozczochrana
2005-01-22 15:38
Rozczochrana
0

Dzięki lofix, ale admin tu chyba coś u ciebie edytował i obciął co-nieco i teraz nie wiem co to jest to MSG.
Ja nawet nie potrzebuję, aby był wysyłany plik - wystarczy jak zwykły mail (text) wyśle! pliska o pomoc!

Sorki, że jeszcze raz napisałam, ale zrobiłam tak :

procedure TForm1.Button1Click(Sender: TObject);
begin
  smtp1.host:=edthost.text;
  smtp1.port:=edtport.text;
  smtp1.fromname:=edit1.text;
  smtp1.hdrfrom:=edit2.text;
  smtp1.hdrto:=edit3.text;
  smtp1.hdrreplyto:=edit4.text;
  smtp1.hdrsubject:=edit5.text;
  smtp1.mailmessage.assign(memo1.Lines);
  try
  smtp1.Connect;
  finally
  smtp1.Mail;
  end;
end;

i dalej wyskakuje mi błąd : SMPT component not ready

Pozostało 580 znaków

2005-01-22 19:58

Rejestracja: 17 lat temu

Ostatnio: 4 miesiące temu

Lokalizacja: UE

0

http://www.indyproject.org/Demos/index.iwp


Pozdrawiam. Karol

Pozostało 580 znaków

Odpowiedz

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