Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.05.2010, 18:35
hugolom hugolom вне форума
Новичок
 
Регистрация: 25.04.2010
Сообщения: 99
Репутация: 9
По умолчанию Вопрос по отправке файла на почту

Я написал код для отправки сообщений на почту
Код:
idSmtp1.Host:='smtp.mail.ru'; 
idSmtp1.Port:=25 ; 
idSmtp1.Username:='lol1' ; 
idSmtp1.Password:='Пароль' ; 
idMessage1.Body.Text:='Что хотим то и пишем' ; // здесь текст письма..
idMessage1.From.Text:='lol1@mail.ru';
idMessage1.Recipients.EMailAddresses:='lol2@mail.ru' ; 
idMessage1.Subject:='Team' ; 
idSmtp1.Connect();
if idSmtp1.Connected=true then;
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect
Мне надо чтоб он отправлял кокретный файл\папку из компа мне на почту, как это можно сделать?
Ответить с цитированием
  #2  
Старый 02.05.2010, 18:59
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

См. в сторону класса TIdAttachment
Ответить с цитированием
  #3  
Старый 02.05.2010, 22:47
hugolom hugolom вне форума
Новичок
 
Регистрация: 25.04.2010
Сообщения: 99
Репутация: 9
По умолчанию

Все я разобрался.
Только вот еще вопрос, как сделать чтоб он находил файл в компе сам? просто у другим может быть этот файл в другой директории..
Ответить с цитированием
  #4  
Старый 03.05.2010, 00:07
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, или перебирать все папки (если файл имеет некоторое достаточно уникальное имя или другие критерии его идентификации) с помощью FindFirst/FindNext/FindClose (примеры см в ФАКе на этом сайте), либо просто сделать настройку какой файл слать (например, просто в Ini-файле указать его полное имя - один раз на одном компе настроил и забыл).
Ответить с цитированием
  #5  
Старый 03.05.2010, 13:56
hugolom hugolom вне форума
Новичок
 
Регистрация: 25.04.2010
Сообщения: 99
Репутация: 9
По умолчанию

Цитата:
Сообщение от lmikle
Ну, или перебирать все папки (если файл имеет некоторое достаточно уникальное имя или другие критерии его идентификации) с помощью FindFirst/FindNext/FindClose (примеры см в ФАКе на этом сайте), либо просто сделать настройку какой файл слать (например, просто в Ini-файле указать его полное имя - один раз на одном компе настроил и забыл).
примеры на сайте , почти не нашел, может плохо ищу..
Но в гугле накопал пару кодов
Код:
FindFirst('c:\*.*', faAnyFile, SearchRec);
Но я как вижу они не раб. может есть код норм?
Чтоб можно вставить его в тело письма?
Ответить с цитированием
  #6  
Старый 03.05.2010, 16:25
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

FindFirst/FindNext/FindClose осуществляют поиск файла. Т.е. с их помощью ты сможешь определить полное имя нужного файла. А запихивать его в письмо надо руками через TIdAttachment.
Ответить с цитированием
  #7  
Старый 03.05.2010, 09:55
Аватар для RusMaXXX
RusMaXXX RusMaXXX вне форума
Начинающий
 
Регистрация: 01.10.2008
Сообщения: 138
Версия Delphi: 7
Репутация: 21
Лампочка

Цитата:
Сообщение от hugolom
Все я разобрался.
Только вот еще вопрос, как сделать чтоб он находил файл в компе сам? просто у другим может быть этот файл в другой директории..

а что собственно Вы пытаетесь отправлять на почту? какие файлы/папки? есть странное подозрение на то, что пишится очередной "зловред"..!!!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:04.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025