11.02.2005, 12:47
|
#1 |
|
Участник
|
Извините может не совсем в тему. Я сделал отправку почты через OutLook и при отправке выдается сообщение - Программа пытается получить доступ к адресам электронной почты, хранящемся в Outlook.Разрешить это действие? Нажимаю да - и еще одно сообщение - типа программа пытается отправить от вашего имени ! - как этого избежать - где отключить это?
|
|
|
|
11.02.2005, 12:49
|
#2 |
|
Участник
|
|
|
|
|
11.02.2005, 13:22
|
#3 |
|
Moderator
|
Эх, по прежнему Навижин - немикрософтовская программа
|
|
|
|
11.02.2005, 14:23
|
#4 |
|
Moderator
|
Можно использовать
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; |
|
|
|
11.02.2005, 15:27
|
#5 |
|
Участник
|
Что то не отправляет она даже сообщение никаких не выдает
|
|
|
|
11.02.2005, 16:28
|
#6 |
|
Moderator
|
Включай режим отладки и читай отладочные сообщения в файле
|
|
|
|
05.12.2005, 08:50
|
#7 |
|
Участник
|
Помогите, плз... у меня та же самая проблема.
Пытаюсь сделать так, как советуют в теме, но не могу понять какого типа переменная SMTPMAil. У типов OCX и Automation нет такого подтипа!!! Подскажите, что и где надо настроить? |
|
|
|
05.12.2005, 15:32
|
#8 |
|
Участник
|
Где-то в Аутглюке надо сменить настройки безопасности, что б не ругалась.
А можно и напрямую через 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; |
|
|
Линейный вид
