Всем привет. Помогите, пожалуйста, голову сломала, а дебагер в Outlook не запускается )
Понадобилось сохранить файлы, которые присылает один и тот же адресат, нашла в интернете код, попыталась его упростить и использовать для своих целей, но работает он рандомно... то работает, то нет и сохраняет разное кол-во файлов, а в данный момент вообще не работает )). Не могу понять в чем может быть проблема.
Создала правило, при получении письма с вложением от данного адресата, письмо перемещается в папку с его именем в outlook и запускается макрос, который не срабатывает...
Понадобилось сохранить файлы, которые присылает один и тот же адресат, нашла в интернете код, попыталась его упростить и использовать для своих целей, но работает он рандомно... то работает, то нет и сохраняет разное кол-во файлов, а в данный момент вообще не работает )). Не могу понять в чем может быть проблема.
Создала правило, при получении письма с вложением от данного адресата, письмо перемещается в папку с его именем в outlook и запускается макрос, который не срабатывает...
Код |
---|
Public Sub SaveAttachments(msg As MailItem) Dim att As Attachment Dim base_path As String Dim file_ext As String Dim s As String Dim pd As Integer Dim n As String, w As String base_path = "C:\База цен" file_ext = "xlsx_xls" For Each att In msg.Attachments s = att.FileName pd = InStrRev(s, ".") n = Left(s, pd - 1) w = Right(s, Len(s) - pd) If InStr(file_ext, w) > 0 Then att.SaveAsFile base_path & "\" & n & "." & w End If Next End Sub |