v7: 1с и Почта

1C 7.7

25.10.13

✎

16:48

О наболевшем))
пОДСКАЖИТЕ.ВЗЯЛ  код
Процедура ОтправитьПочту(КомуОтправить,ОтКогоОтправить,ТемаПисьма,ТекстПисьма,Вложение)
ЗагрузитьВнешнююКомпоненту(“WheelAddIn.dll”);
ВнКомпонент = СоздатьОбъект(“AddIn.FWheelAddIn”);
csFrom = СокрЛП(ОтКогоОтправить);
csTO = СокрЛП(КомуОтправить);
csSUBJECT = СокрЛП(ТемаПисьма);
csTEXT = ТекстПисьма;
Если ПустоеЗначение(Вложение) = 0 Тогда
   csATTACH = СокрЛП(Вложение);
Иначе
   csATTACH = “”;
КонецЕсли;
Если ВнКомпонент.ОтправитьПочтуПоSMTP = 1 Тогда
   Сообщить(“Электронная почта на адрес “+csTO+“ отправлена!!!”,”!!”);
Иначе
   Сообщить(ВнКомпонент.ОшибкаПриОтпракеПочты());
КонецЕсли;
КонецПроцедуры

зарегил в командной строке V7Plus.Dll  WheelAddIn.Dll
Пишет что неудачная попытка создания ВнКомпонент = СоздатьОбъект(“AddIn.FWheelAddIn”);
подскажите в чем проблема?Почему не взлетает?=))
позвать специалиста не принимается=)))

1 serg-lom89

25.10.13

✎

16:49

Буду признателен если кто поп подроббнее расскажет по коду)))

2 PRO100 NigGaZ

25.10.13

✎

19:27



Функция УстановитьКомпоненту()

    Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "DialMail.dll")=0 Тогда

        Сообщить("Не удалось обнаружить компоненту DialMail.dll!"); 

        Возврат 0;

    КонецЕсли;

    Попытка

        ОтправкаПочты = СоздатьОбъект("AddIn.SMTP");

        ОтправкаПочты.ВестиЛогФайл     = 1;

        ОтправкаПочты.ИмяЛогФайла     = "c:\dialmail_smtp.log";

        Сообщить(ОтправкаПочты.ВерсияОбъектаСтр);

    Исключение 

        Сообщить("Не удалось создать объект из компоненты DialMail.dll!"); 

        Возврат 0;

    КонецПопытки; 

    Возврат 1;

КонецФункции  // УстановитьКомпоненту





Функция ОтправкаПисьма()

    Перем РабочийКаталог,ОтКого,SmtpСервер,SmtpПорт,КомуВрем,Тема,Тело,SmtpПользователь,SmtpПароль;

    Если УстановитьКомпоненту()=0 тогда

        СтатусВозврата(0);

    КонецЕсли;

    ОтправкаПочты.РабочийКаталог="c:\";

    ОтКого="";

    SmtpСервер="";  

    SmtpПорт=""; // или "smtp"

    КомуВрем=Кому.ПолучитьЗначение(Кому.ТекущаяСтрока());

    Тема="";

    Тело="Сохраните вложенный файл и используйте его при ипорте";

    SmtpПользователь = "";

    SmtpПароль = "";

    ФайлАттач = КаталогВременныхФайлов() + "Экспорт.txt";

    Если ОтправкаПочты.Подключиться(SmtpСервер,    SmtpПорт,    SmtpПользователь,    SmtpПароль)=0 тогда

        Предупреждение("Не смогли подключиться к SMTP-серверу");

        Возврат 0;

    КонецЕсли;

    ОтправкаПочты.РабочийКаталог=СокрЛП(РабочийКаталог);

    ОтправкаПочты.УстановитьКодировкуИСпособКодирования(4,2);

    

    Если ПустоеЗначение(ОтправкаПочты.СоздатьПисьмо(ОтКого,    КомуВрем,    ,    Тема,    ,    Тело,    ФайлАттач))=1 тогда

        Предупреждение("Ошибка при создании письма!");

    КонецЕсли;

    Если ОтправкаПочты.ОтправитьПисьмо() <= 0 Тогда

        Предупреждение("Ошибка при отправке письма! "+ СокрЛП(ОтправкаПочты.ПоследняяОшибка)+ " "+ОтправкаПочты.ПоследняяОшибкаСтр);

        Сообщить("Последний ответ сервера: " + ОтправкаПочты.ПоследнийОтветСервера);

    КонецЕсли;

    ОтправкаПочты.Отключиться();

КонецФункции // ОтправкаПисьма