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

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