отправка почты - NAV: Программирование

Greggy_imported · 11.02.2005, 12:47

Извините может не совсем в тему. Я сделал отправку почты через OutLook и при отправке выдается сообщение - Программа пытается получить доступ к адресам электронной почты, хранящемся в Outlook.Разрешить это действие? Нажимаю да - и еще одно сообщение - типа программа пытается отправить от вашего имени ! - как этого избежать - где отключить это?

**mazzy** · 11.02.2005, 12:49

http://forum.mazzy.ru/index.php?showtopic=...findpost&p=1666

**Dzemon** · 11.02.2005, 13:22

Эх, по прежнему Навижин - немикрософтовская программа

**Kirvisniemi** · 11.02.2005, 14:23

Можно использовать

SMTP Mail v1.6 - Stabilized
http://www.mibuso.com/dlinfo.asp?FileID=366

через который можно сделать все тоже самое без появления вопроса Security.

Компонента правда не русскоязычная, поэтому для конвертации можно воспользоваться вот такой функцией EncodedString:

Код:

EXIT(CONVERTSTR(Str,'ЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪюабцдефгхийклмнопярстужвьызшэщчъ',
                    'абвгдежзийклмнопрстуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'));

Использовать ее очень просто:

Код:

SMTPMail.SetFromAdress('Вася@mail.ru');
SMTPMail.SetToAdress('Петя@yandex.ru');
SMTPMail.SetSubject(EncodedString('Уведомление программы Navision'));
SMTPMail.AddLine('<HTML><HEAD>');
SMTPMail.AddLine('<META http-equiv=Content-Type content="text/html; charset=windows-1251"></HEAD>');
SMTPMail.AddLine('Привет мир!');
SMTPMail.SetHost('mail.provider.ru');
SMTPMail.Send;

Greggy_imported · 11.02.2005, 15:27

Что то не отправляет она даже сообщение никаких не выдает

**Kirvisniemi** · 11.02.2005, 16:28

Включай режим отладки и читай отладочные сообщения в файле

kekki · 05.12.2005, 08:50

Помогите, плз... у меня та же самая проблема.

Пытаюсь сделать так, как советуют в теме, но не могу понять какого типа переменная SMTPMAil.
У типов OCX и Automation нет такого подтипа!!!
Подскажите, что и где надо настроить?

Fordewind · 05.12.2005, 15:32

Где-то в Аутглюке надо сменить настройки безопасности, что б не ругалась.

А можно и напрямую через Microsoft CDO for Windows 2000 Library отсылать, которая идет с ХР и 2003 Виндами.
У нас так и сделано.
В тестовлом режиме отправляется молча и эффективно. В рабочем режиме, пока не запускал.
Собственно весь код:

Код:

переменные:

CDOConfig	Automation	
							   'Microsoft CDO for Windows 2000 Library'.Configuration	
CDOMessage	Automation
					'Microsoft CDO for Windows 2000 Library'.Message	
ActivXField		Automation
				 	'Microsoft ActiveX Data Objects 2.8 Library'.Field	
ActivXFields	Automation
				 	'Microsoft ActiveX Data Objects 2.8 Library'.Fields	

функция:

SendMessage(From : Text[100];"To" : Text[500];Subject : Text[250];TextBody : Text[1000];Attachment : Text[250])
CREATE(CDOMessage);
CREATE(CDOConfig);
ActivXFields := CDOConfig.Fields;
ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing');
ActivXField.Value := 2;

ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport');
ActivXField.Value := 25; 

ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver');
ActivXField.Value := 'your SMTP';
ActivXFields.Update;

CDOMessage.Configuration := CDOConfig;
CDOMessage.TextBody := TextBody;
CDOMessage."To" := "To"; // CDOMessage."To"  без ковычек не воспринимает 
CDOMessage.From := From;
CDOMessage.Subject := Subject;
IF Attachment <> '' THEN
  CDOMessage.AddAttachment := Attachment;
CDOMessage.Send;