MS Outlook 2010 код vba для архивации вложений писем.

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

MS Outlook 2010 код vba для архивации вложений писем. (Word)

Sharky

Дата: Воскресенье, 05.10.2014, 14:30 | Сообщение № 1

Группа: Гости

Уважаемые дамы и господа.
Помогите допилить код... выглядит он вот так:
[vba]

Код

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
dateOfMailItem = Format(itm.CreationTime, "dd.mm.yyyy")
saveFolder = "C:\Заказы"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & itm.Subject & ".xls"
Set objAtt = Nothing
Next
End Sub

[/vba]

Хочется в строчке objAtt.SaveAsFile saveFolder & "\" & itm.Subject & ".xls" заменить itm.Subject на имя контакта, как он записан в адресной книге.
Но не знаю как это сделать. Сори за нубство (:
И было бы вообще замечательно, если во время запуска кода создавалась папочка с числом когда принят файл и файлы бы помещались в папки по датам.
(используя dateOfMailItem в качестве имени новой папки)

Уверен что если будет решение, это значительно упростит работу многих людей.
Заранее спасибо.

Сообщение отредактировал Serge_007 - Воскресенье, 11.01.2015, 03:24

Ответить

Sharky

Дата: Среда, 08.10.2014, 09:24 | Сообщение № 2

Группа: Гости

Мда уж (: видать придется искать решение самому.

Ответить

mirash91

Дата: Вторник, 09.02.2016, 10:19 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата Sharky, 05.10.2014 в 14:30, в сообщении № 1

Хочется в строчке objAtt.SaveAsFile saveFolder & "\" & itm.Subject & ".xls" заменить itm.Subject на имя контакта, как он записан в адресной книге.
Но не знаю как это сделать. Сори за нубство (:

Некропост :crazy:
Думаю, что надо просто заменить Subject на SentOn, примерно так:)
objAtt.SaveAsFile saveFolder & "\" & itm.SentOn & ".xls"

Ответить

MS Outlook 2010 код vba для архивации вложений писем. (Word)

Страница 1 из 1
1