v7: Картинка с прозрачным фоном

Перем Докум;
Перем ИсхТабл;
Перем Адрес;

// параметры подключения - РЕДАКТИРОВАТЬ ТОЛЬКО В КРАЙНЕМ СЛУЧАЕ
Перем SMTPСервер;
Перем SMTPПорт;
Перем Отправитель;

//******************************************************************************
Процедура ПриОткрытии()

SMTPСервер = "smtp.gmail.com";
SMTPПорт = "465";
Отправитель = "compsrvn@gmail.com";

Если ПустоеЗначение(Форма.Параметр) = 0 Тогда

Докум = Форма.Параметр.Получить("Контекст");

Адрес = СокрЛП(Докум.Контрагент.ЭлПочта);

Форма.SMTPСервер.Заголовок(SMTPСервер);
Форма.SMTPПорт.Заголовок(SMTPПорт);
Форма.Отправитель.Заголовок(Отправитель);
Форма.Адрес.Заголовок(Адрес);

Тема = "От ""Компью-Сервис"": Счет N " + СокрЛП(глНомерНаПечать(Докум)) + " от " + СокрЛП(НРег(Формат(Докум.ДатаДок, "Д ДДММММГГГГ")));
Текст = "Это письмо автоматически сгенерировано программой." + РазделительСтрок +
"Пожалуйста, не отвечайте на него." + РазделительСтрок +
"Для обратной связи используйте адрес электронной почты: compsrv@nvr.ru";
КонецЕсли;

КонецПроцедуры // ПриОткрытии

//******************************************************************************
Процедура Печать(ИсхТабл)

Перем НачПовт, КонПовт;

Форма.Отправка.Заголовок("Идет формирование печатной формы счета.");

ИсхТабл = СоздатьОбъект("Таблица");
НачПовт = 0; КонПовт = 0;

Расшифровка = СоздатьОбъект("СписокЗначений");
Расшифровка.ДобавитьЗначение("Мыло", "Мыло");
ИсхТабл.ОбластьПечати(2);

// Секция ЗаголовокСчета
ПечФирма = ""; Банк = ""; Счет = ""; БИК = ""; СчетБанка = "";

Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(Докум.БанковскийСчет, "БанковскийСчет");
глРеквизитыПлательщикаПолучателя(Параметры);
ПечФирма = Параметры.Получить("Результат");
Банк = Параметры.Получить("СтрокаБанка");
Счет = Параметры.Получить("РасчетныйСчет");
БИК = Параметры.Получить("БИК");
СчетБанка = Параметры.Получить("КоррСчет");
ИНН = СокрЛП(Лев(Докум.Фирма.ЮрЛицо.ИНН, Найти(Докум.Фирма.ЮрЛицо.ИНН, "/") - 1));

ИсхТабл.ВывестиСекцию("Шапка");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Шапка");

// секция Заголовок
ИсхТабл.ВывестиСекцию("ЗаголовокСчета");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("ЗаголовокСчета");

// Секция Поставщик
Поставщик = "ИНН/КПП " + СокрЛП(Докум.Фирма.ЮрЛицо.ИНН) + РазделительСтрок +
СокрЛП(Докум.Фирма.ЮрЛицо.ПолнНаименование) + РазделительСтрок +
глПредставлениеАдреса(Докум.Фирма.ЮрЛицо.ЮрАдрес) + РазделительСтрок + ".";

ИсхТабл.ВывестиСекцию("Поставщик");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Поставщик");

// Секция Покупатель
Если ПустоеЗначение(Докум.Контрагент) = 0 Тогда
Покупатель = СокрЛП(Докум.Контрагент.ЮрФизЛицо.ПолнНаименование);
Если ПустоеЗначение(Докум.Контрагент.ЮрФизЛицо.ИНН) = 0 Тогда
Покупатель = "ИНН/КПП " + СокрЛП(Докум.Контрагент.ЮрФизЛицо.ИНН) + РазделительСтрок + Покупатель + РазделительСтрок + ".";
КонецЕсли;
Иначе
Покупатель = "";
КонецЕсли;
ИсхТабл.ВывестиСекцию("Покупатель");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Покупатель");

// Секция Шапка таблицы
ИсхТабл.ВывестиСекцию("ШапкаТаблицы");
КонПовт = НачПовт + ИсхТабл.ВысотаСекции("ШапкаТаблицы");
ИсхТабл.ПовторятьПриПечатиСтроки(НачПовт + 1, КонПовт);

// выводим табличную часть
НомСтроки = 0;
Докум.ВыбратьСтроки();

Пока Докум.ПолучитьСтроку() = 1 Цикл
НомСтроки = НомСтроки + 1;
ИсхТабл.ВывестиСекцию("Строка");
КонецЦикла;

СуммаИтог = Докум.Итог("Сумма");

// секция Итого
ИсхТабл.ВывестиСекцию("Итого");

// секция ИтогоНДС
Если Докум.УчитыватьНДС = 1 Тогда
СуммаНДСИтог = Докум.Итог("СуммаНДС");
Если Докум.СуммаВклНДС = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНДСИтог;
КонецЕсли;
ИсхТабл.ВывестиСекцию("ИтогоНДС");
КонецЕсли;

// секция ИтогоНП
Если Докум.УчитыватьНП = 1 Тогда
СуммаНПИтог = Докум.Итог("СуммаНП");
Если Докум.СуммаВклНП = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНПИтог;
КонецЕсли;
ИсхТабл.ВывестиСекцию("ИтогоНП");
КонецЕсли;

// секция СуммаПрописью
ИсхТабл.ВывестиСекцию("СуммаПрописью");

// секция Подписи
РуководительРасшифровка = Шаблон("[Докум.Фирма.ЮрЛицо.Руководитель.Получить(Докум.ДатаДок)]");
ГлБухгалтерРасшифровка = Шаблон("[Докум.Фирма.ЮрЛицо.ГлБухгалтер.Получить(Докум.ДатаДок)]");
ИсхТабл.ВывестиСекцию("Подписи");

КонецПроцедуры // Печать

//******************************************************************************
Функция Отправить(КаталогДляЗаписи)

Форма.Отправка.Заголовок("Идет отправка сформированного письма по электронной почте.");

Письмо = СоздатьОбъект("CDO.Message");

Письмо.To = Адрес;
Письмо.From = Отправитель;
Письмо.Subject = Тема;
Письмо.TextBody = Текст;
Письмо.TextBodyPart.Charset = "iso-8859-5";

Письмо.AddAttachment(КаталогДляЗаписи);
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = SMTPСервер;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = Отправитель;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = "polina97";
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = SMTPПорт;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendmailaddress").Value = Адрес;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = -1;
Письмо.Configuration.Fields.Update();

Попытка
Письмо.Send();
Форма.Отправка.Заголовок("");
Предупреждение("Успешно отправлено на электронный адрес: " + Адрес);
Исключение
Форма.Отправка.Заголовок("");
Предупреждение("Не удалось отправить по причине: " + РазделительСтрок + ОписаниеОшибки());
Возврат 1;
КонецПопытки;

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

//******************************************************************************
Функция ПодготовитьФайл(КаталогДляЗаписи)

Ошибка = 0;

Форма.Отправка.Заголовок("Идет формирование письма.");

Попытка
ЗагрузитьВнешнююКомпоненту("SpreadSheet.dll");
Исключение
Предупреждение("Не удалось загрузить компоненту SpreadSheet.dll.");
Ошибка = 1;
Возврат Ошибка;
КонецПопытки;

Йоксель = СоздатьОбъект("ТабличныйДокумент");
Конвертер = СоздатьОбъект("КонвертерExcel");

ВремТабл = Конвертер.Создать();

Йоксель.ЗагрузитьИзТаблицы(ИсхТабл);

ВремТабл.Листы.Добавить("Счет", Йоксель);

Параметры = Йоксель.ПараметрыПечати;
Параметры.ПолеСверху = 50;
Параметры.ПолеСнизу = 50;
Параметры.ПолеСлева = 50;
Параметры.ПолеСправа = 50;
Параметры.Ориентация = 1;

ВремТабл.Записать(КаталогДляЗаписи);
Йоксель.Очистить();

Возврат Ошибка;

КонецФункции // ПодготовитьФайл

//******************************************************************************
Процедура ПоКнопкеПечать()

Печать(ИсхТабл);
ИмяФайла = "Счет " + СокрЛП(глНомерНаПечать(Докум)) + " от " + СокрЛП(НРег(Формат(Докум.ДатаДок, "Д ДДММММГГГГ")));
КаталогДляЗаписи = Строка(КаталогИБ() + "Счета\" + ИмяФайла + "xls");

Если ПодготовитьФайл(КаталогДляЗаписи) = 0 Тогда
Отправить(КаталогДляЗаписи);
КонецЕсли;

// удаляем сохраненный файл
Попытка
//ФС.УдалитьФайл(КаталогДляЗаписи);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

Форма.Отправка.Заголовок("");
Форма.Закрыть();

КонецПроцедуры // ПоКнопкеПечать

//******************************************************************************
cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword";
cdoSendEmailAddress = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress";
cdoAutoPromoteBodyParts = "http://schemas.microsoft.com/cdo/configuration/autopromotebodyparts" ;
cdoFlushBuffersOnWrite = "http://schemas.microsoft.com/cdo/configuration/flushbufferson;write" ;
cdoHTTPCookies = "http://schemas.microsoft.com/cdo/configuration/httpcookies" ;
cdoLanguageCode = "http://schemas.microsoft.com/cdo/configuration/languagecode" ;
cdoNNTPAccountName = "http://schemas.microsoft.com/cdo/configuration/nntpaccountname" ;
cdoNNTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/nntpauthenticate" ;
cdoNNTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/nntpconnectiontimeout" ;
cdoNNTPServer = "http://schemas.microsoft.com/cdo/configuration/nntpserver" ;
cdoNNTPServerPickupDirectory = "http://schemas.microsoft.com/cdo/configuration/nntpserverpickupdirectory" ;
cdoNNTPServerPort = "http://schemas.microsoft.com/cdo/configuration/nntpserverport" ;
cdoNNTPUseSSL = "http://schemas.microsoft.com/cdo/configuration/nntpusessl" ;
cdoPostEmailAddress = "http://schemas.microsoft.com/cdo/configuration/postemailaddress" ;
cdoPostPassword = "http://schemas.microsoft.com/cdo/configuration/postpassword" ;
cdoPostUserName = "http://schemas.microsoft.com/cdo/configuration/postusername" ;
cdoPostUserReplyEmailAddress = "http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress" ;
cdoPostUsingMethod = "http://schemas.microsoft.com/cdo/configuration/postusing" ;
cdoSaveSentItems = "http://schemas.microsoft.com/cdo/configuration/savesentitems" ;
cdoSendEmailAddress = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ;
cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" ;
cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" ;
cdoSendUserReplyEmailAddress = "http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress" ;
cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" ;
cdoSMTPAccountName = "http://schemas.microsoft.com/cdo/configuration/smtpaccountname" ;
cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ;
cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ;
cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver";
cdoSMTPServerPickupDirectory = "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory";
cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";
cdoSMTPUseSSL = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";
cdoURLGetLatestVersion = "http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion";
cdoURLProxyBypass = "http://schemas.microsoft.com/cdo/configuration/urlproxybypass";
cdoURLProxyServer = "http://schemas.microsoft.com/cdo/configuration/urlproxyserver";
cdoUseMessageResponseText = "http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext";