Как вызвать из программы почтовик и сунуть ему аттач?

← →
Aleksandr © (2004-04-08 15:41) [0]

Нужно запустить почтовую программу и передать ей файл для аттачмента. Или хотя бы получить у системы настройки почтовика (сервер, логин, пароль), чтобы отправить письмо с аттачем без участия юзера. Желательно все-таки первое, чтобы пользователь мог сам дописать дополнительную информацию. Это не для спама или вирусов, это для системы автоматической информации об ошибках :)

← →
Vlad Oshin © (2004-04-08 15:50) [1]

через 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;

← →
Aleksandr © (2004-04-08 15:53) [2]

Увы, тогда надо у юзера спрашивать хост, логин и пароль.

← →
Aleksandr © (2004-04-08 15:55) [3]

Тем более, что в Д7 этого пакаджа уже нету.

http://www.delphiworld.narod.ru/_internet_.html

Увы, все приведенные примеры требуют либо готового компонента, либо для mapi. А с mapi тоже несладко - у меня по умолчанию стоял TheBat, так вызов mapi даже с отключенными диалогами вызывает настройку Аутлук-Экспресса, а затем при каждом вызове показывает дебильное окошко с вопросами на тему, а стоит ли отправлять письмецо...

Как вызвать из программы почтовик и сунуть ему аттач? Найти похожие ветки