| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вызвать из программы почтовик и сунуть ему аттач? [D7, WinXP]
Aleksandr © (2004-04-08 15:41:00)Нужно запустить почтовую программу и передать ей файл для аттачмента. Или хотя бы получить у системы настройки почтовика (сервер, логин, пароль), чтобы отправить письмо с аттачем без участия юзера. Желательно все-таки первое, чтобы пользователь мог сам дописать дополнительную информацию. Это не для спама или вирусов, это для системы автоматической информации об ошибках :)
Aleksandr (2004-04-14 13:28:00) [1]Увы, все приведенные примеры требуют либо готового компонента, либо для mapi. А с mapi тоже несладко - у меня по умолчанию стоял TheBat, так вызов mapi даже с отключенными диалогами вызывает настройку Аутлук-Экспресса, а затем при каждом вызове показывает дебильное окошко с вопросами на тему, а стоит ли отправлять письмецо...
Vlad Oshin (2004-04-08 15:57:00) [2]http://www.delphiworld.narod.ru/_internet_.html
Aleksandr (2004-04-08 15:55:00) [3]Тем более, что в Д7 этого пакаджа уже нету.
Aleksandr (2004-04-08 15:53:00) [4]Увы, тогда надо у юзера спрашивать хост, логин и пароль.
Vlad Oshin (2004-04-08 15:50:00) [5]через NMSMTP проще
with NMSMTP1 do
begin
Host := 'qq.moris.ru';
UserID := 'rqq';
Connect;
PostMessage.ToAddress.Text := 'qqV@qqq.moris.ru';
PostMessage.FromAddress := 'null@qqq.moris.ru';
PostMessage.Body.Text := 'This message was created automatically by mail delivery software.'+#10+#13+
''+#10+#13+
'A message that you sent could not be delivered to one or more of its'+#10+#13+
'recipients. This is a permanent error. The following address(es) failed:'+#10+#13+
''+#10+#13+
' qqqq@fqqqs.moris.ru'+#10+#13+
' SMTP error from remote mailer after RCPT TO:<rqqqqv@fqqqq.moris.ru>:'+#10+#13+
' host fqqqqs.moris.ru [213.242.27.122]: 550 <rv@fss.moris.ru>... User unknown';
PostMessage.Subject := 'Mail Soft FQQS';
SendMail;
disconnect;
| |
