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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отправка E-Mail, через COM интерфейс Outlook. 
:(
    Опции темы
Vex
Дата 13.11.2002, 08:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


кацапосрачмученiкъ
****


Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

Репутация: 1
Всего: 88



Пример отправки письма через COM Interface Outlook не работает, т.к. нет Outlook_TLB - где его можно достать? И можно ли так отправлять письмо, если Аутлуку неизвестен SMTP сервер? (пример взял из фака)

Код

uses  Outlook_TLB;
var outlook : _application;

Procedure Init;
begin  
outlook := Coapplication_.Create;
end;

procedure SendEmail;
begin  with Outlook.CreateItem(olMailItem) as mailitem do
   begin
     To_ := '[email protected]';
     cc:='[email protected]';
     Subject := 'This is subject line';
     Attachments.Add('FileName',1,1,'This is attachment');
     Body :='This is email body';
     Send;
   end;
end;



--------------------
Слава Україні.
PM   Вверх
Vit
Дата 13.11.2002, 08:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207



Цитата
нет Outlook_TLB - где его можно достать?


Outlook_TLB получается путём экспортирования COM интерфейсов Outlook.exe.

Main Menu -> Project -> Import Type Library -> Add -> найти файл Outlook.exe -> Create Unit

Именно этот файл и будет создан.


Цитата
И можно ли так отправлять письмо, если Аутлуку неизвестен SMTP сервер?


Нет, сам outlook ничего не отправляет, он "засовывает" письма в SMTP сервер, а реально их отправляет SMTP сервер.


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Vex
Дата 13.11.2002, 08:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


кацапосрачмученiкъ
****


Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

Репутация: 1
Всего: 88



Цитата
Нет, сам outlook ничего не отправляет, он "засовывает" письма в SMTP сервер, а реально их отправляет SMTP сервер.


Тогда вариант с Outlook отпадает.

А если использовать SMTP (как в FAQ), то он будет отправляться непосредственно на сервер получателя? можно ли этот метод использовать на Dial-Up? (глупый наверное вопрос :) )


--------------------
Слава Україні.
PM   Вверх
Vit
Дата 13.11.2002, 08:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207



Нет, SMTP тоже не отсылает письмо на сервер получателя, на сервер отправителя.


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Vit
Дата 13.11.2002, 08:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207



Предвижу вопрос: "а как тогда отослать?"

Вот я уже отвечал - http://www.forum.vingrad.ru/cgi-bin....;t=4274


Я писал такую программу, сразу скажу: по хорошему, без настройки производительности, многопоточности и т.п. писать её минимум месяц... В общем работа ещё та!




--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Vex
Дата 13.11.2002, 08:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


кацапосрачмученiкъ
****


Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

Репутация: 1
Всего: 88



Вопрос угадан, и спасибо за полученый ответ! Скоро так до телепатии дойдем :)

А есть что-то типа шаровых SMTP серверов, можно же их указать?


--------------------
Слава Україні.
PM   Вверх
Vit
Дата 13.11.2002, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207



Да, конечно. Попробуй разные email сервисы - возможно что есть те, которые разрешают обращение через SMTP. Вот еmail которые я знаю - проверь, дают ли они SMTP доступ: www.yahoo.com, www.mail.ru, www.lenta.ru, www.hotmail.com, www.operamail.com, www.pisem.net




--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Vit
Дата 13.11.2002, 10:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207



Цитата(Vit @ 12.11.2002, 15:23)
писать её минимум месяц... В общем работа ещё та!

Кстати, забыл сказать, вообще-то это смотря для чего пишешь. Если рассылать письма только для себя - например обратная связь с автором программы - то может это не так страшно. Собственно не проблема в том чтобы это написать - там как раз всё ясно, проблема заставить работать программу в 100% случаев - вот примеры тех проблем которые встречались у меня и моего друга (теперь он дорабатывает этот проект):

1) Отсылка в многопоточном режиме
2) Отложенная отсылка, так как ты связываешься с конечным пользователем то могут быть проблемы - у него сервер сейчас занят, перезагружается, линия барахлит и т.п. Настоящие SMTP сервера делают до нескольких сотен попыток переслать письмо в течение суток (иногда больше) - следовательно нужен буффер, некоторая очередь и т.п.
3) DNS сервер не работает, барахлит, даёт устаревшие сведения, поменял свой адрес и т.п.
4) Прервалась связь с интернетом - диагностика, обработка ошибок и т.п.
5) Разный софт серверов получателей имеет некоторые различия в форматах запросов (собственно стандартам RFC строго не следует ни один), иногда у некоторых клиентов наредкость дегенеративный самопальный софт и нам даже приходилось звонить их сисадминам и выяснять какого... их сервер не хочет принимать наши письма
6) У клиентов срабатывают различные антивирусные и антиспамерские фильтры
7) NT убивает программу по совершенно не понятной причине
8) Настройка производительности, timeout, размеров очередей, количество потоков, количества попыток и т.д.
и т.п.

Если ты пишешь программу которая должна изредка послать письмо по одному и тому же адресу, то ты с этими проблемами не сталкнёшься и написать ее не так сложно.


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




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


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

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