Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Отправка файлов на Email

Автор: Артем1 2.8.2012, 06:49

Добрый день. Помоги пожалуйсто. Есть папка под названием data в ней файлы с расширением xml , подскажите пожалуйсто как отправлять эти файлы на Email (Тоесть чтоб он эти файлы брал из папки и отправлял). Вот нашел в интернете код , он рабочий ? и можно ли его как нибудь переделать ? Помоги пожалуйсто уважаймые форумчане. Заранее всем спасибо.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  IdAttachment1:TIdAttachment;
begin
//вкладка indy clients, ставишь на форму IdSMTP (ящик синий такой нарисован)
//вкладка indy misc, ставишь IdMessage
  IdMessage1.Body.Text:='текст';
  IdMessage1.From.Text:='откуда@mail.ru';
  IdMessage1.Recipients.Add.Text:='куда@mail.ru';
  IdMessage1.Subject:='тема сообщения';
//прикрепить файл:
  IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,'c:\file.zip');
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Host:='smtp.mail.ru';
  IdSMTP1.Username:='откуда@mail.ru';
  IdSMTP1.Password:='пароль';
  IdSMTP1.Connect();
  if IdSMTP1.Connected then
    IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;
end;

Автор: Артем1 2.8.2012, 10:41

Ребят помогите пожалуйсто

Автор: Данкинг 2.8.2012, 12:09

Цитата(Артем1 @ 2.8.2012, 07:49

)

Вот нашел в интернете код , он рабочий ?

Запусти и проверь.

Цитата(Артем1 @ 2.8.2012, 07:49

)

и можно ли его как нибудь переделать ?

Как-нибудь конечно можно.

Автор: Артем1 2.8.2012, 13:05

Код рабочй ,помогите пожалуйсто его переделать ,чтоб он брал файлы из папки. Заранее большое спасибо.

Автор: Illusion Dolphin 2.8.2012, 13:19

А что именно не получается? https://www.google.by/search?q=%D0%BA%D0%B0%D0%BA+%D0%BF%D0%BE%D0%BB%D1%83%D1%87%D0%B8%D1%82%D1%8C+%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA+%D1%84%D0%B0%D0%B9%D0%BB%D0%BE%D0%B2+%D0%B2+%D0%BF%D0%B0%D0%BF%D0%BA%D0%B5+delphi&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:en-US:official&client=firefox-a или https://www.google.by/search?hl=be&client=firefox-a&hs=6ME&rls=org.mozilla%3Aen-US%3Aofficial&q=delphi+%D1%86%D0%B8%D0%BA%D0%BB%D1%8B&oq=delphi+%D1%86%D0%B8%D0%BA%D0%BB%D1%8B&gs_l=serp.3...30390.36316.0.37096.0.0.0.0.0.0.0.0..0.0...0.0...1c.bxrqhaoRKDA ?

Автор: Артем1 3.8.2012, 18:24

Добрый вечер помогите пожалуйста - выдает ошибку "Password supplied for"[email protected]" is incorrect.

Автор: Артем1 3.8.2012, 19:10

Подскажите пожалуйста вот переделал - чтоб искал файлы xml и отправлял их, правильно ? Если нет подскажите пожалуйста как исправить ?

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  IdAttachment1:TIdAttachment;
begin
//вкладка indy clients, ставишь на форму IdSMTP (ящик синий такой нарисован)
//вкладка indy misc, ставишь IdMessage
  IdMessage1.Body.Text:='текст';
  IdMessage1.From.Text:='откуда@mail.ru';
  IdMessage1.Recipients.Add.Text:='куда@mail.ru';
  IdMessage1.Subject:='тема сообщения';
//прикрепить файл:
  IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,'c:\temp\''*.xml');
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Host:='smtp.mail.ru';
  IdSMTP1.Username:='откуда@mail.ru';
  IdSMTP1.Password:='пароль';
  IdSMTP1.Connect();
  if IdSMTP1.Connected then
    IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;
end;

Автор: Чучмек 3.8.2012, 20:23

Цитата(Артем1 @ 3.8.2012, 19:10

)

IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,'c:\temp\''*.xml');

Код


var
 fd:TWin32FindData;
 h:cardinal;
 pach:string;
begin
...
...
...
fillchar(fd,sizeof(fd),0);
fd.dwFileAttributes:=0;//faHidden or faSysFile;
pach:='c:\temp\';
h:=FindFirstFile(pchar(pach+'*.xml'), fd);
if h<>INVALID_HANDLE_VALUE then
 repeat
 TIdAttachment.Create(IdMessage1.MessageParts,pchar(pach+fd.cFileName));
 until not FindNextFile(h,fd);
...
...
...

Автор: Артем1 4.8.2012, 08:43

Добрый день . Помогите пожалуйста пробую отправить почту самому себе - выдаёт ошибку "Syntactically invalid EHLO argument(s)" , почта mail.ru

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  IdAttachment1:TIdAttachment;
   fd:TWin32FindData;
 h:cardinal;
 pach:string;
begin
//вкладка indy clients, ставишь на форму IdSMTP (ящик синий такой нарисован)
//вкладка indy misc, ставишь IdMessage
  IdMessage1.Body.Text:='текст';
  IdMessage1.From.Text:='[email protected]';
  IdMessage1.Recipients.Add.Text:='[email protected]';
  IdMessage1.Subject:='тема сообщения';
//прикрепить файл:
  fillchar(fd,sizeof(fd),0);
fd.dwFileAttributes:=0;//faHidden or faSysFile;
pach:='c:\temp\';
h:=FindFirstFile(pchar(pach+'*.xml'), fd);
if h<>0 then
 repeat
 TIdAttachment.Create(IdMessage1.MessageParts,pchar(pach+fd.cFileName));
 until not FindNextFile(h,fd);
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Host:='smtp.mail.ru';
  IdSMTP1.Username:='[email protected]';
  IdSMTP1.Password:='1234';
  IdSMTP1.Connect();
  if IdSMTP1.Connected then
    IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;
end;

Автор: Чучмек 4.8.2012, 12:59

А без вложения отправляется???
Исправь строку 19

Цитата(Артем1 @ 4.8.2012, 08:43

)

if h<>0 then

Должно быть

Код


if h<>INVALID_HANDLE_VALUE then