Outlook |
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 В принципе, даже так уже экономия времени, но в идеале нужно чтобы имя файла при сохранении было не по имени вложения, а по названию темы письма. Знаю, что так можно, куски кодов для этого находила, но, как я поняла, мешает слеш в названии темы. Опять же, видела код на замену или удаление слеша, но совместить все это знаний не хватает. -------------------- :::: Live Stream :: YouTube :: Steam Profile :: Last.FM ::::
|
|
|
Mar 16 2017, 13:33
Сообщение
#2
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 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 -------------------- :::: Live Stream :: YouTube :: Steam Profile :: Last.FM ::::
|
|
|
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 |
Это не кодинг а расширенный копипастинг :)
-------------------- :::: Live Stream :: YouTube :: Steam Profile :: Last.FM ::::
|
|
|
Mar 16 2017, 20:00
Сообщение
#6
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
Да программисты половину времени так и делают.
-------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
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 |
-------------------- :::: Live Stream :: YouTube :: Steam Profile :: Last.FM ::::
|
|
|
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 |
|
|
Mar 26 2017, 14:23
Сообщение
#10
|
|
Сововед Группа: Indoril-Common + Indoril-EK Сообщений: 2623 Регистрация: 15 Feb 2007 Вставить ник Цитата Из: Москва Пользователь №: 5064 |
ХП и антивирус кончился
-------------------- в голове моей опилки не-бе-дааа
поступаю я как дура и-наг-дааа и не важна чем ты занят, я тебя везде достану... дааа!)) |
|
|
Apr 1 2017, 15:32
Сообщение
#11
|
|
Audi, vide, sile. Группа: Admin Сообщений: 16319 Регистрация: 8 Apr 2007 Вставить ник Цитата Из: Москва, Строгино. Пользователь №: 5242 |
ХП и антивирус кончился Это аптечный рабочий комп, который даже компом можно назвать с натяжкой. Именно поэтому этот и подобные вопросы я решаю сама, а не с IT-отделом =\ Зато у нас есть "Завтрак с генеральным директором" и флаеры на концерт митрополита в Крокусе. -------------------- :::: Live Stream :: YouTube :: Steam Profile :: Last.FM ::::
|
|
|
Текстовая версия | Сейчас: 31st October 2024 - 10:25 |