Witam. Mam mały problem z komponentem ICS a dokłądniej z SmtpCli. Otóż mam taki kodzik :
SMTP.Host := mail.e-post.pl;
SMTP.Port := 25;
SMTP.FormName := 'email' !;
SMTP.HdrFrom := '[email protected]';
SMTP.HdrTo := '[email protected];
SMTP.HdrSubject := 'temat';
SMTP.MailMessage.Assign('tresc');
SMTP.Connect;
SMTP.Mail;
według mnie wszystko wygląda ok ale zawsze pojawia się komunikat:
[Error] Unit1.pas(45): Undeclared identifier: 'SMTP'
dlaczego ?
z czy <font color="white">w ogóle </span> <font color="red"> [ort!] </span> zmieniłeś nazw na Smtp bo inaczej to cóż się dziwić
tak , zmieniłem ! i jeszcze jedno, jaka jest przyczyna tego iż pojawia mi się taki komunikat:
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at adress 004045AC in mdule 'PROJECT1.EXE'. Read of adress FFFFFFFF. Process stoped.
Use Step or Run to continue.
wklej cały kod programu to się zobaczy
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Registry, SmtpProt, StdCtrls;
type
TForm1 = class(TForm)
SMTP: TSmtpCli;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
begin
// WYSYŁANIE EMAILA
SMTP.Host := 'mail.e-post.pl';
SMTP.Port := '25';
SMTP.FromName := 'Ode mnie';
SMTP.HdrFrom := 'aaaaaaaa';
SMTP.HdrTo := '[email protected]';
SMTP.HdrSubject := 'Wiadomość';
SMTP.MailMessage.Add('tresc');
SMTP.Connect;
SMTP.Mail;
end;
end.
jak dla mnie smtp.port:=25 a nie '25' :)
i nie pamietam juz czy smtp.mail czy SMTP.SEND /???
to i tak nic nie da bo zawsze pojawia się błąd:
[Error] Unit1.pas(45): Undeclared identifier: 'SMTP'
type
TForm1 = class(TForm)
SMTP: TSMTP;
procedure FormCreate(Sender: TObject);
a teraz?
Dobra, teraz jest lepiej ale co to znaczy "SMTP commponent is not ready" ??
SMTP1.host :=
SMTP1.port :=
SMTP1.userid :=
SMTP1.connect;
a potem tresc temat I dopiero wysylasz bo tak nie ejst gotowy bo jednoczesnie sie laczy i wysyla ??? jakos tak chyba nie pamietam teraz zglowy pisze cos tam
Niestety dlaej pisze SMTP commponent is not ready. Jakieś sugestie ?
i jeszcze jedno, czy da się sprawdzić czy email zostałwysłany ?
np. if SMTP.mail czy coś takiego ?
nie wiem czemu masz not ready. najpierw probuj sie polaczyc z serwerem pozniej probuj wysylac
a czy da sie sprawdzic jesli jedyne co moze sie zdazyc ze serwer nie odpowiada ustawiasz time out na laczenie i jak zwroci blad dajesz komunikaty
Dobra, udało się :) teraz wszystko działa ok. Wrzuciłem to wszystko do Timera i dałem mu 20 sekund na połączenie, i dopiero potem wysyłał maila.
dzięki za pomoc
eee tam Timer, zajrzyj tutaj:
http://www.4programmers.net/forum/viewtopic.html?id=43105
bo mi się nie chce tego drugi raz pisać :-8