Outlook Опции

[Киола]

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

Есть вот такое безобразие, которое случается 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]

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

[Киола]

Все, набрела на какой-то форум, допилила напильником, работает. Вот код, мало ли, кому-то еще пригодится. 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]

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

[Киола]

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

[iMagus]

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

[Hront]

Йа в шоке....

[Киола]

Йа в шоке....

Почему?

[Hront]

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

[Myrene]

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

[Киола]

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

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

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