Имя: Пароль:
1C
 
Принимаем почту в 1С, без приблуд, приатаченные файлы сразу распаковываются
0 Ковычки
 
07.10.05
14:55
myOlApp = CreateObject("Outlook.Application");
mySyncs = myOlApp.GetNamespace("MAPI").SyncObjects;
Для к=1 По mySyncs.Count Цикл
   mySyncObj = mySyncs.Item(к);
   mySyncObj.Start();
КонецЦикла;
mailItems = myOlApp.Session.GetDefaultFolder(6).Items();
Для к=1 По mailItems.Count Цикл
   Если mailItems.Item(к).UnRead=-1 Тогда
           mailItems.Item(к).UnRead = 0;
           Для н=1 По mailItems.Item(к).Attachments.Count Цикл
               Datetimes = СтрЗаменить(mailItems.Item(к).ReceivedTime, " ", "_");
               Datetimes = СтрЗаменить(Datetimes, ".", "_");
               Datetimes = СтрЗаменить(Datetimes, ":", "_");
               mailItems.Item(к).Attachments.Item(н).SaveAsFile ("c:\mail\" + Datetimes + "_" + mailItems.Item(к).Attachments.Item(н).FileName);
           КонецЦикла;
   КонецЕсли;
КонецЦикла;
1 Гламурный Подонок
 
07.10.05
15:03
У нас БАТ везде используется.
2 Ковычки
 
07.10.05
15:05
(1) А офис используется ?
3 Гламурный Подонок
 
07.10.05
15:06
Используется. Но без аутлука.
4 Ковычки
 
07.10.05
15:08
(3) А что так, места на нжмд-ах мало ;)
5 Гламурный Подонок
 
07.10.05
15:09
Нет, корпоративный стандарт.
6 Ковычки
 
07.10.05
15:11
(5) Какой, какой стандарт...?
7 Sadovnikov
 
07.10.05
15:12
(6) Нормальный стандарт - не пользоваться всяким Г... на работе.
8 Ковычки
 
07.10.05
15:14
(7) Это пощему еще... (с)
9 Sadovnikov
 
07.10.05
15:16
(8) Даже не знаю почему... Так уж повелось, что стараются пользоваться только хорошими вещами... Сам удивляюсь!
10 Ковычки
 
07.10.05
15:18
"...без приблуд,..."
11 ДюймОлечка
 
07.10.05
15:18
а отправить как? а то dll надоели
12 Ковычки
 
07.10.05
15:29
objEmail = CreateObject("CDO.Message");
objEmail.From = СокрЛП(Отправитель);
objEmail.To = СокрЛП(Получатель);
objEmail.Subject = СокрЛП(Тема);
objEmail.Textbody = СокрЛП(ТекстПисьма);
Если ФС.СуществуетФайл(ИмяФайла)=1 Тогда
   objEmail.AddAttachment(СокрЛП(ИмяФайла));
Иначе
КонецЕсли;
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value=2;
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value=СерверСМТП;
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value=25;
objEmail.Configuration.Fields.Update();
objEmail.Send();
13 France
 
07.10.05
15:30
а у мя postie рулит ...
и батники всякие.
14 goodfella
 
07.10.05
15:30
(12) Ага, по msdn.microsoft.com лазаешь? :)
15 Лошадка в пальто
 
07.10.05
15:31
у нас везде работает почта Рупора...
16 Ковычки
 
07.10.05
15:31
(14) Это уж давно съедено и...
17 Ковычки
 
07.10.05
15:33
+(16) Лазал, счас неплохой на русском есть, со всякими бес-полезными/полезными советами
А так если инет есть то хорошо приготовленная справка и поддержка помогает...
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn