HeadIMG
 
Ответить в данную темуНачать новую тему
> Outlook
Киола
сообщение Mar 16 2017, 10:05
Сообщение #1


Audi, vide, sile.

Группа: Admin 
Сообщений: 16319
Регистрация: 8 Apr 2007
Вставить ник  Цитата
Из: Москва, Строгино.
Пользователь №: 5242



Всем привет :) Нужна помощь погромистов.

Есть вот такое безобразие, которое случается 3-5 раз в неделю:



Все это нужно просматривать и сохранять. Я нашла скрипт, который можно засунуть в правила и сохранять вложения автоматически:
Код
Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "L:\Мои документы\Информационные письма Росздравнадзора\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub


В принципе, даже так уже экономия времени, но в идеале нужно чтобы имя файла при сохранении было не по имени вложения, а по названию темы письма. Знаю, что так можно, куски кодов для этого находила, но, как я поняла, мешает слеш в названии темы. Опять же, видела код на замену или удаление слеша, но совместить все это знаний не хватает.


--------------------
Перейти в начало страницы
 
+Цитировать сообщение
iMagus
сообщение Mar 16 2017, 13:33
Сообщение #2


Добрый Дух Гедеона

Группа: Admin 
Сообщений: 47626
Регистрация: 4 Sep 2004
Вставить ник  Цитата
Из: Москва, Фили
Пользователь №: 514



Ничего не знаю про скриптовый язык Аутлука. Вечером, может быть, немного поизучаю этот вопрос.


--------------------
Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
---
О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома.
---
Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор)
---
Как это возможно, что невозможное может быть не только возможно, но и неизбежно?
Перейти в начало страницы
 
+Цитировать сообщение
Киола
сообщение Mar 16 2017, 14:16
Сообщение #3


Audi, vide, sile.

Группа: Admin 
Сообщений: 16319
Регистрация: 8 Apr 2007
Вставить ник  Цитата
Из: Москва, Строгино.
Пользователь №: 5242



Все, набрела на какой-то форум, допилила напильником, работает. Вот код, мало ли, кому-то еще пригодится. 26 это название файла берется от 26 символа темы (обрезает повторяющееся начало).

Код
Sub SaveAllAttachments(objitem As MailItem)
Dim objAttachments As Outlook.Attachments
Dim strName, strLocation As String
Dim dblCount, dblLoop As Double
strLocation = "Путь к папке"
On Error GoTo ExitSub
If objitem.Class = olMail Then
Set objAttachments = objitem.Attachments
dblCount = objAttachments.Count
If dblCount <= 0 Then
End If   ' put breakpoint on next line, then step through code to see if it enters loop
For dblLoop = 1 To dblCount
strName = strLocation & Replace(Mid(objitem.Subject, 26), "/", " ") & ".pdf"
objAttachments.Item(dblLoop).SaveAsFile strName
Next dblLoop
'objitem.Delete
End If
100
ExitSub:
Set objAttachments = Nothing
Set objOutlook = Nothing
End Sub


--------------------
Перейти в начало страницы
 
+Цитировать сообщение
Mandey
сообщение Mar 16 2017, 14:38
Сообщение #4


Ординатор

Группа: Indoril-SWTOR 
Сообщений: 1752
Регистрация: 16 Nov 2012
Вставить ник  Цитата
Из: Moscow
Пользователь №: 7975

Игра: SWTOR
Персонаж:Qron



плять, медики кодють, а я дуб...


--------------------
Мало стать первым, главное чтоб все остальные сдохли! (с) Чингисхан
Перейти в начало страницы
 
+Цитировать сообщение
Киола
сообщение Mar 16 2017, 14:40
Сообщение #5


Audi, vide, sile.

Группа: Admin 
Сообщений: 16319
Регистрация: 8 Apr 2007
Вставить ник  Цитата
Из: Москва, Строгино.
Пользователь №: 5242



Это не кодинг а расширенный копипастинг :)


--------------------
Перейти в начало страницы
 
+Цитировать сообщение
iMagus
сообщение Mar 16 2017, 20:00
Сообщение #6


Добрый Дух Гедеона

Группа: Admin 
Сообщений: 47626
Регистрация: 4 Sep 2004
Вставить ник  Цитата
Из: Москва, Фили
Пользователь №: 514



Да программисты половину времени так и делают.


--------------------
Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
---
О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома.
---
Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор)
---
Как это возможно, что невозможное может быть не только возможно, но и неизбежно?
Перейти в начало страницы
 
+Цитировать сообщение
Hront
сообщение Mar 16 2017, 20:18
Сообщение #7


Ординатор

Группа: Head 
Сообщений: 8079
Регистрация: 25 Nov 2011
Вставить ник  Цитата
Пользователь №: 7599

Игра: SWTOR
Персонаж:Hront



Йа в шоке....


--------------------
Oh, a thousand words
Have never been spoken
They'll fly to you
They'll carry you home and back into my arms
Suspended on silver wings
Перейти в начало страницы
 
+Цитировать сообщение
Киола
сообщение Mar 16 2017, 20:30
Сообщение #8


Audi, vide, sile.

Группа: Admin 
Сообщений: 16319
Регистрация: 8 Apr 2007
Вставить ник  Цитата
Из: Москва, Строгино.
Пользователь №: 5242



Цитата(Hront @ Mar 16 2017, 21:18) *
Йа в шоке....

Почему?


--------------------
Перейти в начало страницы
 
+Цитировать сообщение
Hront
сообщение Mar 16 2017, 20:44
Сообщение #9


Ординатор

Группа: Head 
Сообщений: 8079
Регистрация: 25 Nov 2011
Вставить ник  Цитата
Пользователь №: 7599

Игра: SWTOR
Персонаж:Hront



Потому что так не бывает.


--------------------
Oh, a thousand words
Have never been spoken
They'll fly to you
They'll carry you home and back into my arms
Suspended on silver wings
Перейти в начало страницы
 
+Цитировать сообщение
Myrene
сообщение Mar 26 2017, 14:23
Сообщение #10


Сововед

Группа: Indoril-Common 
+ Indoril-EK
Сообщений: 2623
Регистрация: 15 Feb 2007
Вставить ник  Цитата
Из: Москва
Пользователь №: 5064



ХП и антивирус кончился tongue.gif


--------------------
в голове моей опилки не-бе-дааа
поступаю я как дура и-наг-дааа
и не важна чем ты занят, я тебя везде достану... дааа!))
Перейти в начало страницы
 
+Цитировать сообщение
Киола
сообщение Apr 1 2017, 15:32
Сообщение #11


Audi, vide, sile.

Группа: Admin 
Сообщений: 16319
Регистрация: 8 Apr 2007
Вставить ник  Цитата
Из: Москва, Строгино.
Пользователь №: 5242



Цитата(Myrene @ Mar 26 2017, 15:23) *
ХП и антивирус кончился tongue.gif

Это аптечный рабочий комп, который даже компом можно назвать с натяжкой.
Именно поэтому этот и подобные вопросы я решаю сама, а не с IT-отделом =\

Зато у нас есть "Завтрак с генеральным директором" и флаеры на концерт митрополита в Крокусе.


--------------------
Перейти в начало страницы
 
+Цитировать сообщение

Быстрый ответОтветить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



Текстовая версия Сейчас: 3rd March 2024 - 21:10