Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выбор письма в Outlook в скрипте работающего правила. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Выбор письма в Outlook в скрипте работающего правила. (Макросы/Sub)
Выбор письма в Outlook в скрипте работающего правила.
Angolez Дата: Среда, 26.07.2017, 22:15 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый вечер, господа!

Вот такой скрипт есть, суть которого - автоматически при получении письма и после сортировки в соответствующую
папку (а их много), брать содержимое письма и заталкивать в соответствующую папку на диске.
Долго пытался сделать так чтобы определялась папка в аутлуке в которой сидит письмо, нашел,
а теперь пытаюсь сделать так чтобы выбиралась папка не активированного вручную письма а активированного правилом.
И никак не получается найти как перекинуть выбор выделения "селект типо" в скрипте на нужное письмо обрабатываемое правилом.

[vba]
Код
Sub Save_Attachments1(myItem As Outlook.MailItem)

Set xxx = Application.ActiveExplorer.CurrentFolder ' Тут он выбирает то что активировано в данный момент в аутлуке мной, а не то что обрабатывается правилом
                    ' а надо что бы был "селект" именно на обрабатываемое правилом письмо
MyFolder = "Z:\папка\" & xxx

  Dim a As Outlook.Attachment, i As Long, f As String, m As String
  m = Format(myItem.SentOn, "_yymmdd_hhmmss_") & myItem.SenderName
  For Each a In myItem.Attachments
    With a
      f = .FileName
      i = InStrRev(f, ".")
      If i = 0 Then i = Len(f) + 1
      .SaveAsFile MyFolder & Left(" " & f, i - 1) & "(" & m & .Index & ")" & Mid(f, i)
    End With
  Next

End Sub
[/vba]

Низкий поклон за помощь и поддержку victory
 
Ответить
СообщениеДобрый вечер, господа!

Вот такой скрипт есть, суть которого - автоматически при получении письма и после сортировки в соответствующую
папку (а их много), брать содержимое письма и заталкивать в соответствующую папку на диске.
Долго пытался сделать так чтобы определялась папка в аутлуке в которой сидит письмо, нашел,
а теперь пытаюсь сделать так чтобы выбиралась папка не активированного вручную письма а активированного правилом.
И никак не получается найти как перекинуть выбор выделения "селект типо" в скрипте на нужное письмо обрабатываемое правилом.

[vba]
Код
Sub Save_Attachments1(myItem As Outlook.MailItem)

Set xxx = Application.ActiveExplorer.CurrentFolder ' Тут он выбирает то что активировано в данный момент в аутлуке мной, а не то что обрабатывается правилом
                    ' а надо что бы был "селект" именно на обрабатываемое правилом письмо
MyFolder = "Z:\папка\" & xxx

  Dim a As Outlook.Attachment, i As Long, f As String, m As String
  m = Format(myItem.SentOn, "_yymmdd_hhmmss_") & myItem.SenderName
  For Each a In myItem.Attachments
    With a
      f = .FileName
      i = InStrRev(f, ".")
      If i = 0 Then i = Len(f) + 1
      .SaveAsFile MyFolder & Left(" " & f, i - 1) & "(" & m & .Index & ")" & Mid(f, i)
    End With
  Next

End Sub
[/vba]

Низкий поклон за помощь и поддержку victory

Автор - Angolez
Дата добавления - 26.07.2017 в 22:15
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Выбор письма в Outlook в скрипте работающего правила. (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!