Ładny brzuch

Witam!
Mam maly problem z wysylaniem maili ( z zalacznikiem ) i z checklistbox :(

procedure TForm1.Button10Click(Sender: TObject); var x :Integer; puste : boolean; ilosc: integer; Begin if CheckListBox1.State[i] = cbChecked then puste:=false else puste:=true; while puste = true do begin for x:= 0 to CheckListBox1 = false IdMessage1.From.Address:= msmtp.Text; IdMessage1.Recipients.EMailAddresses:= konta.Text; IdMessage1.From.name:= 'Sender'; IdMessage1.Subject:= 'message_with_attachment'; IdMessage1.Body.Append('mail.txt'); SMTP.Host:= Host1.Text; SMTP.Port:= StrToInt(Port1.Text); SMTP.Username:= user1.Text; SMTP.Password:= Haslo1.Text; SMTPMemo1.Lines.Add('czenie'); //tylko dla podgldu Application.ProcessMessages; SMTP.Connect; SMTPMemo1.Lines.Add('wysyanie...'); //tylko dla podgldu SMTP.Send(IdMessage1); SMTPMemo1.Lines.Add('mail zosta wysany'); //tylko dla podgldu end; end;

Teraz krotka opowiesc :)

Jezeli jakikolwiek element w checklistbox1 jej zaznaczony zmienna puste przyjmuje wartosc false. Chodzi o to, ze trzeba co poprawnie wyslany mail odznaczyc wyslany zalacznik z checklistbox1. Oraz pobrac nazwe pliku(zalacznika) z odpowiedniej pozycji w CheckListBox.... Rozumiecie?? Algorytm : Pobieram nazwe zalacznika z checklistbox->laduje go jako zalacznik->Poczatek petli->wysylam email->jezeli wszystko ok->odznaczam->pobieram nazwe nastepnego zaznaczonego->laduje jako zalacznik->Koniec petli Powtarzam az CheckListBox1 bedzie puste...

Co do zalacznika:
zalacznik:= Edit1.Text + '\' + nazwa_pliku
W edit1.text znajduje sie lokalizacja plikow :)

Troche pogmatwane....

Jezeli ktos by moglby napisac mi taka petle to bede bardzo wdzieczny....

Dzieki za poswiecenie czasu na przeczytanie tego posta i PRZEPRASZAM za obciazanie Was moimi problemami :(

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •