my 1C. Полезная информация.

Процедура ПереброскаВПочтовика()
     myOlApp = CreateObject("Outlook.Application");
     myItem = myOlApp.CreateItem(0); //olMailItem=0
     //Адрес
     myRecipient = myItem.Recipients.Add("axm2000@mail.ru");
     myRecipient.Type=1;
     //Тема
     myItem.Subject = "Счет № "+НомерДок+" от "+ДатаДок;
     //Тело
     myItem.Body ="Счет находится в прикрепленном файле"
     //Аттачменты
     myAttachments = myItem.Attachments();
     myAttachments.Add( "C:\\1cFiletmp.xls", 1, 1, "Счет № "+НомерДок+" от "+ДатаДок);
     ФС.УдалитьФайл("C:\\1cFiletmp.xls");
     //myItem.Display();
     myItem.Send();
КонецПроцедуры

Предварительно напиши часть кода для печати счета в файл (догадайся какой). Все. Если есть соединение то отправит сразу, нет поместит в исходящие.
Это для MS Outlook. Outlook Express механизма ОЛЕ не поддерживает. Никакой внешней библиотеки не надо, по крайне мере для MS Outlook.
<сообщил Инженер>

Как при отправке письма через Outlook указать обратный адрес:
OLE_Outlook=СоздатьОбъект("Outlook.Application");
Mail = OLE_Outlook.CreateItem(0);
.....
Mail.ReplyRecipientNames="kto-to@gte-to.tam" //обратный адрес
<сообщил Evgeny>

- Наверх -


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки