![]() |
![]() |
![]() |
|
Принимаем почту в 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) Лазал, счас неплохой на русском есть, со всякими бес-полезными/полезными советами
А так если инет есть то хорошо приготовленная справка и поддержка помогает... |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |