v7: Отправка почты.

Добрый день.
Подскажите пожалуйста,можно ли выполнить данную процедуру с помощью внешней компоненты V7Plus?
Процедура ОтправитьПочту()
Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
Возврат;
КонецЕсли;
//подключение
Почта=СоздатьОбъект("AddIn.AddInMail");
Почта.СерверОтправки=СокрЛП(СерверОтправки);
Почта.ПортОтправки=СокрЛП(ПортОтправки);
Почта.АутентификацияПриОтправке=ФлагАутентификация;
Если Почта.Соединение=0 Тогда
Если Почта.Подключиться("Отправка")=0 Тогда
Сообщить("Не удалось подключиться к почтовому серверу","!");
Возврат;
КонецЕсли;
КонецЕсли;
//сообщение
Почта.Важность=0;
Почта.Кодировка="windows-1251";
Почта.ТипПисьма=2;
Почта.АдресОтправителя=СокрЛП(АдресОтправителя);
Почта.ИмяОтправителя=СокрЛП(ИмяОтправителя);
//получатели
Почта.ДобавитьАдрес("АдресПолучателя",СокрЛП(ИмяПолучателя),СокрЛП(АдресПолучателя));
//вложения
Для й=1 По Вложения.РазмерСписка() Цикл
Почта.Вложения=Почта.Вложения+Вложения.ПолучитьЗначение(й)+";";
КонецЦикла;
Почта.Тема=СокрЛП(ТемаПисьма);
Почта.Тело=СокрЛП(ТекстПисьма);
//отправка
Если Почта.Соединение=0 Тогда
Сообщить("Соединение потеряно","!");
ИначеЕсли Почта.Отправить()=1 Тогда
Сообщить("Почтовое сообщение отправлено","i");
Иначе
Сообщить("Не удалось отправить сообщение","!");
КонецЕсли;
//отключение
Почта.Отключиться();
КонецПроцедуры
//процедура выполняет отправку файла автообмена
Процедура Почта_Отправить(База)
//настройка
П=СоздатьОбъект("AddIn.AddInMail");
П.СерверОтправки=СокрЛП(База.СерверОтправки);
П.ПортОтправки=СокрЛП(База.ПортОтправки);
П.Логин=СокрЛП(База.ПочтаЛогин);
П.Пароль=СокрЛП(База.ПочтаПароль);
П.АутентификацияПриОтправке=База.Аутентификация;
//подключение
Если П.Подключиться("Отправка")=0 Тогда
Сообщить("Не удалось подключиться к почтовому серверу для отправки почты","!");
Возврат;
КонецЕсли;
//создание
П.АдресПолучателя=СокрЛП(База.АдресПолучателя);
П.Тема=ВРег(СокрЛП(База.Текущая)+"-"+СокрЛП(База.Удаленная));
П.Тело="
|Отправитель: "+СокрЛП(База.Текущая)+" "+База.Наименование+"
|Получатель: "+СокрЛП(База.Удаленная);
//вложения
Каталог=СокрЛП(База.Экспорт)+"\";
Файл=ФС.НайтиПервыйФайл(Каталог+"*.*");
Пока ПустаяСтрока(Файл)=0 Цикл
//добавление
Если Лев(Файл,1)<>"." Тогда
Сообщить("Вложен файл: "+Каталог+Файл);
П.Вложения=П.Вложения+Каталог+Файл+";";
КонецЕсли;
//следующий
Файл=ФС.НайтиСледующийФайл();
КонецЦикла;
//отправка
Если ПустаяСтрока(П.Вложения)=0 Тогда
Если П.Отправить()=0 Тогда
Сообщить("Не удалось отправить почту","!");
КонецЕсли;
КонецЕсли;
//отключение
П.Отключиться();
КонецПроцедуры