Не могу отправить почту через Outlook

@MaximFegorsk · Регистрация: 05.12.2013

Author24 — интернет-сервис помощи студентам

Не могу отправить почту средствами Outlook. Для отправки использую следующий код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
    olMailItem = 0;
  var
    Outlook: OLEVariant;
    MailItem: Variant;
  begin
    try
        Outlook:= GetActiveOleObject('Outlook.Application');
    except
        Outlook:= CreateOleObject('Outlook.Application');
    end;
    MailItem:= Outlook.CreateItem(olMailItem);
    MailItem.Recipients.Add('maxim-padonok@mail.ru');
    MailItem.Subject:= 'Subject: Outlook Mail From Delphi';           // тема
    MailItem.Body:= 'Welcome to my homepage:ikukk'; //
    MailItem.Attachments.Add('C:\1.txt');
    MailItem.Send;
    Outlook := Unassigned;
end;

Если выполнить при запущенном outlook - все пройдет отлично. Если же при закрытом outlook - выдает ошибку "Операция прервана". Иконка в трее появляется, но не обычная, а с шестеренкой в углу. При наведении всплывает сообщение - "Другая программа использует outlook...".

@MaximFegorsk · 14.01.2014, 09:45 **[ТС]**

Вот разобрал как делать

@Santa0206 · 02.10.2019, 08:11

У меня тоже письма отправляются только при открытом Outlook. Как вы решили эту проблему?

Добавлено через 2 минуты
Maxim*******, У меня тоже письма отправляются только при открытом Outlook. Как вы решили эту проблему?

@qwertehok · 02.10.2019, 13:22

а зачем отправлять через аутлук?

@D1973 · 02.10.2019, 16:38

Сообщение от qwertehok

а зачем отправлять через аутлук?

Да мало ли зачем? Например, это внутрикорпоративная почта, на базе MS Exchange...

Не по теме:

Santa0206, я делал в свое время отправку через эту фигню (аутлук, в смысле), но вот у нас в организации для службы техподдержки в приказном порядке он должен был быть открыт всегда!!! Поэтому, извиняй, подсказать вариант с закрытым Аутлуком не могу...

@qwertehok · 03.10.2019, 10:47

Сообщение от D1973

Например, это внутрикорпоративная почта, на базе MS Exchange...

он прекрасно поддерживает IMAP

@D1973 · 03.10.2019, 11:53

т.е. отправлять напрямую, минуя посредника в виде почтовой программы? Возможно, но как быть, если требуется подтягивать, к примеру, корпоративный бланк письма? Я просто очень давно этой темой не занимался, поэтому просто не в курсе...

@Nanotentacle · 03.10.2019, 12:51

Сообщение от D1973

Возможно, но как быть, если требуется подтягивать, к примеру, корпоративный бланк письма?

FastReport, имхо

@D1973 · 03.10.2019, 16:19

Nanotentacle, а он-то при чем, FR в смысле??? В средствах самого Аутлука есть возможность создать шаблон письма... Это было удобно при использовании именно его в качестве почтового клиента по умолчанию.
Вот тут и меня вопрос: а можно ли подтянуть вот этот шаблон в качестве письма по умолчанию??? (Нет у меня ни Outlook, ни учетки, с ним связанной)

@Nanotentacle · 03.10.2019, 16:27

Сообщение от D1973

Nanotentacle, а он-то при чем, FR в смысле??? В средствах самого Аутлука есть возможность создать шаблон письма... Это было удобно при использовании именно его в качестве почтового клиента по умолчанию.

Если память не изменяет, FR может и в HTML-разметке отдавать шаблон, но это весьма непроверенная информация. Но сам по себе шаблон письма, скорее всего, хранится все в том же HTML, поэтому создать нужный шаблон и сохранить его не представляет проблем. Я уж промолчу про то, что его при минимальных трудозатратах и небольшой БД можно растиражировать этот шаблон на несколько (читай, сколько угодно) человек... Просто, имхо, привязывать свою программу к стороннему софту - не лучшая идея, и если есть возможность использовать IMAP - то этот способ всегда победит.

Ну и чтобы не быть голословным: у нас организация отправляет как минимум 50 000 электронных писем в месяц, и все шаблоны там хранятся как раз в HTML, и в этот шаблон подставляется нужная информация.

@MaximFegorsk 32 / 53 / 9 Регистрация: 05.12.2013 Сообщений: 261
	14.01.2014, 09:45 [ТС]	2
	Вот разобрал как делать 0

@Santa0206 0 / 0 / 0 Регистрация: 02.10.2019 Сообщений: 1
	02.10.2019, 08:11	3
	У меня тоже письма отправляются только при открытом Outlook. Как вы решили эту проблему? Добавлено через 2 минуты Maxim*******, У меня тоже письма отправляются только при открытом Outlook. Как вы решили эту проблему? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	02.10.2019, 13:22	4
	а зачем отправлять через аутлук? 0

@D1973 Модератор 9260 / 6038 / 2379 Регистрация: 21.01.2014 Сообщений: 25,802 Записей в блоге: 3
	02.10.2019, 16:38	5
	Сообщение от qwertehok а зачем отправлять через аутлук? Да мало ли зачем? Например, это внутрикорпоративная почта, на базе MS Exchange... Не по теме: Santa0206, я делал в свое время отправку через эту фигню (аутлук, в смысле), но вот у нас в организации для службы техподдержки в приказном порядке он должен был быть `открыт всегда`!!! Поэтому, извиняй, подсказать вариант с закрытым Аутлуком не могу... 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	03.10.2019, 10:47	6
	Сообщение от D1973 Например, это внутрикорпоративная почта, на базе MS Exchange... он прекрасно поддерживает IMAP 0

@D1973 Модератор 9260 / 6038 / 2379 Регистрация: 21.01.2014 Сообщений: 25,802 Записей в блоге: 3
	03.10.2019, 11:53	7
	т.е. отправлять напрямую, минуя посредника в виде почтовой программы? Возможно, но как быть, если требуется подтягивать, к примеру, корпоративный бланк письма? Я просто очень давно этой темой не занимался, поэтому просто не в курсе... 0

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	03.10.2019, 12:51	8
	Сообщение от D1973 Возможно, но как быть, если требуется подтягивать, к примеру, корпоративный бланк письма? FastReport, имхо 0

@D1973 Модератор 9260 / 6038 / 2379 Регистрация: 21.01.2014 Сообщений: 25,802 Записей в блоге: 3
	03.10.2019, 16:19	9
	Nanotentacle, а он-то при чем, FR в смысле??? В средствах самого Аутлука есть возможность создать шаблон письма... Это было удобно при использовании именно его в качестве почтового клиента по умолчанию. Вот тут и меня вопрос: а можно ли подтянуть вот этот шаблон в качестве письма по умолчанию??? (Нет у меня ни Outlook, ни учетки, с ним связанной) 0

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	03.10.2019, 16:27	10
	Сообщение от D1973 Nanotentacle, а он-то при чем, FR в смысле??? В средствах самого Аутлука есть возможность создать шаблон письма... Это было удобно при использовании именно его в качестве почтового клиента по умолчанию. Если память не изменяет, FR может и в HTML-разметке отдавать шаблон, но это весьма непроверенная информация. Но сам по себе шаблон письма, скорее всего, хранится все в том же HTML, поэтому создать нужный шаблон и сохранить его не представляет проблем. Я уж промолчу про то, что его при минимальных трудозатратах и небольшой БД можно растиражировать этот шаблон на несколько (читай, сколько угодно) человек... Просто, имхо, привязывать свою программу к стороннему софту - не лучшая идея, и если есть возможность использовать IMAP - то этот способ всегда победит. Ну и чтобы не быть голословным: у нас организация отправляет как минимум 50 000 электронных писем в месяц, и все шаблоны там хранятся как раз в HTML, и в этот шаблон подставляется нужная информация. 1