Версия для печати темы

Автор: taran 30.01.2010 18:57

Добрый день.
Подскажите, пожалуйста, как реализуется процесс отправки почты в среде С++ Builder.

Хотелось бы, чтобы при нажатии кнопки отправлялось письмо с заданной темой через почтовый клиент (например, Outlook) на уже назначенный адрес. К письму должен быть прикреплён конкретный txt-файл, сформированный программой ранее.

Заранее спасибо.

Автор: volvo 30.01.2010 19:09

Скачай http://forum.pascal.net.ru/index.php?showtopic=6361 , и посмотри вот по этому пути: Интернет, Сети и Протоколы -> E-mail -> Как отправить Email? -> Использование COM-объекта Outlook

Код на Дельфи, но на Билдер перенести совсем не проблема...

Автор: taran 31.01.2010 5:09

Спасибо за совет, я ознакомился, но не смог окончательно перевести в Билдер или подключить модуль Delphi из-за отсутствия библиотеки OUTLOOK_TLB и файла outlk80.

Поэтому, если у кого-то есть ещё советы, прошу мне помочь.

Автор: volvo 31.01.2010 5:51

С Аутлуком вполне можно работать через Ole Automation:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	const int olMailItem        = 0;

	Variant MSOApp = CreateOleObject("Outlook.Application");
	try
	{
		Variant myItem = MSOApp.OleFunction("CreateItem", (Variant)olMailItem);

		myItem.OlePropertySet("Subject", "This is the Subject");
		myItem.OlePropertyGet("Recipients").OleFunction("Add", WideString("xxx@xxx.com")); // Здесь будет адрес

		myItem.OlePropertySet("Body", (WideString)memoBody->Text);

		Variant myAttachments = myItem.OlePropertyGet("Attachments");
		myAttachments.OleFunction("Add", WideString("F:\\fam.txt")); // Здесь будет имя файла
		myItem.OleProcedure("Send");
		MSOApp.OleFunction("Quit");
	}
	catch(...)
	{
		ShowMessage(L"Ошибка при отправке почты");
	}
}

Автор: taran 31.01.2010 16:05

Спасибо.

Автор: taran 31.01.2010 19:00

Как известно, письма отправляются только при открытом Outlook, поэтому скажите, пожалуйста, можно ли как-то принудительно открыть приложение по нажатию кнопки отправки?

И ещё вопрос - можно ли как-то использовать аналогичный код для других почтовых клиентов (например, The Bat)?

Автор: volvo 1.02.2010 2:14

Автор: taran 1.02.2010 4:47

Цитата(volvo @ 31.01.2010 22:14)

Цитата(volvo @ 31.01.2010 22:14)

Автор: volvo 1.02.2010 5:55

Автор: taran 1.02.2010 17:05

Цитата(volvo @ 1.02.2010 1:55)

Автор: volvo 1.02.2010 17:38

	Variant MSOApp = CreateOleObject("Outlook.Application"); // Пытаемся создать новый Instance Аутлука
	try
	{

	Variant MSOApp;
	bool isRunning = false;

	try
	{
		// Сначала проверяем, а вдруг Outlook уже запущен? Тогда к нему подключаемся...
		MSOApp = GetActiveOleObject("Outlook.Application");
		isRunning = true;
	}
	catch(EOleSysError &e)
	{
		try
		{
			// Не был запущен... Значит, запускаем:
			MSOApp = CreateOleObject("Outlook.Application");
			isRunning = true;
		}
		catch(...)
		{
			ShowMessage(L"Неудача: Ошибка подключения к MS Outlook");
		}
	}
	catch(...)
	{
		ShowMessage(L"Неудача: Ошибка подключения к MS Outlook");
	}

	if(isRunning)
	{ // здесь весь тот код, который я приводил выше, кроме инициализации Аутлука

Автор: taran 1.02.2010 18:25

Версия Outlook- 2007, Билдера - 6.

Что происходит при введении проверки "isRunning": даже если Outlook не запущен, эта переменная получает значение true благодаря этому куску:

	try
		{
			// Не был запущен... Значит, запускаем:
			MSOApp = CreateOleObject("Outlook.Application");
			isRunning = true;
		}

Автор: volvo 1.02.2010 18:35

		try
		{
			// Попытка запуска Outlook... Если запуск не удается - 
			// выбрасывается исключение, и следующая строка НЕ ВЫПОЛНЯЕТСЯ,
			// программа сразу переходит в блок catch, то есть isRunning остается равным false...
			MSOApp = CreateOleObject("Outlook.Application");

			isRunning = true;
		}
		catch(...)
		{
			// Вот сюда переходим при неудаче в CreateOleObject !!!
			ShowMessage(L"Неудача: Ошибка подключения к MS Outlook");
		}

Автор: taran 1.02.2010 18:48

Цитата(volvo @ 1.02.2010 14:35)

		try
		{
			// Попытка запуска Outlook... Если запуск не удается - 
			// выбрасывается исключение, и следующая строка НЕ ВЫПОЛНЯЕТСЯ,
			// программа сразу переходит в блок catch, то есть isRunning остается равным false...
			MSOApp = CreateOleObject("Outlook.Application");

			isRunning = true;
		}
		catch(...)
		{
			// Вот сюда переходим при неудаче в CreateOleObject !!!
			ShowMessage(L"Неудача: Ошибка подключения к MS Outlook");
		}

Автор: taran 1.02.2010 19:27

Кстати, подскажите ещё, пожалуйста, как называется параметр, отвечающий за отправку копии письма?
И где вообще можно ознакомиться с параметрами OLE-объектов и функций?

Автор: volvo 1.02.2010 19:35

Автор: do you need a prescription for p 3.11.2021 8:26

Cialis Moins Cher Paris

Автор: can you buy plaquenil over the c 6.12.2021 5:06

Generic Zentel Walsall

Автор: nishaknapp 29.07.2022 17:24

Why not settling on games that is fun and at the same time your earning. Well itll make suspense because of the game as well but dude just try it and it gave me hope while pandemic is real rn. https://usa-news.us/effects-of-covid-regulations-in-casinos/