Извиняюсь, что пишу вопрос не по excel'ю! Нужен макрос для microsoft outlook для пакетного сохранения вложений из множества выбранных писем, желательно с возможностью выбора папки. [moder]Тему перенес
Извиняюсь, что пишу вопрос не по excel'ю! Нужен макрос для microsoft outlook для пакетного сохранения вложений из множества выбранных писем, желательно с возможностью выбора папки. [moder]Тему перенесRussel
Нашёл решение на просторах интернета, может, кому-нибудь пригодится: [vba]
Код
Dim myobj As Object Dim att As Attachment For Each myobj In Application.ActiveExplorer.Selection If myobj.Class = olMail Then For Each att In myobj.Attachments att.SaveAsFile "D:\Attachments\" + att.FileName Next End If Next
[/vba]
Нашёл решение на просторах интернета, может, кому-нибудь пригодится: [vba]
Код
Dim myobj As Object Dim att As Attachment For Each myobj In Application.ActiveExplorer.Selection If myobj.Class = olMail Then For Each att In myobj.Attachments att.SaveAsFile "D:\Attachments\" + att.FileName Next End If Next
Кто знает как переименовать эти файлы в соответствии с именами контактов. Тобишь если есть контакты в outlook_е и прислали письма со вложенными exel файлами.
Вот код - все работает, но мне нужно, чтобы имена соответствовали именам контактов от которых приходит письмо. Сейчас файлы переименовываются как заголовок темы, но понимаете.... нереально заставить всех отправлять почту с нужными заголовками.
[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]
Надеюсь на ваш опыт и смекалку.
Кто знает как переименовать эти файлы в соответствии с именами контактов. Тобишь если есть контакты в outlook_е и прислали письма со вложенными exel файлами.
Вот код - все работает, но мне нужно, чтобы имена соответствовали именам контактов от которых приходит письмо. Сейчас файлы переименовываются как заголовок темы, но понимаете.... нереально заставить всех отправлять почту с нужными заголовками.
[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
Rioran, макрос в сообщении #2 меня устраивает больше, ибо вложения не только excel, и даже, в большинстве своем, - вовсе pdf ))) Но спасибо в любом случае!
Rioran, макрос в сообщении #2 меня устраивает больше, ибо вложения не только excel, и даже, в большинстве своем, - вовсе pdf ))) Но спасибо в любом случае! Russel
Ну ок, ок =) Если что - его под нужные типы файлов заточить - пара минут. Он и всё подряд может вытягивать, но учитывая сколько в подписях и не только может быть картинок - нагрузит много лишнего.
Ну ок, ок =) Если что - его под нужные типы файлов заточить - пара минут. Он и всё подряд может вытягивать, но учитывая сколько в подписях и не только может быть картинок - нагрузит много лишнего.Rioran
Роман, Москва, voronov_rv@mail.ru Яндекс-Деньги: 41001312674279
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
если есть контакты в outlook_е и прислали письма со вложенными exel файлами. 
