Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отправка файлов на Email 
:(
    Опции темы
Артем1
Дата 2.8.2012, 06:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Добрый день. Помоги пожалуйсто. Есть папка под названием 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, 06:52
PM MAIL   Вверх
Артем1
Дата 2.8.2012, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Ребят помогите пожалуйсто smile 
PM MAIL   Вверх
Данкинг
Дата 2.8.2012, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
Цитата(Артем1 @  2.8.2012,  07:49 Найти цитируемый пост)
Вот нашел в интернете код , он рабочий ?

Запусти и проверь.
Цитата(Артем1 @  2.8.2012,  07:49 Найти цитируемый пост)
и можно ли его как нибудь переделать ?

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


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Артем1
Дата 2.8.2012, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Код рабочй ,помогите пожалуйсто его переделать ,чтоб он брал файлы из папки. Заранее большое спасибо.
PM MAIL   Вверх
Illusion Dolphin
Дата 2.8.2012, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
А что именно не получается? Это? или это ?


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Артем1
Дата 3.8.2012, 18:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Добрый вечер помогите пожалуйста - выдает ошибку "Password supplied for"[email protected]" is incorrect. 
PM MAIL   Вверх
Артем1
Дата 3.8.2012, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Подскажите пожалуйста вот переделал - чтоб искал файлы 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;


Это сообщение отредактировал(а) Артем1 - 3.8.2012, 19:25
PM MAIL   Вверх
Чучмек
Дата 3.8.2012, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 4
Всего: 41
Цитата(Артем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);
...
...
...


Это сообщение отредактировал(а) Чучмек - 4.8.2012, 12:57


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Артем1
Дата 4.8.2012, 08:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Добрый день . Помогите пожалуйста пробую отправить почту самому себе - выдаёт ошибку  "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;
PM MAIL   Вверх
Чучмек
Дата 4.8.2012, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 4
Всего: 41
А без вложения отправляется???
Исправь строку 19
Цитата(Артем1 @  4.8.2012,  08:43 Найти цитируемый пост)
if h<>0 then

Должно быть 
Код

if h<>INVALID_HANDLE_VALUE then




--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0506 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.