Всем привет. Помогите, пожалуйста, голову сломала, а дебагер в 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
|