Здравствуйте, стоит задача сделать так чтобы из писем, от определенных получателей по правилу, вложения автоматически сохранялись в определенную папку.
Есть такой код, в компиляторе ошибок не выдает. По факту не отрабатывает и выдает ошибку.
Public Sub saveAtt(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim sDateMail As String
Dim Sender As Outlook.AddressEntry
sDateMail = Format(itm.CreationTime, "dd.mm")
If Sender = "somemail@gmail.com" Then
saveFolder = "C:\Users\user\Documents\somefolder1"
End If
If Sender = "somemail@yandex.ru" Then
saveFolder = "C:\Users\user\Documents\somefolder2"
End If
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & sDateMail & "-" & objAtt.FileName
Set objAtt = Nothing
Next objAtt
End Sub
Ткните пожалуйста пальцем где я что-то делаю не так. При получении письма вылетает дебаггер и показывает желтой стрелочкой на строку
If Sender = "somemail@gmail.com" Then