Добрый вечер, господа!
Вот такой скрипт есть, суть которого - автоматически при получении письма и после сортировки в соответствующую
папку (а их много), брать содержимое письма и заталкивать в соответствующую папку на диске.
Долго пытался сделать так чтобы определялась папка в аутлуке в которой сидит письмо, нашел,
а теперь пытаюсь сделать так чтобы выбиралась папка не активированного вручную письма а активированного правилом.
И никак не получается найти как перекинуть выбор выделения "селект типо" в скрипте на нужное письмо обрабатываемое правилом.
Низкий поклон за помощь и поддержку
Вот такой скрипт есть, суть которого - автоматически при получении письма и после сортировки в соответствующую
папку (а их много), брать содержимое письма и заталкивать в соответствующую папку на диске.
Долго пытался сделать так чтобы определялась папка в аутлуке в которой сидит письмо, нашел,
а теперь пытаюсь сделать так чтобы выбиралась папка не активированного вручную письма а активированного правилом.
И никак не получается найти как перекинуть выбор выделения "селект типо" в скрипте на нужное письмо обрабатываемое правилом.
| Код |
|---|
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
|
Низкий поклон за помощь и поддержку
